[BACK]Return to lonparmset.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.465 and 1.466

version 1.465, 2009/07/01 14:35:47 version 1.466, 2009/07/01 17:11:38
Line 1481  sub parmboxes { Line 1481  sub parmboxes {
     }      }
     #part to print the parm-list      #part to print the parm-list
     $r->print('<fieldset id="LC_parm_overview_parm_menu" style="display:none">'      $r->print('<fieldset id="LC_parm_overview_parm_menu" style="display:none">'
              .'<legend>'.&mt('Parameter').'</legend>'               .'<legend>'.&mt('Parameter').'</legend>'."\n"
              ."\n"  
              .'<table>'  
     );      );
   
     #Print parameters      #Print parameters
Line 1492  sub parmboxes { Line 1490  sub parmboxes {
         if(@$list == 0) {          if(@$list == 0) {
             next;              next;
         } else {           } else { 
             $r->print('<tr>');              $r->print('<fieldset>'
             $r->print('<td><b>' .&mt($categories{$category}).'</b></td> </tr> <tr>');                       .'<legend>'
                        .&mt($categories{$category})
                        .'</legend>'."\n");
             foreach $tempkey (&keysindisplayorderCategory($list,$keyorder)) {              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('value="'.$tempkey.'" ');
                 $r->print('onclick="checkboxChecked(\''.$tempkey.'\')"');                  $r->print('onclick="checkboxChecked(\''.$tempkey.'\')"');
             if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {              if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {
Line 1503  sub parmboxes { Line 1504  sub parmboxes {
             }              }
                 $r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}                  $r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}
                                                       : $tempkey)                                                        : $tempkey)
                         .'</label></td>');                          .'</label></span> ');
             }              }
             $r->print('</tr>');              $r->print('</fieldset>');
         }          }
     }      }
     $r->print( '</table>'      $r->print('<hr />'
                .'<hr />'               .'<a href="javascript:hideParms()">'
                .'<a href="javascript:hideParms()">'               .&mt('Hide')
                .&mt('Hide')               .'</a>'
                .'</a>'  
     );      );
   
     #&shortCuts($r,$allparms,$pscat,$keyorder);      #&shortCuts($r,$allparms,$pscat,$keyorder);
Removed from v.1.465  
changed lines
  Added in v.1.466

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>