From 77cf1b55e2dbcb2706f1c6783741d97f4e6e6b7d Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Fri, 5 Sep 2014 09:19:27 -0400
Subject: html out fixes: put quotes around hyperlink href

---
 GradeBook_lib.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'GradeBook_lib.tcl')

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index d41ecc0..d6f6c5d 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -1891,7 +1891,7 @@ proc UpdateCourseInfo { db permission_list user } {
 		UpdateCourseInfoTableItem course_year     $CourseYear
 		UpdateCourseInfoTableItem course_semester $CourseSemester
 	}
-	htmlInfoMsg "Please click <span class=\"controls\"><a href=$script_name?action=defaultview>Refresh</a></span> to see updated course info."
+	htmlInfoMsg "Please click <span class=\"controls\"><a href=\"$script_name?action=defaultview\">Refresh</a></span> to see updated course info."
 }
 
 proc UserHideGradeCategory {    permission_list  user } {
@@ -2448,7 +2448,7 @@ proc ShowControls { permission_list user } {
 	set separator { }
 	foreach {act act_label} $action_list {
 		if { [isActionGranted $act $permission_list $user] } {
-			puts -nonewline "$separator<span class=\"controls\"><a href=$script_name?action=$act>$act_label</a></span>"
+			puts -nonewline "$separator<span class=\"controls\"><a href=\"$script_name?action=$act\">$act_label</a></span>"
 		} 
 	}
 	puts "<br>"
-- 
cgit v1.2.3