--- loncom/interface/lonparmset.pm 2023/12/29 20:45:18 1.522.2.28.4.11 +++ loncom/interface/lonparmset.pm 2024/08/19 17:01:00 1.522.2.28.4.12 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.522.2.28.4.11 2023/12/29 20:45:18 raeburn Exp $ +# $Id: lonparmset.pm,v 1.522.2.28.4.12 2024/08/19 17:01:00 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -321,6 +321,7 @@ use Apache::lonnavmaps; use Apache::longroup; use Apache::lonrss; use HTML::Entities; +use Text::Wrap(); use LONCAPA qw(:DEFAULT :match); @@ -1954,6 +1955,8 @@ sub parmboxes { &whatIsMyCategory($tempparameter, \%categoryList); } #part to print the parm-list + $Text::Wrap::columns=60; + $Text::Wrap::separator='
'; $r->print('
'."\n"); #Print parameters @@ -1971,8 +1974,9 @@ sub parmboxes { if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) { $r->print(' checked="checked"'); } - $r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey} - : $tempkey) + $r->print(' />'.($$allparms{$tempkey}=~/\S/ ? + Text::Wrap::wrap('',' 'x4,$$allparms{$tempkey}) + : $tempkey) .'
'."\n"); } $r->print("
\n");