low level table operations moved to separate routine

Ignore-this: be0109b9771cb2b8ec28491b8d3154bc

darcs-hash:20110416000432-067c0-c8a54be0240ab9773121708e65d8835d6a769535.gz

1 files changed, 3 insertions, 61 deletions

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index cc455da..267af15 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -5,6 +5,9 @@ exec tclsh "$0" "$@"
 
 # require Tcl version of at least 8.5 since I use 'ni' and 'in' in expressions for lists
 package require Tcl 8.5
+
+source ./libBasicTableOperations.tcl
+
 # internal version of this code
 set VERSION 1.5.0
 
@@ -74,67 +77,6 @@ proc isCalculateTotalForCategorySet { category } {
 	return $flag
 }
 
-proc getColListFromTable {table} {
-	set eval_str [concat SELECT * FROM \'$table\']
-	set err [catch {
-		db eval $eval_str v {
-			set all_column_names $v(*)
-			}
-		} errStat ]
-		if { $err } {
-			dbg "we should never be here if GradesTable exists" 1
-			dbg $errStat 1
-			htmlErrorMsg $errStat
-		}
-	return $all_column_names	
-}
-
-proc SelectColvalueFromTable { table  column_of_interest col row_value } {
-	# select value of 'column_of_interest' from 'table' where 'col'='row_value'
-	set value {}
-	set eval_str "SELECT \"$column_of_interest\"  FROM \'$table\'  WHERE \"$col\"=\"$row_value\""
-	set err [catch {
-		db eval $eval_str v {
-			set value $v($column_of_interest)
-		}
-	} errStat ]
-	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
-		set $value {}
-	} 
-	return $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
-		return false
-	} else {
-		return true
-	}
-}
-
-proc UpdateColumnWithValueInTableWhere { table column val where_column row_value } {
-	set eval_str [concat UPDATE \'$table\' SET \"$column\"='$val' WHERE \"$where_column\"=\'$row_value\']
-	set err [catch {db eval $eval_str  } errStat]
-	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
-	} 
-}
-
-proc doesColumnExists {col  table} {
-	if { $col in [getColListFromTable $table] } { 
-		return true;
-	} else {
-		return false;
-	}
-}
-
 proc allUserNamesInGroup { group } {
 	set eval_str [concat SELECT UserName FROM \'GradesTable\' WHERE GroupName == \'$group\']
 	set username_list {}