--- loncom/interface/lonparmset.pm 2003/09/21 21:40:06 1.126 +++ 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.126 2003/09/21 21:40:06 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,16 +937,17 @@ sub assessparms { $r->print("\n"); $r->print(''); - - $r->print('Select Enclosing Map or Folder'); - $r->print('\n"); + if ($parmlev ne 'general') { + $r->print('Select Enclosing Map or Folder'); + $r->print('\n"); + } } else { my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb); $r->print("Specific Resource$resource"); @@ -1152,7 +1153,8 @@ ENDTABLEHEADFOUR my $totalparms=scalar keys %name; if ($totalparms>0) { my $firstrow=1; - + my $title=$bighash{'title_'.$rid}; + $title=~s/\:/:/g; $r->print(''. @@ -1160,7 +1162,7 @@ ENDTABLEHEADFOUR '

'. "$bighash{'title_'.$rid}"); + " TARGET=_self>$title"); if ($thistitle) { $r->print(' ('.$thistitle.')');