--- loncom/interface/coursecatalog.pm 2006/10/18 13:52:17 1.9
+++ 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;