loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.522.2.30, 2024/07/01 17:12:34	version 1.522.2.31, 2024/07/03 04:06:27
Line 321 use Apache::lonnavmaps;	Line 321 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 1499 sub parmboxes {	Line 1500 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 />';
$r->print('<div class="LC_columnSection">'."\n");	$r->print('<div class="LC_columnSection">'."\n");

#Print parameters	#Print parameters
Line 1516 sub parmboxes {	Line 1519 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>\n");	$r->print("</div>\n");