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