diff options
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 597c518..45fdecb 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -132,13 +132,13 @@ proc htmlDBout {db permission_list user {sort_col {}}} { puts {<table class="gradestable" border="1">} puts "<tr>" foreach col $v(*) { - puts -nonewline "<th><a href=$script_name?action=sort&sortCol=$col>$col</a>" + 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 changegrades "change grades" deletecolumn delete renamecolumn rename changecolumn "change column"] set separator {<br>} foreach {act act_label} $action_list { if { [isActionGranted $act $permission_list $user] } { - puts -nonewline "$separator<a href=$script_name?action=$act&columnname=[::ncgi::encode $col]>$act_label</a>" + puts -nonewline "$separator<span class=\"controls\"><a href=\"$script_name?action=$act&columnname=[::ncgi::encode $col]\">$act_label</a></span>" } } puts -nonewline "</th>" |