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

[bisitz]

bisitz		Wed Jul  1 17:11:38 2009 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  First try of screen design optimizations for the parameter categories which were introduced in rev. 1.465
  - Wrapped each category in a fieldset
  - Added nowrap style to each parameter
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.465 loncom/interface/lonparmset.pm:1.466
--- loncom/interface/lonparmset.pm:1.465	Wed Jul  1 14:35:47 2009
+++ loncom/interface/lonparmset.pm	Wed Jul  1 17:11:38 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.465 2009/07/01 14:35:47 amueller Exp $
+# $Id: lonparmset.pm,v 1.466 2009/07/01 17:11:38 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1481,9 +1481,7 @@
     }
     #part to print the parm-list
     $r->print('<fieldset id="LC_parm_overview_parm_menu" style="display:none">'
-             .'<legend>'.&mt('Parameter').'</legend>'
-             ."\n"
-             .'<table>'
+             .'<legend>'.&mt('Parameter').'</legend>'."\n"
     );
 
     #Print parameters
@@ -1492,10 +1490,13 @@
         if(@$list == 0) {
             next;
         } else { 
-            $r->print('<tr>');
-            $r->print('<td><b>' .&mt($categories{$category}).'</b></td> </tr> <tr>');
+            $r->print('<fieldset>'
+                     .'<legend>'
+                     .&mt($categories{$category})
+                     .'</legend>'."\n");
             foreach $tempkey (&keysindisplayorderCategory($list,$keyorder)) {
-	            $r->print("\n".'<td><label><input type="checkbox" name="pscat" ');
+                    $r->print('<span class="LC_nobreak">'
+                             .'<label><input type="checkbox" name="pscat" ');
 	            $r->print('value="'.$tempkey.'" ');
                 $r->print('onclick="checkboxChecked(\''.$tempkey.'\')"');
 	            if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {
@@ -1503,16 +1504,15 @@
 	            }
                 $r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}
                                                       : $tempkey)
-                        .'</label></td>');
+                        .'</label></span> ');
             }
-            $r->print('</tr>');
+            $r->print('</fieldset>');
         }
     }
-    $r->print( '</table>'
-               .'<hr />'
-               .'<a href="javascript:hideParms()">'
-               .&mt('Hide')
-               .'</a>'
+    $r->print('<hr />'
+             .'<a href="javascript:hideParms()">'
+             .&mt('Hide')
+             .'</a>'
     );
 
     #&shortCuts($r,$allparms,$pscat,$keyorder);