[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface lonparmset.pm

[raeburn]

raeburn		Wed Jul  3 04:06:27 2024 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/interface	lonparmset.pm 
  Log:
  - For 2.11
    Backport 1.617, 1.618 
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.522.2.30 loncom/interface/lonparmset.pm:1.522.2.31
--- loncom/interface/lonparmset.pm:1.522.2.30	Mon Jul  1 17:12:34 2024
+++ loncom/interface/lonparmset.pm	Wed Jul  3 04:06:27 2024
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.522.2.30 2024/07/01 17:12:34 raeburn Exp $
+# $Id: lonparmset.pm,v 1.522.2.31 2024/07/03 04:06:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -321,6 +321,7 @@
 use Apache::longroup;
 use Apache::lonrss;
 use HTML::Entities;
+use Text::Wrap();
 use LONCAPA qw(:DEFAULT :match);
 
 
@@ -1499,6 +1500,8 @@
         &whatIsMyCategory($tempparameter, \%categoryList);
     }
     #part to print the parm-list
+    $Text::Wrap::columns=60;
+    $Text::Wrap::separator='<br />';
     $r->print('<div class="LC_columnSection">'."\n");
 
     #Print parameters
@@ -1516,8 +1519,9 @@
             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)
                      .'</label></span><br />'."\n");
         }
         $r->print("</div>\n");