From 494e45d4f08841bd9b2d56f3ced8418f8aa1d008 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Mon, 24 Jan 2011 21:34:30 -0500
Subject: all shared procs move to library file

Ignore-this: 75e219cb44fc45e281a42d514cf2600f

darcs-hash:20110125023430-067c0-ed0225f6b7d24c31e9f8eb4498a04191abf7f355.gz
---
 AddDummyUsers2db.tcl | 23 +----------------------
 1 file changed, 1 insertion(+), 22 deletions(-)

(limited to 'AddDummyUsers2db.tcl')

diff --git a/AddDummyUsers2db.tcl b/AddDummyUsers2db.tcl
index 3eaeef2..2861b45 100755
--- a/AddDummyUsers2db.tcl
+++ b/AddDummyUsers2db.tcl
@@ -5,6 +5,7 @@ exec tclsh "$0" "$@"
 
 package require sqlite3
 package require md5
+source ./GradeBook_lib.tcl
 
 set class [lindex $argv 0] 
 if { $class eq "" } {
@@ -15,28 +16,6 @@ set dbfile $class
 
 sqlite3 db $dbfile
 
-proc dbg {msg {level 1}} {
-	if { $level <=2 } {
-		set fid [open log a+]
-		puts $fid $msg 
-		close $fid
-	}
-}
-
-proc htmlErrorMsg { msg } {
-			puts "<div class=\"errormsg\">error: $msg</div>"
-}
-
-proc AddUserNonWeb { first_name last_name user_name password_hash {group_name {guest}} {id_number {}} {section_num {} } } {
-	set eval_str [concat INSERT INTO GradesTable (FirstName, LastName, UserName, PasswordHash, GroupName, IdNum, SectionNum) VALUES('$first_name', '$last_name', '$user_name', '$password_hash', '$group_name', '$id_number', '$section_num')]
-	set err [catch {db eval $eval_str  } errStat]
-	if { $err } {
-		htmlErrorMsg  $errStat 
-		dbg  "the following error happen: $errStat" 3
-	} 
-}
-
-
 #AddUserNonWeb  first_name last_name user_name password_hash group_name id_number section_num i
 # dummy users
 #AddUserNonWeb Ins "Instruch I"  instructor [::md5::md5 -hex qwerty] instructor 
-- 
cgit v1.2.3