| 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/Instructor/SetMaker.pm,v 1.7 2004/05/07 21:04:07 jj Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.11 2004/05/15 19:13:43 jj 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 | |
46 | |
| 47 | sub adderrmsg { |
47 | sub adderrmsg { |
| 48 | my $self = shift; |
48 | my $self = shift; |
| 49 | my $msg = shift; |
49 | my $msg = shift; |
| 50 | $self->addmessage(CGI::div({class=>"ResultsWithError"}, $msg)); |
50 | $self->addmessage(CGI::div({class=>"ResultsWithError"}, $msg)); |
| 51 | } |
|
|
| 52 | |
|
|
| 53 | sub addgoodmsg { |
|
|
| 54 | my $self = shift; |
|
|
| 55 | my $msg = shift; |
|
|
| 56 | $self->addmessage(CGI::div({class=>"ResultsWithoutError"}, $msg)); |
|
|
| 57 | } |
51 | } |
| 58 | |
52 | |
| 59 | |
53 | |
| 60 | ## This is for searching the disk for directories containing pg files. |
54 | ## This is for searching the disk for directories containing pg files. |
| 61 | ## to make the recursion work, this returns an array where the first |
55 | ## to make the recursion work, this returns an array where the first |
| … | |
… | |
| 223 | sub browse_library_panel { |
217 | sub browse_library_panel { |
| 224 | my $self = shift; |
218 | my $self = shift; |
| 225 | my $r = $self->r; |
219 | my $r = $self->r; |
| 226 | my $ce = $r->ce; |
220 | my $ce = $r->ce; |
| 227 | |
221 | |
| 228 | my $libraryRoot = $r->{ce}->{webworkDirs}->{libraryRoot}; |
222 | my $libraryRoot = $r->{ce}->{problemLibrary}->{root}; |
| 229 | |
223 | |
| 230 | unless($libraryRoot) { |
224 | unless($libraryRoot) { |
| 231 | print CGI::Tr(CGI::td(CGI::div({class=>'ResultsWithError', align=>"center"}, |
225 | print CGI::Tr(CGI::td(CGI::div({class=>'ResultsWithError', align=>"center"}, |
| 232 | "The problem library has not been installed."))); |
226 | "The problem library has not been installed."))); |
| 233 | return; |
227 | return; |
Parent Directory
| 
Revision Log
| 
Patch