loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

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);