--- loncom/interface/lonparmset.pm	2005/11/17 20:04:05	1.267
+++ loncom/interface/lonparmset.pm	2005/12/28 18:56:22	1.268.2.2
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.267 2005/11/17 20:04:05 albertel Exp $
+# $Id: lonparmset.pm,v 1.268.2.2 2005/12/28 18:56:22 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -529,10 +529,10 @@ sub plink {
     my ($parmname)=((split(/\&/,$marker))[1]=~/\_([^\_]+)$/);
     my ($hour,$min,$sec,$val)=&preset_defaults($parmname);
     unless (defined($winvalue)) { $winvalue=$val; }
-    return 
+    return '<table width="100%"><tr valign="top" align="right"><td><a name="'.$marker.'" /></td></tr><tr><td align="center">'.
 	'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"
 	    .$marker."','".$return."','".$call."','".$hour."','".$min."','".$sec."'".');">'.
-		&valout($value,$type).'</a><a name="'.$marker.'"></a>';
+		&valout($value,$type).'</a></td></tr></table>';
 }
 
 sub startpage {
@@ -1893,8 +1893,8 @@ sub crsenv {
 	         => '<b>'.&mt('Receipt algorithm used').'</b> <br />'.
                     &mt('This controls how receipt numbers are generated.'),
              'suppress_tries'
-                 => '<b>'.&mt('Suppress number of tries in printing').'</b>('.
-                    &mt('yes if supress').')',
+                 => '<b>'.&mt('Suppress number of tries in printing').'</b><br />'.
+                    ' ('.&mt('"[_1]" to suppress, anything else to not supress','<tt>yes</tt>').')',
              'problem_stream_switch'
                  => '<b>'.&mt('Allow problems to be split over pages').'</b><br />'.
                     ' ('.&mt('"[_1]" if allowed, anything else if not','<tt>yes</tt>').')',
@@ -2692,6 +2692,8 @@ ENDMAINFORMHEAD
 #
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+    my $vgr  = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
+
     my @menu =
         (
           { text => 'Set Course Environment Parameters',
@@ -2702,6 +2704,12 @@ ENDMAINFORMHEAD
 	    action => 'setrestrictmeta',
             permission => $parm_permission,
             },
+	  { text => 'Manage Course Slots',
+	    url => '/adm/slotrequest?command=showslots',
+	    permission => $vgr,
+            },
+	  { divider => 1,
+	    },
           { text => 'Set/Modify Resource Parameters - Helper Mode',
             url => '/adm/helper/parameter.helper',
             permission => $parm_permission,
@@ -2726,6 +2734,10 @@ ENDMAINFORMHEAD
           );
     my $menu_html = '';
     foreach my $menu_item (@menu) {
+	if ($menu_item->{'divider'}) {
+	    $menu_html .= '<hr />';
+	    next;
+	}
         next if (! $menu_item->{'permission'});
         $menu_html.='<p>';
         $menu_html.='<font size="+1">';