diff options
| -rwxr-xr-x | GradeBook.tcl | 59 |
1 files changed, 56 insertions, 3 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 08d8a58..7df3c76 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -79,8 +79,8 @@ proc CreateAccessRightsTable {db} { db eval {INSERT INTO AccessRightsTable VALUES('addcolumn', 1, 1, 0, 0)} db eval {INSERT INTO AccessRightsTable VALUES('deletecolumn', 1, 1, 0, 0)} db eval {INSERT INTO AccessRightsTable VALUES('renamecolumn', 1, 1, 0, 0)} - db eval {INSERT INTO AccessRightsTable VALUES('editcolumn', 1, 1, 0, 0)} db eval {INSERT INTO AccessRightsTable VALUES('showcontrols', 1, 1, 0, 0)} + db eval {INSERT INTO AccessRightsTable VALUES('changegrades', 1, 1, 0, 0)} } proc htmlDBout {db permission_list {sort_col {}}} { @@ -113,7 +113,7 @@ proc htmlDBout {db permission_list {sort_col {}}} { foreach col $v(*) { puts -nonewline "<th><a href=$script_name?action=sort&sortCol=$col>$col</a>" # below list has action and action_label pairs - set action_list [list editcolumn edit deletecolumn delete renamecolumn rename] + set action_list [list changegrades "change grades" deletecolumn delete renamecolumn rename] set separator {<br>} foreach {act act_label} $action_list { if { [info exist permission($act) ] } { @@ -243,7 +243,7 @@ proc isActionGranted { action permission_list user } { proc ChoseAction {action permission_list user} { array set permission $permission_list - dbg "requested action: $action" 3 + dbg "requested action: $action" 1 if { [isActionGranted $action $permission_list $user] } { switch $action { sort { SetSortColumn; ChoseAction defaultview $permission_list $user } @@ -256,6 +256,7 @@ proc ChoseAction {action permission_list user} { DeleteColumn $permission_list $user; htmlDefaultView $permission_list $user } + changegrades { ChangeGrades $permission_list $user } renamecolumn { } showcontrols { ShowControls $permission_list $user } showgrades { htmlGradesTable db $permission_list $user } @@ -265,6 +266,58 @@ proc ChoseAction {action permission_list user} { } } + +proc ChangeGrades { permission_list user } { + global script_name + set columnname [::ncgi::value columnname {}] + if { $columnname != "" } { + # output only selected columns + set column_list {} + lappend column_list FirstName LastName + lappend column_list \"$columnname\" + set sql_column_list [join $column_list ","] + # output only selected columns + set eval_str "SELECT $sql_column_list FROM GradesTable ORDER BY LastName" + set show_header 1 + set err [catch { + db eval $eval_str v { + if { $show_header } { + set show_header 0 + puts {<table border="1">} + puts "<tr>" + foreach col $v(*) { + puts -nonewline "<th>$col</th>" + } + puts "<tr>" + } else { + puts "<tr>" + } + foreach index $v(*) { + if { $index != "*" } { + puts -nonewline "<td>$v($index)</td>" + } + } + puts "</tr>" + } + } errStat ] + puts "</table>" + if { $err } { + puts "the following error happen: $errStat" + dbg "the following error happen: $errStat" 3 + } + puts "<form name=\"input\" action=\"$script_name\" method=\"post\" />" + #puts {<input type="hidden" name="action" value="updategrades"/>} + puts {Column Name: <input type="text" name="columnname2add"><br>} + puts {<input type="submit" name="action" value="Cancel" />} + puts {<input type="submit" name="action" value="Submit" />} + puts {</form>} + puts "<a href=\"$script_name\">Cancel changes</a>" + + } else { + puts "error: empty column names are not permitted" + } +} + proc DeleteColumn { permission_list user } { global script_name set columnname [::ncgi::value columnname {}] |