| … | |
… | |
| 101 | ## initialize hashes and load up data |
101 | ## initialize hashes and load up data |
| 102 | |
102 | |
| 103 | my $all = &uniqueCourseName(); |
103 | my $all = &uniqueCourseName(); |
| 104 | &initializeAndLoadUp(\@sectionNameArray,$all); |
104 | &initializeAndLoadUp(\@sectionNameArray,$all); |
| 105 | |
105 | |
|
|
106 | my $up_page = 'profLogin.pl'; |
|
|
107 | $up_page = 'TALogin.pl' if $permissions == $Global::TA_permissions; |
|
|
108 | |
| 106 | # begin printing HTML text |
109 | # begin printing HTML text |
| 107 | print &htmlTOP("WeBWorK Course Data"); |
110 | print &htmlTOP("WeBWorK Course Data"); |
| 108 | |
111 | |
| 109 | # print navigation buttons |
112 | # print navigation buttons |
| 110 | print qq! |
113 | print qq! |
| 111 | <A HREF="${cgiURL}profLogin.pl?user=$inputs{'user'}&key=$inputs{'key'}&course=$inputs{'course'}"> |
114 | <A HREF="${cgiURL}${up_page}?user=$inputs{'user'}&key=$inputs{'key'}&course=$inputs{'course'}"> |
| 112 | <IMG SRC="${Global::upImgUrl}" align="right" BORDER=1 ALT="[Up]"></A><p> |
115 | <IMG SRC="${Global::upImgUrl}" align="right" BORDER=1 ALT="[Up]"></A><p> |
| 113 | !; |
116 | !; |
| 114 | |
117 | |
| 115 | print <<EOF; |
118 | print <<EOF; |
| 116 | <HR><BR> |
119 | <HR><BR> |