[LON-CAPA-cvs] cvs: loncom(GCI_3) /auth lonroles.pm /interface lonmenu.pm
raeburn
raeburn@source.lon-capa.org
Wed, 06 Jan 2010 22:40:35 -0000
raeburn Wed Jan 6 22:40:35 2010 EDT
Modified files: (Branch: GCI_3)
/loncom/auth lonroles.pm
/loncom/interface lonmenu.pm
Log:
- Customization for GCI_3.
&loncommon::existing_gcitest_courses() requires role as argument.
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.240.2.7 loncom/auth/lonroles.pm:1.240.2.8
--- loncom/auth/lonroles.pm:1.240.2.7 Tue Jan 5 15:30:25 2010
+++ loncom/auth/lonroles.pm Wed Jan 6 22:40:26 2010
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# User Roles Screen
#
-# $Id: lonroles.pm,v 1.240.2.7 2010/01/05 15:30:25 raeburn Exp $
+# $Id: lonroles.pm,v 1.240.2.8 2010/01/06 22:40:26 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -728,7 +728,7 @@
&Apache::loncommon::end_page();
return OK;
}
- my %courses = &Apache::loncommon::existing_gcitest_courses();
+ my %courses = &Apache::loncommon::existing_gcitest_courses('cc');
$env{'browser.interface'}='faketextual';
$env{'environment.remote'}='off';
my $numcourses = keys(%courses);
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.309.2.9 loncom/interface/lonmenu.pm:1.309.2.10
--- loncom/interface/lonmenu.pm:1.309.2.9 Wed Jan 6 18:19:59 2010
+++ loncom/interface/lonmenu.pm Wed Jan 6 22:40:34 2010
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.309.2.9 2010/01/06 18:19:59 raeburn Exp $
+# $Id: lonmenu.pm,v 1.309.2.10 2010/01/06 22:40:34 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1749,7 +1749,7 @@
my $gcimenujs;
if ($custommenu) {
- my %concepttests = &Apache::loncommon::existing_gcitest_courses();
+ my %concepttests = &Apache::loncommon::existing_gcitest_courses('cc');
my $managetesturl = '/adm/menu';
my $createtesturl = '/adm/requestcourse';
if (($env{'request.course.id'}) &&