[LON-CAPA-cvs] cvs: loncom(version_2_9_X) /interface lonparmset.pm
raeburn
raeburn@source.lon-capa.org
Mon, 25 Jan 2010 22:11:57 -0000
raeburn Mon Jan 25 22:11:57 2010 EDT
Modified files: (Branch: version_2_9_X)
/loncom/interface lonparmset.pm
Log:
- Backport 1.477 (part).
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.413.4.3 loncom/interface/lonparmset.pm:1.413.4.4
--- loncom/interface/lonparmset.pm:1.413.4.3 Mon Jan 25 21:58:31 2010
+++ loncom/interface/lonparmset.pm Mon Jan 25 22:11:57 2010
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.413.4.3 2010/01/25 21:58:31 raeburn Exp $
+# $Id: lonparmset.pm,v 1.413.4.4 2010/01/25 22:11:57 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3183,10 +3183,13 @@
my $vgr = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
my $mgr = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});
+ my $crstype = &Apache::loncommon::course_type();
+ my $lc_crstype = lc($crstype);
+
my @menu =
- ( { divider=>'Settings for Your Course',
+ ( { divider=>"Settings for Your $crstype",
},
- { text => 'Edit course configuration',
+ { text => "Edit $lc_crstype configuration",
url => '/adm/courseprefs?origin=params',
permission => $parm_permission,
help => 'Course_Environment',
@@ -3195,7 +3198,7 @@
action => 'setrestrictmeta',
permission => $parm_permission,
},
- { text => 'Manage Course Slots',
+ { text => "Manage $crstype Slots",
url => '/adm/slotrequest?command=showslots',
permission => $vgr,
},
@@ -3232,7 +3235,7 @@
permission => $parm_permission,
help => 'Parameter_Overview',
},
- { text => 'Parameter Change Log and Course Blog Posting/User Notification',
+ { text => "Parameter Change Log and $crstype Blog Posting/User Notification",
action => 'parameterchangelog',
permission => $parm_permission,
},