loncom/interface/coursecatalog.pm - diff

Return to coursecatalog.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.9, 2006/10/18 13:52:17	version 1.11, 2006/12/05 02:55:51
Line 47 sub handler {	Line 47 sub handler {
my $lonidsdir=$r->dir_config('lonIDsDir');	my $lonidsdir=$r->dir_config('lonIDsDir');
my $handle;	my $handle;
if ($lonid) {	if ($lonid) {
$handle=$lonid->value;	my $handle=&LONCAPA::clean_handle($lonid->value);
$handle=~s/\W//g;
}	}
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {	if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);	&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);
Line 456 sub build_courseinfo_hash {	Line 455 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});