[LON-CAPA-cvs] cvs: loncom(GCI_3) /interface loncommon.pm

[raeburn]

raeburn		Wed Jan  6 18:17:31 2010 EDT

  Modified files:              (Branch: GCI_3)
    /loncom/interface	loncommon.pm 
  Log:
  - Customization for GCI_3.
   - &existing_gcitest_courses() takes an argument -role (cc or st).
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.925.2.5 loncom/interface/loncommon.pm:1.925.2.6
--- loncom/interface/loncommon.pm:1.925.2.5	Tue Dec 15 05:08:50 2009
+++ loncom/interface/loncommon.pm	Wed Jan  6 18:17:30 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.925.2.5 2009/12/15 05:08:50 raeburn Exp $
+# $Id: loncommon.pm,v 1.925.2.6 2010/01/06 18:17:30 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -10786,9 +10786,9 @@
 }
 
 sub existing_gcitest_courses {
+    my ($role) = @_;
     my %courses;
     my $cdom = 'gcitest';
-    my $role = 'cc';
     my $now = time;
     foreach my $envkey (keys(%env)) {
         my $cnum;