--- loncom/interface/lonpickcourse.pm 2010/07/08 23:19:19 1.99 +++ loncom/interface/lonpickcourse.pm 2011/01/25 02:49:42 1.101 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a course # -# $Id: lonpickcourse.pm,v 1.99 2010/07/08 23:19:19 raeburn Exp $ +# $Id: lonpickcourse.pm,v 1.101 2011/01/25 02:49:42 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -439,10 +439,10 @@ sub display_matched_courses { } } } - push(@owners,&unescape($courses{$course}{'owner'})); - if (ref($courses{$course}{'co-owners'}) eq 'ARRAY') { - foreach my $item (@{$courses{$course}{'co-owners'}}) { - push(@owners,&unescape($item)); + push(@owners,$courses{$course}{'owner'}); + if ($courses{$course}{'co-owners'} ne '') { + foreach my $item (split(/,/,$courses{$course}{'co-owners'})) { + push(@owners,$item); } } } else { @@ -830,7 +830,11 @@ sub timebased_select_form { sub get_coordinator_cloneable { my ($cloneruname,$clonerudom,$type) = @_; - if (&Apache::lonnet::homeserver($cloneruname,$clonerudom) eq 'no_host') { + if (($cloneruname!~/\w/) || ($clonerudom!~/\w/)) { + my $warning = '
'.&mt('Intended course owner not specified'). + '
'; + return ('',$warning); + } elsif (&Apache::lonnet::homeserver($cloneruname,$clonerudom) eq 'no_host') { my $warning = '
'.&mt('Intended course owner does not exist'). '
'; return ('',$warning);