--- loncom/interface/lonpickcourse.pm 2010/07/08 23:19:19 1.99
+++ loncom/interface/lonpickcourse.pm 2013/02/05 16:38:00 1.104
@@ -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.104 2013/02/05 16:38:00 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -364,9 +364,9 @@ sub display_matched_courses {
}
if ($numcourses > 1 && $multiple) {
- $r->print('print('
-
');
}
@@ -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 {
@@ -494,9 +494,9 @@ sub display_matched_courses {
}
if (!%courses) {
- $r->print(&mt('None found'));
+ $r->print('
'.&mt('None found').'
'); } elsif ($multiple) { - $r->print(''); + $r->print(''); } $r->print(''. "\n".''."\n". @@ -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 = '