loncom/interface/coursecatalog.pm - diff

Return to coursecatalog.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.38, 2008/07/13 20:13:10	version 1.39, 2008/07/14 10:24:27
Line 837 sub build_courseinfo_hash {	Line 837 sub build_courseinfo_hash {
$cleandesc=~s/'/\\'/g;	$cleandesc=~s/'/\\'/g;
$cleandesc =~ s/^\s+//;	$cleandesc =~ s/^\s+//;
my ($cdom,$cnum)=split(/\_/,$course);	my ($cdom,$cnum)=split(/\_/,$course);
my ($descr,$instcode,$singleowner,$ttype,$selfenroll_types,	my ($instcode,$singleowner,$ttype,$selfenroll_types,
$selfenroll_start,$selfenroll_end,@owners,%ownernames,$categories);	$selfenroll_start,$selfenroll_end,@owners,%ownernames,$categories);
if (ref($courses->{$course}) eq 'HASH') {	if (ref($courses->{$course}) eq 'HASH') {
$descr = $courses->{$course}{'description'};	$descr = $courses->{$course}{'description'};
Line 1093 sub identify_sections {	Line 1093 sub identify_sections {
}	}
}	}
@secnums = sort {$a <=> $b} @secnums;	@secnums = sort {$a <=> $b} @secnums;
my $seclist = join(', ',@secnums);	$seclist = join(', ',@secnums);
my $numsec = @secnums;	my $numsec = @secnums;
return ($seclist,$numsec);	return ($seclist,$numsec);
}	}