#!/bin/sh
# (C) 2011 by Eugeniy Mikhailov, <evgmik@gmail.com>
# vim:set ft=tcl: \
exec tclsh "$0" "$@"

package require sqlite3
package require md5
source ./profiler.tcl
source ./GradeBook_lib.tcl

if { $argc < 1 } {	
	puts {tests built in library functions}
	puts {Usage:}
	puts "  $argv0 database_name" 
	puts {}
	puts {Example:}
	puts [concat "  $argv0" { 2013_Spring_Phys742}]
	exit
}

set dbfile [lindex $argv 0] 
sqlite3 db $dbfile

	set eval_str [concat BEGIN TRANSACTION]
	set err [catch {db eval $eval_str  } errStat]
	if { $err } {
		htmlErrorMsg  $errStat 
		dbg  "the following error happen: $errStat" msg_level_critical
	} 

calculteWeightedTotals

	set eval_str [concat END TRANSACTION]
	set err [catch {db eval $eval_str  } errStat]
	if { $err } {
		htmlErrorMsg  $errStat 
		dbg  "the following error happen: $errStat" msg_level_critical
	} 

global TimeProfilerMode
if { [info exists TimeProfilerMode] } {
	TimeProfilerDump description
 }

db close

# vim: ts=2 sw=2 foldmethod=indent: