--- loncom/interface/coursecatalog.pm	2006/10/18 14:07:47	1.10
+++ 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);
@@ -632,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') {
@@ -644,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'}})) {
@@ -657,11 +656,11 @@ sub get_valid_classes {
     if ($totalitems > 0) {
         if (@{$validations{'sections'}}) {
             $response = &mt('Sections: ').
-                        join(',',@{$validations{'sections'}}).'<br />';
+                        join(', ',@{$validations{'sections'}}).'<br />';
         }
         if (@{$validations{'xlists'}}) {
             $response .= &mt('Courses: ').
-                        join(',',@{$validations{'xlists'}});
+                        join(', ',@{$validations{'xlists'}});
         }
     }
     return $response;