loncom/interface/coursecatalog.pm - diff

Return to coursecatalog.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.52, 2009/05/27 16:54:57	version 1.54, 2009/10/01 17:24:23
Line 307 sub cat_header {	Line 307 sub cat_header {
}	}
my $onchange;	my $onchange;
unless ($env{'form.interface'} eq 'textual') {	unless ($env{'form.interface'} eq 'textual') {
$onchange = 1;	$onchange = 'this.form.submit()';
}	}
$r->print('<form name="coursecatdom" method="post" action="/adm/coursecatalog">'.	$r->print('<form name="coursecatdom" method="post" action="/adm/coursecatalog">'.
'<table border="0"><tr><td><b>'.&mt('Domain:').'</b></td><td>'.	'<table border="0"><tr><td><b>'.&mt('Domain:').'</b></td><td>'.
Line 733 sub build_courseinfo_hash {	Line 733 sub build_courseinfo_hash {
}	}
}	}
foreach my $owner (@owners) {	foreach my $owner (@owners) {
my ($ownername,$ownerdom) = @_;	my ($ownername,$ownerdom);
if ($owner =~ /:/) {	if ($owner =~ /:/) {
($ownername,$ownerdom) = split(/:/,$owner);	($ownername,$ownerdom) = split(/:/,$owner);
} else {	} else {