version 1.120, 2003/09/03 15:44:57
|
version 1.121, 2003/09/03 21:24:32
|
Line 1672 sub overview {
|
Line 1672 sub overview {
|
'Set/Modify Course Assessment Parameters'); |
'Set/Modify Course Assessment Parameters'); |
my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}; |
my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}; |
my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'}; |
my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'}; |
|
my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs); |
$r->print(<<ENDOVER); |
$r->print(<<ENDOVER); |
<html> |
<html> |
<head> |
<head> |
Line 1679 sub overview {
|
Line 1680 sub overview {
|
</head> |
</head> |
$bodytag |
$bodytag |
<form method="post" action="/adm/parmset" name="overview"> |
<form method="post" action="/adm/parmset" name="overview"> |
Not yet implemented. |
|
<input type="hidden" name="overview" value="1" /> |
<input type="hidden" name="overview" value="1" /> |
</form> |
|
</body> |
|
</html> |
|
ENDOVER |
ENDOVER |
|
foreach (sort keys %resourcedata) { |
|
$r->print($_.' - '.$resourcedata{$_}.'<br />'); |
|
} |
|
$r->print('</form></body></html>'); |
} |
} |
|
|
################################################## |
################################################## |
################################################## |
################################################## |
|
|
Line 1720 sub handler {
|
Line 1722 sub handler {
|
|
|
$coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
$coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
|
|
unless (($ENV{'form.crsenv'}) || (!$ENV{'request.course.fn'})) { |
if (($ENV{'form.crsenv'}) || (!$ENV{'request.course.fn'})) { |
# --------------------------------------------------------- Bring up assessment |
|
&assessparms($r); |
|
# ---------------------------------------------- This is for course environment |
# ---------------------------------------------- This is for course environment |
|
# -------------------------- also call if toplevel map coudl not be initialized |
|
&crsenv($r); |
} elsif ($ENV{'form.overview'}) { |
} elsif ($ENV{'form.overview'}) { |
|
# --------------------------------------------------------------- Overview mode |
|
&overview($r); |
} else { |
} else { |
&crsenv($r); |
# --------------------------------------------------------- Bring up assessment |
|
&assessparms($r); |
} |
} |
} else { |
} else { |
# ----------------------------- Not in a course, or not allowed to modify parms |
# ----------------------------- Not in a course, or not allowed to modify parms |