--- loncom/interface/coursecatalog.pm 2006/10/17 18:11:46 1.8 +++ loncom/interface/coursecatalog.pm 2006/12/11 17:21:04 1.13 @@ -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'}})) { @@ -758,39 +758,44 @@ function courseSet() { } } else { - for (var k=0; k -1) { + for (var k=0; k