diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-03-09 16:33:51 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-03-09 16:33:51 -0500 |
| commit | 4e179746ae554204a6292b4dd67d577806a5096a (patch) | |
| tree | 694923cd7b05514482ff5d43f1e9a2152d8651e1 /update_access_right_table.tcl | |
| parent | 0b5201816380c944b6872875c408f442219ac586 (diff) | |
| download | GradeBook-4e179746ae554204a6292b4dd67d577806a5096a.tar.gz GradeBook-4e179746ae554204a6292b4dd67d577806a5096a.zip | |
removed douplicated functionality
Ignore-this: dedbc465bc9c2b63c17ab9a7e8f8ee12
darcs-hash:20110309213351-067c0-68ca3827387722402b9aee10633b0d0a216cbdc8.gz
Diffstat (limited to 'update_access_right_table.tcl')
| -rwxr-xr-x | update_access_right_table.tcl | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/update_access_right_table.tcl b/update_access_right_table.tcl deleted file mode 100755 index bc6da2c..0000000 --- a/update_access_right_table.tcl +++ /dev/null @@ -1,30 +0,0 @@ -#!/bin/sh -# FILE: "/home/evmik/src/my_src/GradeBook/update_access_right_table.tcl" -# LAST MODIFICATION: "Wed, 02 Feb 2011 12:03:18 -0500 (evmik)" -# (C) 2011 by Eugeniy Mikhailov, <evgmik@gmail.com> -# $Id:$ -# vim:set ft=tcl: \ -exec tclsh "$0" "$@" - -package require sqlite3 -package require md5 -source ./GradeBook_lib.tcl - -if { $argc < 1 } { - puts {Updates access rights table according to the new library defaults.} - puts {Usage:} - puts "$argv0 database_name" - exit -} - -set dbfile [lindex $argv 0] -sqlite3 db $dbfile - -if { [catch {db eval {drop table AccessRightsTable}} errMsg ] } { - puts "The following error happened: $errMsg" -} -CreateAccessRightsTable db - -db close - -# vim: ts=2 sw=2 foldmethod=indent: |