version 1.99, 2010/07/08 23:19:19
|
version 1.101, 2011/01/25 02:49:42
|
Line 439 sub display_matched_courses {
|
Line 439 sub display_matched_courses {
|
} |
} |
} |
} |
} |
} |
push(@owners,&unescape($courses{$course}{'owner'})); |
push(@owners,$courses{$course}{'owner'}); |
if (ref($courses{$course}{'co-owners'}) eq 'ARRAY') { |
if ($courses{$course}{'co-owners'} ne '') { |
foreach my $item (@{$courses{$course}{'co-owners'}}) { |
foreach my $item (split(/,/,$courses{$course}{'co-owners'})) { |
push(@owners,&unescape($item)); |
push(@owners,$item); |
} |
} |
} |
} |
} else { |
} else { |
Line 830 sub timebased_select_form {
|
Line 830 sub timebased_select_form {
|
|
|
sub get_coordinator_cloneable { |
sub get_coordinator_cloneable { |
my ($cloneruname,$clonerudom,$type) = @_; |
my ($cloneruname,$clonerudom,$type) = @_; |
if (&Apache::lonnet::homeserver($cloneruname,$clonerudom) eq 'no_host') { |
if (($cloneruname!~/\w/) || ($clonerudom!~/\w/)) { |
|
my $warning = '<div class="LC_warning">'.&mt('Intended course owner not specified'). |
|
'</div>'; |
|
return ('',$warning); |
|
} elsif (&Apache::lonnet::homeserver($cloneruname,$clonerudom) eq 'no_host') { |
my $warning = '<div class="LC_error">'.&mt('Intended course owner does not exist'). |
my $warning = '<div class="LC_error">'.&mt('Intended course owner does not exist'). |
'</div>'; |
'</div>'; |
return ('',$warning); |
return ('',$warning); |