loncom/interface/coursecatalog.pm - diff

Return to coursecatalog.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.46, 2009/02/07 18:15:44	version 1.47, 2009/02/07 20:45:27
Line 398 sub cat_header {	Line 398 sub cat_header {
text=>"Select courses"});	text=>"Select courses"});
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Select courses'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Select courses'));
}	}
	my $onchange;
	unless (($env{'browser.interface'} eq 'textual') \|\| ($env{'form.interface'} eq 'textual')) {
	$onchange = 1;
	}
$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>'.
&Apache::loncommon::select_dom_form($codedom,'showdom','',1).	&Apache::loncommon::select_dom_form($codedom,'showdom','',1,$onchange));
' <input type="submit" name="godom" value="'.&mt('Change').'" /></td></tr></table></form>'.	if (!$onchange) {
	$r->print(' <input type="submit" name="godom" value="'.&mt('Change').'" />');
	}
	$r->print('</td></tr></table></form>'.
'<form name="coursecats" method="post" action="/adm/coursecatalog"'.	'<form name="coursecats" method="post" action="/adm/coursecatalog"'.
' onsubmit="check_selected()">'.	' onsubmit="check_selected()">'.
'<table border="0"><tr>'.$catlinks.'</tr></table></form>');	'<table border="0"><tr>'.$catlinks.'</tr></table></form>');