--- 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.')');
|