version 1.27, 2005/04/10 23:45:57
|
version 1.28, 2005/04/12 00:20:00
|
Line 967 Please review the information in "Log-in
|
Line 967 Please review the information in "Log-in
|
|
|
sub retrieve_instcodes { |
sub retrieve_instcodes { |
my ($coursecodes,$codedom,$totcodes) = @_; |
my ($coursecodes,$codedom,$totcodes) = @_; |
my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.'); |
my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.','.'); |
foreach my $course (keys %courses) { |
foreach my $course (keys %courses) { |
if ($courses{$course} =~ m/^[^:]*:([^:]+)/) { |
if ($courses{$course} =~ m/^[^:]*:([^:]+)/) { |
$$coursecodes{$course} = &Apache::lonnet::unescape($1); |
$$coursecodes{$course} = &Apache::lonnet::unescape($1); |