--- loncom/interface/lonparmset.pm 2003/09/04 22:36:47 1.123 +++ loncom/interface/lonparmset.pm 2003/10/08 23:07:01 1.129 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.123 2003/09/04 22:36:47 www Exp $ +# $Id: lonparmset.pm,v 1.129 2003/10/08 23:07:01 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -653,9 +653,9 @@ sub assessparms { my $r=shift; # -------------------------------------------------------- Variable declaration - my %allkeys; - my %allmaps; - my %alllevs; + my %allkeys=(); + my %allmaps=(); + my %alllevs=(); $alllevs{'Resource Level'}='full'; # $alllevs{'Resource Level [BRIEF]'}='brief'; @@ -937,18 +937,19 @@ sub assessparms { $r->print("\n"); $r->print(''); - - $r->print('
'.
"$bighash{'title_'.$rid}");
+ " TARGET=_self>$title");
if ($thistitle) {
$r->print(' ('.$thistitle.')');
@@ -1666,6 +1668,26 @@ ENDENV
}
##################################################
+my $tableopen;
+
+sub tablestart {
+ if ($tableopen) {
+ return '';
+ } else {
+ $tableopen=1;
+ return '
';
+ } else {
+ return'';
+ }
+}
+
sub overview {
my $r=shift;
my $bodytag=&Apache::loncommon::bodytag(
@@ -1681,12 +1703,37 @@ $bodytag
';
+ }
+}
+
+sub tableend {
+ if ($tableopen) {
+ $tableopen=0;
+ return 'Parameter Delete Set to ...