[system] / branches / gage_dev / webwork2 / lib / WeBWorK / ContentGenerator / Problem.pm Repository:
ViewVC logotype

Diff of /branches/gage_dev/webwork2/lib/WeBWorK/ContentGenerator/Problem.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 1948 Revision 1949
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.117 2004/03/19 21:56:35 sh002i Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Problem.pm,v 1.118 2004/04/04 03:59:33 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.
… …
371 my $eUserID = $r->param("effectiveUser"); 371 my $eUserID = $r->param("effectiveUser");
372 my @problemIDs = sort { $a <=> $b } $db->listUserProblems($eUserID, $setID); 372 my @problemIDs = sort { $a <=> $b } $db->listUserProblems($eUserID, $setID);
373 373
374 print CGI::start_ul({class=>"LinksMenu"}); 374 print CGI::start_ul({class=>"LinksMenu"});
375 print CGI::start_li(); 375 print CGI::start_li();
376 print CGI::span({style=>"font-size:larger"}, "Problem Sets"); 376 print CGI::span({style=>"font-size:larger"}, "Problems");
377 print CGI::start_ul(); 377 print CGI::start_ul();
378 378
379 foreach my $problemID (@problemIDs) { 379 foreach my $problemID (@problemIDs) {
380 my $problemPage = $urlpath->newFromModule("WeBWorK::ContentGenerator::Problem", 380 my $problemPage = $urlpath->newFromModule("WeBWorK::ContentGenerator::Problem",
381 courseID => $courseID, setID => $setID, problemID => $problemID); 381 courseID => $courseID, setID => $setID, problemID => $problemID);
Legend:
Removed from v.1948  
changed lines
  Added in v.1949
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9