[system] / trunk / webwork-modperl / lib / WeBWorK / ContentGenerator.pm Repository:
ViewVC logotype

Diff of /trunk/webwork-modperl/lib/WeBWorK/ContentGenerator.pm

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

Revision 1911 Revision 1918
… …
497 my $userID = $r->param("effectiveUser"); 497 my $userID = $r->param("effectiveUser");
498 my $setID = $urlpath->arg("setID"); 498 my $setID = $urlpath->arg("setID");
499 my $problemID = $urlpath->arg("problemID"); 499 my $problemID = $urlpath->arg("problemID");
500 500
501 my $instr = $urlpath->newFromModule("${ipfx}Index", %args); 501 my $instr = $urlpath->newFromModule("${ipfx}Index", %args);
502 my $addUsers = $urlpath->newFromModule("${ipfx}AddUsers", %args);
502 my $userList = $urlpath->newFromModule("${ipfx}UserList", %args); 503 my $userList = $urlpath->newFromModule("${ipfx}UserList", %args);
503 504
504 # set list links 505 # set list links
505 my $setList = $urlpath->newFromModule("${ipfx}ProblemSetList", %args); 506 my $setList = $urlpath->newFromModule("${ipfx}ProblemSetList", %args);
506 my $setDetail = $urlpath->newFromModule("${ipfx}ProblemSetEditor", %args, setID => $setID); 507 my $setDetail = $urlpath->newFromModule("${ipfx}ProblemSetEditor", %args, setID => $setID);
507 my $problemEditor = $urlpath->newFromModule("${ipfx}PGProblemEditor", %args, setID => $setID, problemID => $problemID); 508 my $problemEditor = $urlpath->newFromModule("${ipfx}PGProblemEditor", %args, setID => $setID, problemID => $problemID);
508 509
510 my $assigner = $urlpath->newFromModule("${ipfx}Assigner", %args);
509 my $mail = $urlpath->newFromModule("${ipfx}SendMail", %args); 511 my $mail = $urlpath->newFromModule("${ipfx}SendMail", %args);
510 my $scoring = $urlpath->newFromModule("${ipfx}Scoring", %args); 512 my $scoring = $urlpath->newFromModule("${ipfx}Scoring", %args);
511 513
512 # statistics links 514 # statistics links
513 my $stats = $urlpath->newFromModule("${ipfx}Stats", %args); 515 my $stats = $urlpath->newFromModule("${ipfx}Stats", %args);
… …
517 my $files = $urlpath->newFromModule("${ipfx}FileXfer", %args); 519 my $files = $urlpath->newFromModule("${ipfx}FileXfer", %args);
518 520
519 print CGI::start_li(); 521 print CGI::start_li();
520 print CGI::span({style=>"font-size:larger"}, CGI::a({href=>$self->systemLink($instr)}, $instr->name)); 522 print CGI::span({style=>"font-size:larger"}, CGI::a({href=>$self->systemLink($instr)}, $instr->name));
521 print CGI::start_ul(); 523 print CGI::start_ul();
524 print CGI::li(CGI::a({href=>$self->systemLink($addUsers)}, $addUsers->name));
522 print CGI::li(CGI::a({href=>$self->systemLink($userList)}, $userList->name)); 525 print CGI::li(CGI::a({href=>$self->systemLink($userList)}, $userList->name));
523 print CGI::start_li(); 526 print CGI::start_li();
524 print CGI::a({href=>$self->systemLink($setList)}, $setList->name); 527 print CGI::a({href=>$self->systemLink($setList)}, $setList->name);
525 if (defined $setID and $setID ne "") { 528 if (defined $setID and $setID ne "") {
526 print CGI::start_ul(); 529 print CGI::start_ul();
… …
533 } 536 }
534 print CGI::end_li(); 537 print CGI::end_li();
535 print CGI::end_ul(); 538 print CGI::end_ul();
536 } 539 }
537 print CGI::end_li(); 540 print CGI::end_li();
541 print CGI::li(CGI::a({href=>$self->systemLink($assigner)}, $assigner->name));
538 print CGI::li(CGI::a({href=>$self->systemLink($mail)}, $mail->name)); 542 print CGI::li(CGI::a({href=>$self->systemLink($mail)}, $mail->name));
539 print CGI::li(CGI::a({href=>$self->systemLink($scoring)}, $scoring->name)); 543 print CGI::li(CGI::a({href=>$self->systemLink($scoring)}, $scoring->name));
540 print CGI::start_li(); 544 print CGI::start_li();
541 print CGI::a({href=>$self->systemLink($stats)}, $stats->name); 545 print CGI::a({href=>$self->systemLink($stats)}, $stats->name);
542 if (defined $userID and $userID ne "") { 546 if (defined $userID and $userID ne "") {
Legend:
Removed from v.1911  
changed lines
  Added in v.1918
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9