| 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.pm,v 1.73 2003/12/09 01:12:30 sh002i Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator.pm,v 1.74 2003/12/18 23:15:33 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. |
| … | |
… | |
| 542 | my $permLevel = (defined $PermissionLevel |
542 | my $permLevel = (defined $PermissionLevel |
| 543 | ? $PermissionLevel->permission() |
543 | ? $PermissionLevel->permission() |
| 544 | : 0); |
544 | : 0); |
| 545 | |
545 | |
| 546 | return join("", |
546 | return join("", |
| 547 | CGI::a({-href=>$probSets}, "Problem Sets"), CGI::br(), |
547 | CGI::div( {style=>'font-size:larger'},CGI::a({-href=>$probSets}, "Problem Sets") |
|
|
548 | ), |
| 548 | CGI::a({-href=>$prefs}, "User Prefs"), CGI::br(), |
549 | CGI::a({-href=>$prefs}, "User Prefs"), CGI::br(), |
| 549 | CGI::a({-href=>$help}, "Help"), CGI::br(), |
550 | CGI::a({-href=>$help,-target=>'_help_'}, "Help"), CGI::br(), |
| 550 | CGI::a({-href=>$logout}, "Log Out"), CGI::br(), |
551 | CGI::a({-href=>$logout}, "Log Out"), CGI::br(), |
| 551 | ($permLevel > 0 |
552 | ($permLevel > 0 |
| 552 | ? $self->instructor_links(@components) : "" |
553 | ? $self->instructor_links(@components) : "" |
| 553 | ), |
554 | ), |
| 554 | ); |
555 | ); |
| … | |
… | |
| 597 | # : ''; |
598 | # : ''; |
| 598 | #$setProb .= ':' . CGI::a({-href=>$probURL},$prob) if $setProb && $probURL; |
599 | #$setProb .= ':' . CGI::a({-href=>$probURL},$prob) if $setProb && $probURL; |
| 599 | |
600 | |
| 600 | return join("", |
601 | return join("", |
| 601 | CGI::hr(), |
602 | CGI::hr(), |
|
|
603 | CGI::div( {style=>'font-size:larger'}, |
| 602 | CGI::a({-href=>$instructor}, "Instructor Tools") , CGI::br(), |
604 | CGI::a({-href=>$instructor}, "Instructor Tools") |
|
|
605 | ), |
| 603 | ' ',CGI::a({-href=>$users}, "User List"), CGI::br(), |
606 | ' ',CGI::a({-href=>$users}, "User List"), CGI::br(), |
| 604 | ' ',CGI::a({-href=>$sets}, "Set List"), CGI::br(), |
607 | ' ',CGI::a({-href=>$sets}, "Set List"), CGI::br(), |
| 605 | $setLink, |
608 | $setLink, |
| 606 | $problemLink, |
609 | $problemLink, |
| 607 | ' ',CGI::a({-href=>$email}, "Mail Merge"), CGI::br(), |
610 | ' ',CGI::a({-href=>$email}, "Mail Merge"), CGI::br(), |
| 608 | ' ',CGI::a({-href=>$scoring}, "Scoring"), CGI::br(), |
611 | ' ',CGI::a({-href=>$scoring}, "Scoring"), CGI::br(), |
| 609 | ' ',CGI::a({-href=>$stats}, "Statistics"), CGI::br(), |
612 | ' ',CGI::a({-href=>$stats}, "Statistics"), CGI::br(), |
| 610 | (defined($set)) |
613 | (defined($set)) |
| 611 | ? ' '.CGI::a({-href=>"$statsRoot/set/$set/?".$self->url_authen_args}, "$set").CGI::br() |
614 | ? ' '.CGI::a({-href=>"$statsRoot/set/$set/?".$self->url_authen_args}, "$set").CGI::br() |
| 612 | : '', |
615 | : '', |
| 613 | (defined($userName)) |
616 | (defined($userName)) |
| 614 | ? ' '.CGI::a({-href=>"$statsRoot/student/$userName/?".$self->url_authen_args}, "$userName").CGI::br() |
617 | ? ' '.CGI::a({-href=>"$statsRoot/student/$userName/?".$self->url_authen_args}, "$userName").CGI::br() |
| 615 | : '', |
618 | : '', |
| 616 | ' ',CGI::a({-href=>$fileXfer}, "File Transfer"), CGI::br(), |
619 | ' ',CGI::a({-href=>$fileXfer}, "File Transfer"), CGI::br(), |
| 617 | ); |
620 | ); |
| 618 | } |
621 | } |
| 619 | |
622 | |
| 620 | # &if_can will return 1 if the current object->can("do $_[1]") |
623 | # &if_can will return 1 if the current object->can("do $_[1]") |
| 621 | sub if_can ($$) { |
624 | sub if_can ($$) { |
Parent Directory
| 
Revision Log
| 
Patch