| 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/Problem.pm,v 1.134 2004/05/24 01:03:05 sh002i Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Problem.pm,v 1.135 2004/05/24 02:01:25 dpvc 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. |
| … | |
… | |
| 411 | |
411 | |
| 412 | print CGI::start_ul({class=>"LinksMenu"}); |
412 | print CGI::start_ul({class=>"LinksMenu"}); |
| 413 | print CGI::start_li(); |
413 | print CGI::start_li(); |
| 414 | print CGI::span({style=>"font-size:larger"}, "Problems"); |
414 | print CGI::span({style=>"font-size:larger"}, "Problems"); |
| 415 | print CGI::start_ul(); |
415 | print CGI::start_ul(); |
| 416 | |
416 | |
| 417 | foreach my $problemID (@problemIDs) { |
417 | foreach my $problemID (@problemIDs) { |
| 418 | my $problemPage = $urlpath->newFromModule("WeBWorK::ContentGenerator::Problem", |
418 | my $problemPage = $urlpath->newFromModule("WeBWorK::ContentGenerator::Problem", |
| 419 | courseID => $courseID, setID => $setID, problemID => $problemID); |
419 | courseID => $courseID, setID => $setID, problemID => $problemID); |
| 420 | print CGI::li(CGI::a({href=>$self->systemLink($problemPage)}, "Problem $problemID")); |
420 | print CGI::li(CGI::a({href=>$self->systemLink($problemPage, params=>{displayMode => $self->{displayMode}})}, "Problem $problemID")); |
| 421 | } |
421 | } |
| 422 | |
422 | |
| 423 | print CGI::end_ul(); |
423 | print CGI::end_ul(); |
| 424 | print CGI::end_li(); |
424 | print CGI::end_li(); |
| 425 | print CGI::end_ul(); |
425 | print CGI::end_ul(); |