loncom/interface/coursecatalog.pm - diff

Return to coursecatalog.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.74, 2013/03/04 02:33:21	version 1.75, 2013/11/20 18:40:09
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);