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


# insert into GradesTable missing crucial columns according to the latest specification
package require sqlite3
package require md5
source ./GradeBook_lib.tcl

if { $argc < 1 } {	
	puts {Usage:}
	puts "$argv0 database_name"
	exit
}

set dbfile [lindex $argv 0] 
puts $dbfile

sqlite3 db $dbfile

set present_columns [getColListFromTable GradesTable]
foreach {col sqltype} [GetDefaultGradesTableColumn] {
	if { $col ni $present_columns } {
		AddColumnNonWeb $col {} {} $sqltype
	}
}

CreateGradesCategoryTable db

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