![]() ![]() | ![]() |
version 1.925.2.5, 2009/12/15 05:08:50 | version 1.925.2.6, 2010/01/06 18:17:30 |
---|---|
Line 10786 sub check_for_gci_dc { | Line 10786 sub check_for_gci_dc { |
} | } |
sub existing_gcitest_courses { | sub existing_gcitest_courses { |
my ($role) = @_; | |
my %courses; | my %courses; |
my $cdom = 'gcitest'; | my $cdom = 'gcitest'; |
my $role = 'cc'; | |
my $now = time; | my $now = time; |
foreach my $envkey (keys(%env)) { | foreach my $envkey (keys(%env)) { |
my $cnum; | my $cnum; |