diff options
Diffstat (limited to 'libBasicTableOperations.tcl')
| -rwxr-xr-x | libBasicTableOperations.tcl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/libBasicTableOperations.tcl b/libBasicTableOperations.tcl index 68781dc..c05a922 100755 --- a/libBasicTableOperations.tcl +++ b/libBasicTableOperations.tcl @@ -1,6 +1,6 @@ #!/bin/sh # FILE: "/home/evmik/src/my_src/GradeBook/libBasicTableOperations.tcl" -# LAST MODIFICATION: "Fri, 15 Apr 2011 20:38:36 -0400 (evmik)" +# LAST MODIFICATION: "Mon, 23 Jan 2012 00:19:39 -0500 (evmik)" # (C) 2011 by Eugeniy Mikhailov, <evgmik@gmail.com> # $Id:$ # vim:set ft=tcl: \ @@ -19,8 +19,8 @@ proc getColListFromTable {table} { } } errStat ] if { $err } { - dbg "we should never be here if GradesTable exists" 1 - dbg $errStat 1 + dbg "we should never be here if GradesTable exists" msg_level_critical + dbg $errStat msg_level_critical htmlErrorMsg $errStat } return $all_column_names @@ -50,7 +50,7 @@ proc SelectColvalueFromTable { table column_of_interest col row_value } { if { $err } { set msg_text "the following error happen in proc SelectColvalueFromTable while selecting from table $table $errStat" htmlErrorMsg $msg_text - dbg $msg_text 3 + dbg $msg_text msg_level_critical set $value {} } return $value @@ -59,7 +59,7 @@ proc SelectColvalueFromTable { table column_of_interest col row_value } { proc existsColumnWithRowvalueInTable { table column row_value } { set sql_str [concat SELECT 1 FROM \'$table\' WHERE \"$column\"=\"$row_value\"] if {![db exists $sql_str]} { - dbg "Column \'$column\' does not have row with value \'$row_value\' in table \'$table\'" 3 + dbg "Column \'$column\' does not have row with value \'$row_value\' in table \'$table\'" msg_level_info return false } else { return true @@ -72,7 +72,7 @@ proc UpdateColumnWithValueInTableWhere { table column val where_column row_value if { $err } { set msg_str "Unable to update column $column in the table $table where $where_column=$row_value. The following error happen: $errStat" htmlErrorMsg $msg_str - dbg $msg_str 3 + dbg $msg_str msg_level_critical } } @@ -106,7 +106,7 @@ proc DeleteColumnFromTable { table columnname } { set err [catch {db eval $eval_str } errStat] if { $err } { htmlErrorMsg $errStat - dbg "the following error happen: $errStat" 3 + dbg "the following error happen: $errStat" msg_level_critical } } else { htmlErrorMsg "No column $columnname in the table $table" |