loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.616, 2022/07/07 03:37:01	version 1.618, 2023/04/03 15:39:10
Line 329 use Apache::lonnavmaps;	Line 329 use Apache::lonnavmaps;
use Apache::longroup;	use Apache::longroup;
use Apache::lonrss;	use Apache::lonrss;
use HTML::Entities;	use HTML::Entities;
	use Text::Wrap();
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);


Line 2552 sub parmboxes {	Line 2553 sub parmboxes {
&whatIsMyCategory($tempparameter, \%categoryList);	&whatIsMyCategory($tempparameter, \%categoryList);
}	}
#part to print the parm-list	#part to print the parm-list
	$Text::Wrap::columns=60;
	$Text::Wrap::separator='<br />';
foreach my $key (sort { $category_order{$a} <=> $category_order{$b} } keys(%categoryList)) {	foreach my $key (sort { $category_order{$a} <=> $category_order{$b} } keys(%categoryList)) {
next if (@{$categoryList{$key}} == 0);	next if (@{$categoryList{$key}} == 0);
next if ($key eq '');	next if ($key eq '');
Line 2565 sub parmboxes {	Line 2568 sub parmboxes {
if ($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat}) {	if ($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat}) {
$r->print( ' checked="checked"');	$r->print( ' checked="checked"');
}	}
$r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}	$r->print(' />'.($$allparms{$tempkey}=~/\S/ ?
: $tempkey)	Text::Wrap::wrap('',' 'x4,$$allparms{$tempkey})
	: $tempkey)
.'</label></span><br />'."\n");	.'</label></span><br />'."\n");
}	}
$r->print('</div>');	$r->print('</div>');