diff options
| -rwxr-xr-x | GradeBook_lib.tcl | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index d6f6c5d..4ecb910 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -2630,19 +2630,25 @@ proc htmlDefaultView { permission_list user } { } proc htmlHeader {} { -puts { + set CourseTitle [SelectItemFromCourseInfoTable course_title] + set CourseYear [SelectItemFromCourseInfoTable course_year] + set CourseSemester [SelectItemFromCourseInfoTable course_semester] + set page_title "Course grades for $CourseTitle, $CourseYear - $CourseSemester" + +puts {<!doctype html> <html xmlns="http://www.w3.org/1999/xhtml"> -<head> - <meta http-equiv="Content-Type" content= "text/html; charset=us-ascii" /> - <meta name="viewport" content="width=device-width, initial-scale=1.0"> - <title>Grade Book</title> - <link rel="stylesheet" type="text/css" href="/~evmik/GradeBook.css" /> +<head>} +puts [join [list { } {<title>} $page_title {</title>}] ""] +puts {\ + <meta http-equiv="Content-Type" content= "text/html; charset=us-ascii" /> + <meta name="viewport" content="width=device-width, initial-scale=1.0"> + <link rel="stylesheet" type="text/css" href="/~evmik/GradeBook.css" /> </head> } } proc htmlHeaderDBSelector {} { -puts { +puts {<!doctype html> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content= "text/html; charset=us-ascii" /> |