loncom/interface/coursecatalog.pm - diff

Return to coursecatalog.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.58.4.8, 2011/10/03 01:35:46	version 1.58.4.8.2.1, 2012/02/14 00:29:50
Line 333 sub cat_header {	Line 333 sub cat_header {
unless ($env{'form.interface'} eq 'textual') {	unless ($env{'form.interface'} eq 'textual') {
$onchange = 'this.form.submit()';	$onchange = 'this.form.submit()';
}	}
$r->print('<form name="coursecatdom" method="post" action="/adm/coursecatalog">'.	unless ($codedom eq 'relate') {
'<table border="0"><tr><td><b>'.&mt('Domain:').'</b></td><td>'.	$r->print('<form name="coursecatdom" method="post" action="/adm/coursecatalog">'.
&Apache::loncommon::select_dom_form($codedom,'showdom','',1,$onchange));	'<table border="0"><tr><td><b>'.&mt('Domain:').'</b></td><td>'.
if (!$onchange) {	&Apache::loncommon::select_dom_form($codedom,'showdom','',1,$onchange));
$r->print(' <input type="submit" name="godom" value="'.&mt('Change').'" />');	if (!$onchange) {
	$r->print(' <input type="submit" name="godom" value="'.&mt('Change').'" />');
	}
	$r->print('</td></tr></table></form>');
}	}
$r->print('</td></tr></table></form>'.	$r->print('<form name="coursecats" method="post" action="/adm/coursecatalog"'.
'<form name="coursecats" method="post" action="/adm/coursecatalog"'.
' onsubmit="return check_selected();">'.	' onsubmit="return check_selected();">'.
'<table border="0"><tr>'.$catlinks.'</tr></table></form>');	'<table border="0"><tr>'.$catlinks.'</tr></table></form>');
return;	return;