[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm

[albertel]

albertel		Wed Oct  8 14:08:11 2003 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - Part of BUG#2198
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.127 loncom/interface/lonparmset.pm:1.128
--- loncom/interface/lonparmset.pm:1.127	Wed Oct  1 17:10:17 2003
+++ loncom/interface/lonparmset.pm	Wed Oct  8 14:08:11 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.127 2003/10/01 21:10:17 albertel Exp $
+# $Id: lonparmset.pm,v 1.128 2003/10/08 18:08:11 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -937,16 +937,17 @@
         $r->print("</select></td>\n");
 
         $r->print('</tr>');
-
-        $r->print('<tr><td>Select Enclosing Map or Folder</td>');
-        $r->print('<td colspan="2"><select name="pschp">');
-        $r->print('<option value="all">All Maps or Folders</option>');
-        foreach (sort {$allmaps{$a} cmp $allmaps{$b}} keys %allmaps) {
-            $r->print('<option value="'.$_.'"');
-            if (($pschp eq $_)) { $r->print(' selected'); }
-            $r->print('>'.$maptitles{$_}.($allmaps{$_}!~/^uploaded/?'  ['.$allmaps{$_}.']':'').'</option>');
-        }
-        $r->print("</select></td></tr>\n");
+	if ($parmlev ne 'general') {
+	    $r->print('<tr><td>Select Enclosing Map or Folder</td>');
+	    $r->print('<td colspan="2"><select name="pschp">');
+	    $r->print('<option value="all">All Maps or Folders</option>');
+	    foreach (sort {$allmaps{$a} cmp $allmaps{$b}} keys %allmaps) {
+		$r->print('<option value="'.$_.'"');
+		if (($pschp eq $_)) { $r->print(' selected'); }
+		$r->print('>'.$maptitles{$_}.($allmaps{$_}!~/^uploaded/?'  ['.$allmaps{$_}.']':'').'</option>');
+	    }
+	    $r->print("</select></td></tr>\n");
+	}
     } else {
         my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
         $r->print("<tr><td>Specific Resource</td><td>$resource</td>");