| 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/Scoring.pm,v 1.23 2003/12/17 23:14:13 sh002i Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/Scoring.pm,v 1.24 2003/12/18 03:37:33 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. |
| … | |
… | |
| 107 | |
107 | |
| 108 | |
108 | |
| 109 | |
109 | |
| 110 | } |
110 | } |
| 111 | |
111 | |
|
|
112 | sub path { |
|
|
113 | my $self = shift; |
|
|
114 | my @components = @_; |
|
|
115 | my $args = $_[-1]; |
|
|
116 | |
|
|
117 | my $ce = $self->{ce}; |
|
|
118 | my $root = $ce->{webworkURLs}->{root}; |
|
|
119 | my $courseName = $ce->{courseName}; |
|
|
120 | |
|
|
121 | return $self->pathMacro($args, |
|
|
122 | "Home" => "$root", |
|
|
123 | $courseName => "$root/$courseName", |
|
|
124 | "Instructor Tools" => "$root/$courseName/instructor", |
|
|
125 | "Scoring" => # "$root/$courseName/instructor/scoring", |
|
|
126 | ); |
|
|
127 | } |
|
|
128 | |
| 112 | sub title { |
129 | sub title { |
| 113 | "Scoring data for ".(shift)->{ce}->{courseName}; |
130 | "Scoring"; |
| 114 | } |
131 | } |
| 115 | |
132 | |
| 116 | sub body { |
133 | sub body { |
| 117 | my ($self) = @_; |
134 | my ($self) = @_; |
| 118 | my $r = $self->{r}; |
135 | my $r = $self->{r}; |
Parent Directory
| 
Revision Log
| 
Patch