[LON-CAPA-cvs] cvs: loncom(loncapaMITrelate_1) /interface coursecatalog.pm
raeburn
raeburn at source.lon-capa.org
Mon Feb 13 19:29:51 EST 2012
raeburn Tue Feb 14 00:29:51 2012 EDT
Modified files: (Branch: loncapaMITrelate_1)
/loncom/interface coursecatalog.pm
Log:
- Customization for MITrelate
- No domain selector for catalog if default domain is "relate".
Index: loncom/interface/coursecatalog.pm
diff -u loncom/interface/coursecatalog.pm:1.58.4.8 loncom/interface/coursecatalog.pm:1.58.4.8.2.1
--- loncom/interface/coursecatalog.pm:1.58.4.8 Mon Oct 3 01:35:46 2011
+++ loncom/interface/coursecatalog.pm Tue Feb 14 00:29:50 2012
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler for displaying the course catalog interface
#
-# $Id: coursecatalog.pm,v 1.58.4.8 2011/10/03 01:35:46 raeburn Exp $
+# $Id: coursecatalog.pm,v 1.58.4.8.2.1 2012/02/14 00:29:50 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -333,14 +333,16 @@
unless ($env{'form.interface'} eq 'textual') {
$onchange = 'this.form.submit()';
}
- $r->print('<form name="coursecatdom" method="post" action="/adm/coursecatalog">'.
- '<table border="0"><tr><td><b>'.&mt('Domain:').'</b></td><td>'.
- &Apache::loncommon::select_dom_form($codedom,'showdom','',1,$onchange));
- if (!$onchange) {
- $r->print(' <input type="submit" name="godom" value="'.&mt('Change').'" />');
+ unless ($codedom eq 'relate') {
+ $r->print('<form name="coursecatdom" method="post" action="/adm/coursecatalog">'.
+ '<table border="0"><tr><td><b>'.&mt('Domain:').'</b></td><td>'.
+ &Apache::loncommon::select_dom_form($codedom,'showdom','',1,$onchange));
+ if (!$onchange) {
+ $r->print(' <input type="submit" name="godom" value="'.&mt('Change').'" />');
+ }
+ $r->print('</td></tr></table></form>');
}
- $r->print('</td></tr></table></form>'.
- '<form name="coursecats" method="post" action="/adm/coursecatalog"'.
+ $r->print('<form name="coursecats" method="post" action="/adm/coursecatalog"'.
' onsubmit="return check_selected();">'.
'<table border="0"><tr>'.$catlinks.'</tr></table></form>');
return;
More information about the LON-CAPA-cvs
mailing list