loncom/interface/courseclassifier.pm - diff

Return to courseclassifier.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1, 2006/10/12 22:47:31	version 1.2, 2007/10/03 19:57:29
Line 29 use Apache::lonnet;	Line 29 use Apache::lonnet;
use LONCAPA;	use LONCAPA;

sub retrieve_instcodes {	sub retrieve_instcodes {
my ($coursecodes,$codedom,$totcodes) = @_;	my ($coursecodes,$codedom) = @_;
	my $totcodes;
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 ($courses{$course} =~ m/^[^:]*:([^:]+)/) {	if (ref($courses{$course}) eq 'HASH') {
	$$coursecodes{$course} = $courses{$course}{'instcode'};
	$totcodes ++;
	} elsif ($courses{$course} =~ m/^[^:]*:([^:]+)/) {
$$coursecodes{$course} = &unescape($1);	$$coursecodes{$course} = &unescape($1);
$totcodes ++;	$totcodes ++;
}	}