version 1.9, 2006/10/18 13:52:17
|
version 1.10, 2006/10/18 14:07:47
|
Line 456 sub build_courseinfo_hash {
|
Line 456 sub build_courseinfo_hash {
|
} |
} |
my $cleandesc=&HTML::Entities::encode($descr,'<>&"'); |
my $cleandesc=&HTML::Entities::encode($descr,'<>&"'); |
$cleandesc=~s/'/\\'/g; |
$cleandesc=~s/'/\\'/g; |
|
$cleandesc =~ s/^\s+//; |
my ($cdom,$cnum)=split(/\_/,$course); |
my ($cdom,$cnum)=split(/\_/,$course); |
|
|
my ($desc,$instcode,$owner,$ttype) = split(/:/,$courses{$course}); |
my ($desc,$instcode,$owner,$ttype) = split(/:/,$courses{$course}); |