loncom/interface/coursecatalog.pm - diff

Return to coursecatalog.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.105, 2021/06/15 20:52:26	version 1.107, 2025/02/24 13:40:33
Line 357 function check_selected() {	Line 357 function check_selected() {
}	}
ENDJS	ENDJS
}	}
$catjs = '<script type="text/javascript">'."\n".$catjs."\n".'</script>';	my $js = '<script type="text/javascript">'."\n".
&cat_header($r,$codedom,$catjs,\%add_entries,$catlinks,undef,$cattype);	'// <![CDATA['."\n".
	"$catjs\n".
	'// ]]>'."\n".
	'</script>';
	&cat_header($r,$codedom,$js,\%add_entries,$catlinks,undef,$cattype);
if ($env{'form.currcat_0'} ne '') {	if ($env{'form.currcat_0'} ne '') {
$r->print('<form name="'.$formname.	$r->print('<form name="'.$formname.
'" method="post" action="/adm/coursecatalog">'.	'" method="post" action="/adm/coursecatalog">'.
Line 1891 sub courseinfo_row {	Line 1895 sub courseinfo_row {
@cats = split('&',$categories);	@cats = split('&',$categories);
}	}
if ((ref($trails) eq 'ARRAY') && (ref($allitems) eq 'HASH')) {	if ((ref($trails) eq 'ARRAY') && (ref($allitems) eq 'HASH')) {
my @categories = map { $trails->[$allitems->{$_}]; } @cats;	my @categories;
	foreach my $cat (@cats) {
	next if ($cat eq '');
	if (($allitems->{$cat} ne '') && ($trails->[$allitems->{$cat}] ne '')) {
	push(@categories,$trails->[$allitems->{$cat}]);
	}
	}
$categorylist = join('<br />',@categories);	$categorylist = join('<br />',@categories);
}	}
if ($categorylist eq '') {	if ($categorylist eq '') {