version 1.150, 2007/06/07 22:23:11
|
version 1.151, 2007/06/07 22:34:56
|
Line 1642 END_SCRIPT
|
Line 1642 END_SCRIPT
|
my %courselevel=(); |
my %courselevel=(); |
my %courselevelcurrent=(); |
my %courselevelcurrent=(); |
my @roles = ("st:c","st:d"); |
my @roles = ("st:c","st:d"); |
foreach my $item (@roles) { |
#foreach my $item (@roles) { |
&Apache::lonnet::logthis(" roles for $item: ".$Apache::lonnet::pr{$item}); |
# &Apache::lonnet::logthis(" roles for $item: ".$Apache::lonnet::pr{$item}); |
} |
#} |
|
|
foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) { |
foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) { |
|
|