--- loncom/interface/lonparmset.pm	2002/08/12 18:54:16	1.59
+++ loncom/interface/lonparmset.pm	2002/08/17 20:04:18	1.62
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.59 2002/08/12 18:54:16 matthew Exp $
+# $Id: lonparmset.pm,v 1.62 2002/08/17 20:04:18 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -870,11 +870,9 @@ sub assessparms {
     $r->print('</table>');
 
     my @temp_psprt;
-    map {
-         my $t = $_;
-         push(@temp_psprt,
-         grep {eval (/^$t\./ || ($_ == $t))} (keys %allparts));
-    } @psprt;
+    foreach my $t (@psprt) {
+	push(@temp_psprt, grep {eval (/^$t\./ || ($_ == $t))} (keys %allparts));
+    }
 
     @psprt = @temp_psprt;
 
@@ -1034,8 +1032,8 @@ ENDTABLEHEADFOUR
 
 #-------------------------------------------- for each map, gather information
             my $mapid;
-            foreach $mapid (keys %maplist) {
-                my $maptitle = $allmaps{$mapid};
+	    foreach $mapid (sort {$maplist{$a} cmp $maplist{$b}} keys %maplist) {
+                my $maptitle = $maplist{$mapid};
 
 #-----------------------  loop through ids and get all parameter types for map
 #-----------------------------------------          and associated information
@@ -1235,12 +1233,13 @@ sub crsenv {
             }
             if ($name eq 'url') {
 		$value=~s/^\/res\///;
+                my $bkuptime=time;
                 my @tmp = &Apache::lonnet::get
                     ('environment',['url'],$dom,$crs);
                 $setoutput.='Backing up previous URL: '.
                     &Apache::lonnet::put
                         ('environment',
-                         {'top level map backup ' => $tmp[1] },
+                         {'top level map backup '.$bkuptime => $tmp[1] },
                          $dom,$crs).
                     '<br>';
             }
@@ -1284,9 +1283,11 @@ sub crsenv {
              'pageseparators'  => '<b>Visibly Separate Items on Pages</b><br>'.
                                  '("<tt>yes</tt>" for visible separation)',
              'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.
-                                  'Roles</b> ' . 
-	   Apache::loncommon::help_open_topic("Course_Disable_Discussion")
-	                          ,
+                                  'Roles</b><br>"<tt>st</tt>": '.
+                                  'student, "<tt>ta</tt>": '.
+                                  'TA, "<tt>in</tt>": '.
+                                  'instructor;<br><tt>role,role,...</tt>) '.
+	       Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
              'pch.users.denied' => 
                           '<b>Disallow Resource Discussion for Users</b><br>'.
                                  '(<tt>user:domain,user:domain,...</tt>)',