version 1.2, 2007/10/03 19:57:29
|
version 1.3, 2007/10/06 04:32:49
|
Line 34 sub retrieve_instcodes {
|
Line 34 sub retrieve_instcodes {
|
my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.','.', undef,undef,'Course'); |
my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.','.', undef,undef,'Course'); |
foreach my $course (keys(%courses)) { |
foreach my $course (keys(%courses)) { |
if (ref($courses{$course}) eq 'HASH') { |
if (ref($courses{$course}) eq 'HASH') { |
$$coursecodes{$course} = $courses{$course}{'instcode'}; |
$$coursecodes{$course} = $courses{$course}{'inst_code'}; |
$totcodes ++; |
|
} elsif ($courses{$course} =~ m/^[^:]*:([^:]+)/) { |
|
$$coursecodes{$course} = &unescape($1); |
|
$totcodes ++; |
$totcodes ++; |
} |
} |
} |
} |