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

package require sqlite3
package require md5
package require json::write
source ./GradeBook_lib.tcl

if { $argc < 5 } {	
	puts {Usage:}
	puts "  $argv0 database_name instructor_login Year  Semester Class_Title \[instructor_first_name\] \[instructor_last_name\]"
	puts {}
	puts {Example:}
	puts [concat "  $argv0" { 2013_Spring_Phys742 eemikh@wm.edu  2013 Spring "Physics 742 - Solid State Physics" Eugeniy Mikhailov}]
	exit
}

set dbfile [lindex $argv 0] 
set instructor_login [lindex $argv 1] 

if { $argc >= 3 } {
	set course_year  [lindex $argv 2] 
} else {
	set course_year {Year Unset}
}

if { $argc >= 4 } {
	set course_semester  [lindex $argv 3] 
} else {
	set course_semester {Semester Unset}
}

if { $argc >= 5 } {
	set course_title  [lindex $argv 4] 
} else {
	set course_title {Title Unset}
}

if { $argc >= 6 } {
	set instructor_fname  [lindex $argv 5] 
} else {
	set instructor_fname {}
}

if { $argc >= 7 } {
	set instructor_lname  [lindex $argv 6] 
} else {
	set instructor_lname {}
}

sqlite3 db $dbfile


CreateCourseInfoTable db
CreateGradesTable db
CreateAccessRightsTable db
CreateGradesCategoryTable db

#AddUserNonWeb  first_name last_name user_name group_name id_number section_num i
AddUserNonWeb  $instructor_fname  $instructor_lname $instructor_login  instructor 

# reasonable defaults for hidden columns
set instructor_hidden_columns [list UserHiddenColums UserHiddenGroups IdNum UserHiddenGradeCategories]
UpdateColValue4GroupNameNonWeb UserHiddenColums instructor $instructor_hidden_columns

# change default course information
UpdateCourseInfoTableItem course_title    $course_title
UpdateCourseInfoTableItem course_year     $course_year
UpdateCourseInfoTableItem course_semester $course_semester

UpdateColValue4UserNameNonWeb UserHiddenGroups $instructor_login 	inforow

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