blob: d577406058db3279bede6ff83281832aeaeb735b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/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
}
}
# vim: ts=2 sw=2 foldmethod=indent:
|
