diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2014-09-05 09:43:47 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2014-09-05 09:43:47 -0400 |
| commit | 527533f77f68d533aa4707a372a5502ed94b9fb6 (patch) | |
| tree | c9b4ad820248cc0f30c34315581a6db382f3eb2d /GradeBook_lib.tcl | |
| parent | e247fb950768ae2c93c49d7b2ba07cb742cfee5f (diff) | |
| download | GradeBook-527533f77f68d533aa4707a372a5502ed94b9fb6.tar.gz GradeBook-527533f77f68d533aa4707a372a5502ed94b9fb6.zip | |
added expanded class info for the html title
Diffstat (limited to 'GradeBook_lib.tcl')
| -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" /> |