| … | |
… | |
| 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 "") { |
Parent Directory
| 
Revision Log
| 
Patch