--- loncom/interface/coursecatalog.pm 2006/10/17 18:11:46 1.8 +++ loncom/interface/coursecatalog.pm 2007/01/06 20:12:19 1.14 @@ -47,8 +47,7 @@ sub handler { my $lonidsdir=$r->dir_config('lonIDsDir'); my $handle; if ($lonid) { - $handle=$lonid->value; - $handle=~s/\W//g; + $handle=&LONCAPA::clean_handle($lonid->value); } if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { &Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); @@ -456,6 +455,7 @@ sub build_courseinfo_hash { } my $cleandesc=&HTML::Entities::encode($descr,'<>&"'); $cleandesc=~s/'/\\'/g; + $cleandesc =~ s/^\s+//; my ($cdom,$cnum)=split(/\_/,$course); my ($desc,$instcode,$owner,$ttype) = split(/:/,$courses{$course}); @@ -631,7 +631,7 @@ sub get_valid_classes { @{$validations{'xlists'}} = (); my $totalitems = 0; if ($seclist) { - foreach my $sec (split(',',$seclist)) { + foreach my $sec (split(/, /,$seclist)) { my $class = $crscode.$sec; if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner, $class) eq 'ok') { @@ -643,7 +643,7 @@ sub get_valid_classes { } } if ($xlist_items) { - foreach my $item (split(',',$xlist_items)) { + foreach my $item (split(/, /,$xlist_items)) { if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner, $item) eq 'ok') { if (!grep(/^\Q$item$\E/,@{$validations{'xlists'}})) { @@ -656,11 +656,11 @@ sub get_valid_classes { if ($totalitems > 0) { if (@{$validations{'sections'}}) { $response = &mt('Sections: '). - join(',',@{$validations{'sections'}}).'
'; + join(', ',@{$validations{'sections'}}).'
'; } if (@{$validations{'xlists'}}) { $response .= &mt('Courses: '). - join(',',@{$validations{'xlists'}}); + join(', ',@{$validations{'xlists'}}); } } return $response; @@ -758,39 +758,44 @@ function courseSet() { } } else { - for (var k=0; k -1) { + for (var k=0; k