| 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: webwork2/lib/WeBWorK/ContentGenerator/Problem.pm,v 1.189 2005/12/06 19:56:31 sh002i Exp $ |
4 | # $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator/Problem.pm,v 1.190 2005/12/15 19:42:28 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. |
| … | |
… | |
| 695 | my $courseID = $urlpath->arg("courseID"); |
695 | my $courseID = $urlpath->arg("courseID"); |
| 696 | my $setID = $self->{set}->set_id; |
696 | my $setID = $self->{set}->set_id; |
| 697 | my $eUserID = $r->param("effectiveUser"); |
697 | my $eUserID = $r->param("effectiveUser"); |
| 698 | my @problemIDs = sort { $a <=> $b } $db->listUserProblems($eUserID, $setID); |
698 | my @problemIDs = sort { $a <=> $b } $db->listUserProblems($eUserID, $setID); |
| 699 | |
699 | |
| 700 | print CGI::start_ul({class=>"LinksMenu"}); |
700 | #print CGI::start_ul({class=>"LinksMenu"}); |
| 701 | print CGI::start_li(); |
701 | #print CGI::start_li(); |
| 702 | print CGI::span({style=>"font-size:larger"}, "Problems"); |
702 | #print CGI::span({style=>"font-size:larger"}, "Problems"); |
| 703 | print CGI::start_ul(); |
703 | print CGI::start_ul(); |
| 704 | |
704 | |
| 705 | foreach my $problemID (@problemIDs) { |
705 | foreach my $problemID (@problemIDs) { |
| 706 | my $problemPage = $urlpath->newFromModule("WeBWorK::ContentGenerator::Problem", |
706 | my $problemPage = $urlpath->newFromModule("WeBWorK::ContentGenerator::Problem", |
| 707 | courseID => $courseID, setID => $setID, problemID => $problemID); |
707 | courseID => $courseID, setID => $setID, problemID => $problemID); |
| … | |
… | |
| 711 | })}, "Problem $problemID") |
711 | })}, "Problem $problemID") |
| 712 | ); |
712 | ); |
| 713 | } |
713 | } |
| 714 | |
714 | |
| 715 | print CGI::end_ul(); |
715 | print CGI::end_ul(); |
| 716 | print CGI::end_li(); |
716 | #print CGI::end_li(); |
| 717 | print CGI::end_ul(); |
717 | #print CGI::end_ul(); |
| 718 | |
718 | |
| 719 | return ""; |
719 | return ""; |
| 720 | } |
720 | } |
| 721 | |
721 | |
| 722 | sub nav { |
722 | sub nav { |
Parent Directory
| 
Revision Log
| 
Patch