--- loncom/interface/loncommon.pm	2009/12/15 05:08:50	1.925.2.5
+++ loncom/interface/loncommon.pm	2010/01/06 22:53:58	1.925.2.7
@@ -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.7 2010/01/06 22:53:58 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -10786,9 +10786,9 @@ sub check_for_gci_dc {
 }
 
 sub existing_gcitest_courses {
+    my ($role) = @_;
     my %courses;
     my $cdom = 'gcitest';
-    my $role = 'cc';
     my $now = time;
     foreach my $envkey (keys(%env)) {
         my $cnum;
@@ -10797,7 +10797,7 @@ sub existing_gcitest_courses {
         } else {
             next;
         }
-        my ($tstart,$tend) = split(':',$env{$envkey});
+        my ($tstart,$tend) = split('.',$env{$envkey});
         if (((!$tstart) || ($tstart < $now)) && ((!$tend) || ($tend > $now))) {
             my $descr = $env{'course.'.$cdom.'_'.$cnum.'.description'};
             if ($descr ne '') {