--- loncom/interface/lonparmset.pm 2003/09/03 21:24:32 1.121
+++ loncom/interface/lonparmset.pm 2003/09/09 18:46:28 1.125
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.121 2003/09/03 21:24:32 www Exp $
+# $Id: lonparmset.pm,v 1.125 2003/09/09 18:46:28 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -948,7 +948,7 @@ sub assessparms {
}
$r->print("\n");
} else {
- my ($map,$id,$resource)=split(/___/,$pssymb);
+ my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
$r->print("
Specific Resource | $resource | ");
$r->print(' | ');
$r->print('
');
@@ -1666,26 +1666,129 @@ ENDENV
}
##################################################
+my $tableopen;
+
+sub tablestart {
+ if ($tableopen) {
+ return '';
+ } else {
+ $tableopen=1;
+ return 'Parameter | Delete | Set to ... |
';
+ }
+}
+
+sub tableend {
+ if ($tableopen) {
+ $tableopen=0;
+ return '
';
+ } else {
+ return'';
+ }
+}
+
sub overview {
my $r=shift;
my $bodytag=&Apache::loncommon::bodytag(
'Set/Modify Course Assessment Parameters');
my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
- my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
$r->print(<
LON-CAPA Course Environment
$bodytag
-