| 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$ |
4 | # $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator/ProblemSets.pm,v 1.69 2006/01/20 00:21:14 sh002i 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. |
| … | |
… | |
| 46 | my $course_info = $ce->{courseFiles}->{course_info}; |
46 | my $course_info = $ce->{courseFiles}->{course_info}; |
| 47 | |
47 | |
| 48 | if (defined $course_info and $course_info) { |
48 | if (defined $course_info and $course_info) { |
| 49 | my $course_info_path = $ce->{courseDirs}->{templates} . "/$course_info"; |
49 | my $course_info_path = $ce->{courseDirs}->{templates} . "/$course_info"; |
| 50 | |
50 | |
|
|
51 | print CGI::start_div({class=>"info-box", id=>"InfoPanel"}); |
| 51 | print CGI::h2("Course Info"); |
52 | print CGI::h2("Course Info"); |
| 52 | |
53 | |
| 53 | # deal with instructor crap |
54 | # deal with instructor crap |
| 54 | my $editorURL; |
55 | my $editorURL; |
| 55 | if ($authz->hasPermissions($user, "access_instructor_tools")) { |
56 | if ($authz->hasPermissions($user, "access_instructor_tools")) { |
| … | |
… | |
| 74 | } |
75 | } |
| 75 | |
76 | |
| 76 | if ($editorURL) { |
77 | if ($editorURL) { |
| 77 | print CGI::div(CGI::a({href=>$editorURL, target=>"WW_Editor"}, "[edit]")); |
78 | print CGI::div(CGI::a({href=>$editorURL, target=>"WW_Editor"}, "[edit]")); |
| 78 | } |
79 | } |
|
|
80 | |
|
|
81 | print CGI::end_div(); |
| 79 | |
82 | |
| 80 | return ""; |
83 | return ""; |
| 81 | } |
84 | } |
| 82 | } |
85 | } |
| 83 | sub help { # non-standard help, since the file path includes the course name |
86 | sub help { # non-standard help, since the file path includes the course name |
Parent Directory
| 
Revision Log
| 
Patch