loncom/interface/coursecatalog.pm - diff

Return to coursecatalog.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/coursecatalog.pm between versions 1.58.4.8.2.1 and 1.58.4.9

version 1.58.4.8.2.1, 2012/02/14 00:29:50	version 1.58.4.9, 2013/11/21 16:34:23
Line 66 sub handler {	Line 66 sub handler {
}	}
my $formname = 'coursecatalog';	my $formname = 'coursecatalog';
if ($env{'form.showdom'} ne '') {	if ($env{'form.showdom'} ne '') {
	$env{'form.showdom'} = &LONCAPA::clean_domain($env{'form.showdom'});
if (&Apache::lonnet::domain($env{'form.showdom'}) ne '') {	if (&Apache::lonnet::domain($env{'form.showdom'}) ne '') {
$codedom = $env{'form.showdom'};	$codedom = $env{'form.showdom'};
	} else {
	$env{'form.showdom'} = '';
}	}
}	}
my $domdesc = &Apache::lonnet::domain($codedom,'description');	my $domdesc = &Apache::lonnet::domain($codedom,'description');
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();

	if ($env{'form.catalog_maxdepth'} ne '') {
	$env{'form.catalog_maxdepth'} =~ s{\D}{}g;
	}

my %domconfig =	my %domconfig =
&Apache::lonnet::get_dom('configuration',['coursecategories'],$codedom);	&Apache::lonnet::get_dom('configuration',['coursecategories'],$codedom);
my (@cats,@trails,%allitems,%idx,@jsarray,%subcathash,$cathash);	my (@cats,@trails,%allitems,%idx,@jsarray,%subcathash,$cathash);
Line 333 sub cat_header {	Line 340 sub cat_header {
unless ($env{'form.interface'} eq 'textual') {	unless ($env{'form.interface'} eq 'textual') {
$onchange = 'this.form.submit()';	$onchange = 'this.form.submit()';
}	}
unless ($codedom eq 'relate') {	$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,$onchange));
&Apache::loncommon::select_dom_form($codedom,'showdom','',1,$onchange));	if (!$onchange) {
if (!$onchange) {	$r->print(' <input type="submit" name="godom" value="'.&mt('Change').'" />');
$r->print(' <input type="submit" name="godom" value="'.&mt('Change').'" />');
}
$r->print('</td></tr></table></form>');
}	}
$r->print('<form name="coursecats" method="post" action="/adm/coursecatalog"'.	$r->print('</td></tr></table></form>'.
	'<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;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.58.4.8.2.1
changed lines
	Added in v.1.58.4.9