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

[albertel]

albertel		Mon Nov 21 17:00:14 2005 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - add slot mangement link into PARM
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.267 loncom/interface/lonparmset.pm:1.268
--- loncom/interface/lonparmset.pm:1.267	Thu Nov 17 15:04:05 2005
+++ loncom/interface/lonparmset.pm	Mon Nov 21 17:00:11 2005
@@ -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 2005/11/21 22:00:11 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2692,6 +2692,8 @@
 #
     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 @@
 	    action => 'setrestrictmeta',
             permission => $parm_permission,
             },
+	  { text => 'Manange 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 @@
           );
     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">';