--- loncom/interface/lonparmset.pm 2003/09/03 21:24:32 1.121 +++ loncom/interface/lonparmset.pm 2003/10/01 21:10:17 1.127 @@ -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.127 2003/10/01 21:10:17 albertel 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("
'.
"$bighash{'title_'.$rid}");
+ " TARGET=_self>$title");
if ($thistitle) {
$r->print(' ('.$thistitle.')');
@@ -1666,26 +1667,129 @@ ENDENV
}
##################################################
+my $tableopen;
+
+sub tablestart {
+ if ($tableopen) {
+ return '';
+ } else {
+ $tableopen=1;
+ 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(< ';
+ }
+}
+
+sub tableend {
+ if ($tableopen) {
+ $tableopen=0;
+ return 'Parameter Delete Set to ...