| 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.99 2004/05/21 23:38:52 jj Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator.pm,v 1.100 2004/05/22 01:50:35 jj 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. |
| … | |
… | |
| 514 | |
514 | |
| 515 | # statistics links |
515 | # statistics links |
| 516 | my $stats = $urlpath->newFromModule("${ipfx}Stats", %args); |
516 | my $stats = $urlpath->newFromModule("${ipfx}Stats", %args); |
| 517 | my $userStats = $urlpath->newFromModule("${ipfx}Stats", %args, statType => "student", userID => $userID); |
517 | my $userStats = $urlpath->newFromModule("${ipfx}Stats", %args, statType => "student", userID => $userID); |
| 518 | my $setStats = $urlpath->newFromModule("${ipfx}Stats", %args, statType => "set", setID => $setID); |
518 | my $setStats = $urlpath->newFromModule("${ipfx}Stats", %args, statType => "set", setID => $setID); |
|
|
519 | |
|
|
520 | # progress links |
|
|
521 | my $progress = $urlpath->newFromModule("${ipfx}StudentProgress", %args); |
|
|
522 | my $userProgress = $urlpath->newFromModule("${ipfx}StudentProgress", %args, statType => "student", userID => $userID); |
|
|
523 | my $setProgress = $urlpath->newFromModule("${ipfx}StudentProgress", %args, statType => "set", setID => $setID); |
|
|
524 | |
| 519 | |
525 | |
| 520 | my $files = $urlpath->newFromModule("${ipfx}FileXfer", %args); |
526 | my $files = $urlpath->newFromModule("${ipfx}FileXfer", %args); |
| 521 | |
527 | |
| 522 | print CGI::hr(); |
528 | print CGI::hr(); |
| 523 | print CGI::start_li(); |
529 | print CGI::start_li(); |
| … | |
… | |
| 555 | print CGI::ul( |
561 | print CGI::ul( |
| 556 | CGI::li(CGI::a({href=>$self->systemLink($setStats)}, $setID)) |
562 | CGI::li(CGI::a({href=>$self->systemLink($setStats)}, $setID)) |
| 557 | ); |
563 | ); |
| 558 | } |
564 | } |
| 559 | print CGI::end_li(); |
565 | print CGI::end_li(); |
|
|
566 | |
|
|
567 | ## Added Link for Student Progress |
|
|
568 | print CGI::start_li(); |
|
|
569 | print CGI::a({href=>$self->systemLink($progress)}, $progress->name); |
|
|
570 | if (defined $userID and $userID ne "") { |
|
|
571 | print CGI::ul( |
|
|
572 | CGI::li(CGI::a({href=>$self->systemLink($userProgress)}, $userID)) |
|
|
573 | ); |
|
|
574 | } |
|
|
575 | if (defined $setID and $setID ne "") { |
|
|
576 | print CGI::ul( |
|
|
577 | CGI::li(CGI::a({href=>$self->systemLink($setProgress)}, $setID)) |
|
|
578 | ); |
|
|
579 | } |
|
|
580 | print CGI::end_li(); |
|
|
581 | |
| 560 | print CGI::li(CGI::a({href=>$self->systemLink($files)}, $files->name)); |
582 | print CGI::li(CGI::a({href=>$self->systemLink($files)}, $files->name)); |
| 561 | print CGI::end_ul(); |
583 | print CGI::end_ul(); |
| 562 | print CGI::end_li(); |
584 | print CGI::end_li(); |
| 563 | } |
585 | } |
| 564 | |
586 | |
Parent Directory
| 
Revision Log
| 
Patch