diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-19 22:15:06 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-19 22:15:06 -0500 |
| commit | b568b900b3da0d4bde551d9eefb61ea3ef4c33be (patch) | |
| tree | 2bb322df4a810ff3edd8c34b5200e7c2c95644f5 /GradeBook.tcl | |
| parent | 7cf90f5af1223a98fd7d663bef898a7df44dd60a (diff) | |
| download | GradeBook-b568b900b3da0d4bde551d9eefb61ea3ef4c33be.tar.gz GradeBook-b568b900b3da0d4bde551d9eefb61ea3ef4c33be.zip | |
quotes around href links
Ignore-this: 4809d1a7bd91dbdd7901f78d240661ca
darcs-hash:20110120031506-067c0-3eab9345b6ed44da2cd1fbe85b74bccde3e1b48d.gz
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>" |