[system] / trunk / webwork2 / lib / WeBWorK / ContentGenerator.pm Repository:
ViewVC logotype

Diff of /trunk/webwork2/lib/WeBWorK/ContentGenerator.pm

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

Revision 1360 Revision 1374
… …
454 # URLs to parts of the system 454 # URLs to parts of the system
455 my $probSets = "$root/$courseName/?" . $self->url_authen_args(); 455 my $probSets = "$root/$courseName/?" . $self->url_authen_args();
456 my $prefs = "$root/$courseName/options/?" . $self->url_authen_args(); 456 my $prefs = "$root/$courseName/options/?" . $self->url_authen_args();
457 my $instructor = "$root/$courseName/instructor/?" . $self->url_authen_args(); 457 my $instructor = "$root/$courseName/instructor/?" . $self->url_authen_args();
458 my $sets = "$root/$courseName/instructor/sets/?" . $self->url_authen_args(); 458 my $sets = "$root/$courseName/instructor/sets/?" . $self->url_authen_args();
459 my $users = "$root/$courseName/instructor/users?" . $self->url_authen_args(); 459 my $users = "$root/$courseName/instructor/users/?" . $self->url_authen_args();
460 my $email = "$root/$courseName/instructor/send_mail/?" . $self->url_authen_args();
460 my $help = "$ce->{webworkURLs}->{docs}?" . $self->url_authen_args(); 461 my $help = "$ce->{webworkURLs}->{docs}?" . $self->url_authen_args();
461 my $logout = "$root/$courseName/logout/?" . $self->url_authen_args(); 462 my $logout = "$root/$courseName/logout/?" . $self->url_authen_args();
462 463
463 return join("", 464 return join("",
464 CGI::a({-href=>$probSets}, "Problem Sets"), CGI::br(), 465 CGI::a({-href=>$probSets}, "Problem Sets"), CGI::br(),
465 CGI::a({-href=>$prefs}, "User Prefs"), CGI::br(), 466 CGI::a({-href=>$prefs}, "User Prefs"), CGI::br(),
466 CGI::a({-href=>$help}, "Help"), CGI::br(), 467 CGI::a({-href=>$help}, "Help"), CGI::br(),
467 CGI::a({-href=>$logout}, "Log Out"), CGI::br(), 468 CGI::a({-href=>$logout}, "Log Out"), CGI::br(),
468 ($permLevel > 0 469 ($permLevel > 0
469 ? join("", 470 ? join("",
470 CGI::hr(), 471 CGI::hr(),
471 CGI::a({-href=>$instructor}, "Instructor") , CGI::br(), 472 CGI::a({-href=>$instructor}, "Instructor") , CGI::br(),
472 '  ',CGI::a({-href=>$sets}, "Set List") , CGI::br(), 473 '  ',CGI::a({-href=>$sets}, "Set List") , CGI::br(),
473 '  ',CGI::a({-href=>$users}, "Class List") , CGI::br(),) 474 '  ',CGI::a({-href=>$users}, "Class List") , CGI::br(),
475 '  ',CGI::a({-href=>$email}, "Send Email") , CGI::br(),
476
474 : "" 477 ) : ""
475 ), 478 ),
476 ); 479 );
477} 480}
478 481
479# &if_can will return 1 if the current object->can("do $_[1]") 482# &if_can will return 1 if the current object->can("do $_[1]")
Legend:
Removed from v.1360  
changed lines
  Added in v.1374
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9