| 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/Instructor/Index.pm,v 1.22 2003/12/12 02:24:30 gage Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/Index.pm,v 1.23 2003/12/18 23:15:34 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. |
| … | |
… | |
| 350 | my $filexferURL = "files/?" . $self->url_args; |
350 | my $filexferURL = "files/?" . $self->url_args; |
| 351 | my $actionURL = $r->uri; |
351 | my $actionURL = $r->uri; |
| 352 | |
352 | |
| 353 | return CGI::em('You are not authorized to access the Instructor tools.') unless $authz->hasPermissions($user, 'access_instructor_tools'); |
353 | return CGI::em('You are not authorized to access the Instructor tools.') unless $authz->hasPermissions($user, 'access_instructor_tools'); |
| 354 | |
354 | |
| 355 | print join("", |
355 | |
| 356 | CGI::start_table({-border=>2,-cellpadding=>20}), |
|
|
| 357 | CGI::Tr({-align=>'center'}, |
|
|
| 358 | CGI::td( |
|
|
| 359 | CGI::a({href=>$userEditorURL}, "User List"), |
|
|
| 360 | ), |
|
|
| 361 | CGI::td( |
|
|
| 362 | CGI::a({href=>$problemSetEditorURL}, "Set List"), |
|
|
| 363 | |
|
|
| 364 | ),"\n", |
|
|
| 365 | ), |
|
|
| 366 | CGI::Tr({ -align=>'center'}, |
|
|
| 367 | CGI::td([ |
|
|
| 368 | CGI::a({-href=>$emailURL}, "Mail Merge"), |
|
|
| 369 | CGI::a({-href=>$scoringURL}, "Scoring"), |
|
|
| 370 | ]), |
|
|
| 371 | "\n", |
|
|
| 372 | ), |
|
|
| 373 | CGI::Tr({ -align=>'center'}, |
|
|
| 374 | CGI::td([ |
|
|
| 375 | CGI::a({-href=>$statsURL}, "Statistics"), |
|
|
| 376 | CGI::a({-href=>$emailURL}, "File Transfer"), |
|
|
| 377 | ]), |
|
|
| 378 | "\n", |
|
|
| 379 | ), |
|
|
| 380 | CGI::Tr({ -align=>'left'}, |
|
|
| 381 | CGI::td({-colspan=>2}, |
|
|
| 382 | CGI::a({-href=>$full_url}, 'WeBWorK 1.x Instructor Tools'), |
|
|
| 383 | " (" . CGI::a({-href=>$full_url, -target=>'_new'}, 'open in a new window') . ")", |
|
|
| 384 | ), |
|
|
| 385 | "\n", |
|
|
| 386 | ), |
|
|
| 387 | CGI::end_table(), |
|
|
| 388 | ); |
|
|
| 389 | |
356 | |
| 390 | print join("", |
357 | print join("", |
| 391 | CGI::h2("Quick access to commonly used instructor tools"), |
358 | CGI::h2("Quick access to commonly used instructor tools"), |
| 392 | CGI::start_form(-method=>"POST", -action=>$actionURL),"\n", |
359 | CGI::start_form(-method=>"POST", -action=>$actionURL),"\n", |
| 393 | $self->hidden_authen_fields,"\n", |
360 | $self->hidden_authen_fields,"\n", |
| … | |
… | |
| 456 | |
423 | |
| 457 | ), |
424 | ), |
| 458 | |
425 | |
| 459 | CGI::end_table(), |
426 | CGI::end_table(), |
| 460 | CGI::end_form() |
427 | CGI::end_form() |
|
|
428 | ); |
|
|
429 | print join("", |
|
|
430 | CGI::start_table({-border=>2,-cellpadding=>20}), |
|
|
431 | CGI::Tr({-align=>'center'}, |
|
|
432 | CGI::td([ |
|
|
433 | CGI::a({href=>$userEditorURL}, "User List"), |
|
|
434 | CGI::a({href=>$problemSetEditorURL}, "Set List"), |
|
|
435 | CGI::a({-href=>$emailURL}, "Mail Merge"), |
|
|
436 | CGI::a({-href=>$scoringURL}, "Scoring"), |
|
|
437 | CGI::a({-href=>$statsURL}, "Statistics"), |
|
|
438 | CGI::a({-href=>$emailURL}, "File Transfer"), |
|
|
439 | ]), |
|
|
440 | "\n", |
|
|
441 | ), |
|
|
442 | |
|
|
443 | # CGI::Tr({ -align=>'center'}, |
|
|
444 | # CGI::td([ |
|
|
445 | # |
|
|
446 | # ]), |
|
|
447 | # "\n", |
|
|
448 | # ), |
|
|
449 | CGI::Tr({ -align=>'left'}, |
|
|
450 | CGI::td({-colspan=>6}, |
|
|
451 | CGI::a({-href=>$full_url}, 'WeBWorK 1.x Instructor Tools'), |
|
|
452 | " (" . CGI::a({-href=>$full_url, -target=>'_new'}, 'open in a new window') . ")", |
|
|
453 | ), |
|
|
454 | "\n", |
|
|
455 | ), |
|
|
456 | CGI::end_table(), |
| 461 | ); |
457 | ); |
| 462 | } |
458 | } |
| 463 | sub addStudentForm { |
459 | sub addStudentForm { |
| 464 | my $self = shift; |
460 | my $self = shift; |
| 465 | my $r = $self->{r}; |
461 | my $r = $self->{r}; |
Parent Directory
| 
Revision Log
| 
Patch