--- loncom/interface/lonpickcourse.pm 2010/07/08 23:19:19 1.99 +++ loncom/interface/lonpickcourse.pm 2011/09/01 02:32:50 1.103 @@ -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.103 2011/09/01 02:32:50 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 = '