| 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/Stats.pm,v 1.56 2005/08/12 02:47:29 sh002i Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/Stats.pm,v 1.57 2005/08/29 22:56:07 gage 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. |
| … | |
… | |
| 110 | print CGI::start_ul(); |
110 | print CGI::start_ul(); |
| 111 | |
111 | |
| 112 | foreach my $setID (@setIDs) { |
112 | foreach my $setID (@setIDs) { |
| 113 | my $problemPage = $urlpath->newFromModule("WeBWorK::ContentGenerator::Instructor::Stats", |
113 | my $problemPage = $urlpath->newFromModule("WeBWorK::ContentGenerator::Instructor::Stats", |
| 114 | courseID => $courseID, setID => $setID,statType => 'set',); |
114 | courseID => $courseID, setID => $setID,statType => 'set',); |
| 115 | print CGI::li(CGI::a({href=>$self->systemLink($problemPage)}, underscore2nbsp($setID))); |
115 | print CGI::li(CGI::a({href=>$self->systemLink($problemPage)}, WeBWorK::ContentGenerator::underscore2nbsp($setID))); |
| 116 | } |
116 | } |
| 117 | |
117 | |
| 118 | print CGI::end_ul(); |
118 | print CGI::end_ul(); |
| 119 | print CGI::end_li(); |
119 | print CGI::end_li(); |
| 120 | print CGI::end_ul(); |
120 | print CGI::end_ul(); |
| … | |
… | |
| 193 | my $setStatisticsPage = $urlpath->newFromModule($urlpath->module, |
193 | my $setStatisticsPage = $urlpath->newFromModule($urlpath->module, |
| 194 | courseID => $courseName, |
194 | courseID => $courseName, |
| 195 | statType => 'set', |
195 | statType => 'set', |
| 196 | setID => $set |
196 | setID => $set |
| 197 | ); |
197 | ); |
| 198 | push @setLinks, CGI::a({-href=>$self->systemLink($setStatisticsPage) }, underscore2nbsp($set)); |
198 | push @setLinks, CGI::a({-href=>$self->systemLink($setStatisticsPage) }, WeBWorK::ContentGenerator::underscore2nbsp($set)); |
| 199 | } |
199 | } |
| 200 | |
200 | |
| 201 | foreach my $student (@studentList) { |
201 | foreach my $student (@studentList) { |
| 202 | my $userStatisticsPage = $urlpath->newFromModule($urlpath->module, |
202 | my $userStatisticsPage = $urlpath->newFromModule($urlpath->module, |
| 203 | courseID => $courseName, |
203 | courseID => $courseName, |
| … | |
… | |
| 598 | } |
598 | } |
| 599 | sub round_score{ |
599 | sub round_score{ |
| 600 | return shift; |
600 | return shift; |
| 601 | } |
601 | } |
| 602 | |
602 | |
| 603 | sub underscore2nbsp { |
|
|
| 604 | my $str = shift; |
|
|
| 605 | $str =~ s/_/ /g; |
|
|
| 606 | return($str); |
|
|
| 607 | } |
|
|
| 608 | |
|
|
| 609 | 1; |
603 | 1; |
Parent Directory
| 
Revision Log
| 
Patch