[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 1359 Revision 1360
… …
460 my $help = "$ce->{webworkURLs}->{docs}?" . $self->url_authen_args(); 460 my $help = "$ce->{webworkURLs}->{docs}?" . $self->url_authen_args();
461 my $logout = "$root/$courseName/logout/?" . $self->url_authen_args(); 461 my $logout = "$root/$courseName/logout/?" . $self->url_authen_args();
462 462
463 return join("", 463 return join("",
464 CGI::a({-href=>$probSets}, "Problem Sets"), CGI::br(), 464 CGI::a({-href=>$probSets}, "Problem Sets"), CGI::br(),
465 ($permLevel > 0
466 ? join("",
467 CGI::a({-href=>$instructor}, "Instructor") , CGI::br(),
468 CGI::a({-href=>$sets}, "  SetList") , CGI::br(),
469 CGI::a({-href=>$users}, "  ClassList") , CGI::br(),)
470 : ""
471 ),
472 CGI::a({-href=>$prefs}, "User Prefs"), CGI::br(), 465 CGI::a({-href=>$prefs}, "User Prefs"), CGI::br(),
473 CGI::a({-href=>$help}, "Help"), CGI::br(), 466 CGI::a({-href=>$help}, "Help"), CGI::br(),
474 CGI::a({-href=>$logout}, "Log Out"), CGI::br(), 467 CGI::a({-href=>$logout}, "Log Out"), CGI::br(),
468 ($permLevel > 0
469 ? join("",
470 CGI::hr(),
471 CGI::a({-href=>$instructor}, "Instructor") , CGI::br(),
472 '  ',CGI::a({-href=>$sets}, "Set List") , CGI::br(),
473 '  ',CGI::a({-href=>$users}, "Class List") , CGI::br(),)
474 : ""
475 ),
475 ); 476 );
476} 477}
477 478
478# &if_can will return 1 if the current object->can("do $_[1]") 479# &if_can will return 1 if the current object->can("do $_[1]")
479sub if_can ($$) { 480sub if_can ($$) {
Legend:
Removed from v.1359  
changed lines
  Added in v.1360
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9