| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/ProblemSets.pm,v 1.36 2004/01/16 00:43:06 gage Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/ProblemSets.pm,v 1.37 2004/01/18 00:11:13 gage Exp $ |
| 5 | # |
5 | # |
| 6 | # This program is free software; you can redistribute it and/or modify it under |
6 | # This program is free software; you can redistribute it and/or modify it under |
| 7 | # the terms of either: (a) the GNU General Public License as published by the |
7 | # the terms of either: (a) the GNU General Public License as published by the |
| 8 | # Free Software Foundation; either version 2, or (at your option) any later |
8 | # Free Software Foundation; either version 2, or (at your option) any later |
| 9 | # version, or (b) the "Artistic License" which comes with this package. |
9 | # version, or (b) the "Artistic License" which comes with this package. |
| … | |
… | |
| 61 | my $permissionLevel = $db->getPermissionLevel($user)->permission(); # checked??? |
61 | my $permissionLevel = $db->getPermissionLevel($user)->permission(); # checked??? |
| 62 | $permissionLevel = 0 unless defined $permissionLevel; |
62 | $permissionLevel = 0 unless defined $permissionLevel; |
| 63 | my $root = $ce->{webworkURLs}->{root}; |
63 | my $root = $ce->{webworkURLs}->{root}; |
| 64 | my $courseName = $ce->{courseName}; |
64 | my $courseName = $ce->{courseName}; |
| 65 | |
65 | |
| 66 | ################################################### |
|
|
| 67 | # Print link to instructor page for instructors |
66 | # Print link to instructor page for instructors |
| 68 | ################################################### |
|
|
| 69 | if ($permissionLevel >= 10 ) { |
67 | if ($permissionLevel >= 10 ) { |
| 70 | |
68 | |
| 71 | my $instructorLink = "$root/$courseName/instructor/?" . $self->url_authen_args(); |
69 | my $instructorLink = "$root/$courseName/instructor/?" . $self->url_authen_args(); |
| 72 | print CGI::p({-align=>'center'},CGI::a({-href=>$instructorLink},'Link to Instructor Tools')); |
70 | print CGI::p({-align=>'center'},CGI::a({-href=>$instructorLink},'Instructor Tools')); |
| 73 | } |
71 | } |
| 74 | ################################################### |
|
|
| 75 | # Print message of the day motd |
72 | # Print message of the day (motd) |
| 76 | ################################################### |
|
|
| 77 | if (defined $ce->{courseFiles}->{motd} |
73 | if (defined $ce->{courseFiles}->{motd} |
| 78 | and $ce->{courseFiles}->{motd}) { |
74 | and $ce->{courseFiles}->{motd}) { |
| 79 | my $motd = eval { readFile($ce->{courseFiles}->{motd}) }; |
75 | my $motd = eval { readFile($ce->{courseFiles}->{motd}) }; |
| 80 | $@ or print $motd; |
76 | $@ or print $motd; |
| 81 | } |
77 | } |
| … | |
… | |
| 115 | print CGI::end_table(); |
111 | print CGI::end_table(); |
| 116 | my $pl = ($permissionLevel > 0 ? "s" : ""); |
112 | my $pl = ($permissionLevel > 0 ? "s" : ""); |
| 117 | print CGI::p(CGI::submit("hardcopy", "Download Hardcopy for Selected Set$pl")); |
113 | print CGI::p(CGI::submit("hardcopy", "Download Hardcopy for Selected Set$pl")); |
| 118 | print CGI::endform(); |
114 | print CGI::endform(); |
| 119 | |
115 | |
| 120 | # feedback form |
116 | # feedback form url |
| 121 | my $feedbackURL = "$root/$courseName/feedback/"; |
117 | my $feedbackURL = "$root/$courseName/feedback/"; |
| 122 | |
|
|
| 123 | |
118 | |
| 124 | #print feedback form |
119 | #print feedback form |
| 125 | print |
120 | print |
| 126 | CGI::start_form(-method=>"POST", -action=>$feedbackURL),"\n", |
121 | CGI::start_form(-method=>"POST", -action=>$feedbackURL),"\n", |
| 127 | $self->hidden_authen_fields,"\n", |
122 | $self->hidden_authen_fields,"\n", |
Parent Directory
| 
Revision Log
| 
Patch