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

Diff for /loncom/interface/lonparmset.pm between versions 1.488 and 1.489

version 1.488, 2009/12/03 17:50:42 version 1.489, 2009/12/09 17:09:26
Line 1493  sub parmboxes { Line 1493  sub parmboxes {
         'slots' => [],          'slots' => [],
         'file_submission' => [],          'file_submission' => [],
         'misc' => [],          'misc' => [],
    );      );
       my $hidelink =
           '<p>'
          .'<a href="javascript:hideParms()">'
          .&mt('Hide detailed Parameter Selection')
          .'</a>'
          .'</p>'
          ."\n";
   ;
     foreach $tempparameter (keys %$allparms) {      foreach $tempparameter (keys %$allparms) {
         &whatIsMyCategory($tempparameter, \%categoryList);          &whatIsMyCategory($tempparameter, \%categoryList);
     }      }
     #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(
              .'<legend>'.&mt('Parameter').'</legend>'."\n"          '<div id="LC_parm_overview_parm_menu" class="LC_Box" style="display:none">'."\n"
          .'<h3>'.&mt('Parameter').'</h3>'."\n"
          .$hidelink
          .'<div class="LC_columnSection">'."\n"
     );      );
   
     #Print parameters      #Print parameters
Line 1507  sub parmboxes { Line 1518  sub parmboxes {
         if(@{$categoryList{$key}} == 0) {          if(@{$categoryList{$key}} == 0) {
             next;              next;
         } else {           } else { 
             $r->print('<fieldset>'              $r->print('<div class="LC_Box LC_400Box">'
                      .'<legend>'                       .'<h4 class="LC_hcell">'
                      .&mt($categories{$key})                       .&mt($categories{$key})
                      .'</legend>'."\n");                       .'</h4>'."\n");
             foreach $tempkey (&keysindisplayorderCategory($categoryList{$key},$keyorder)) {              foreach $tempkey (&keysindisplayorderCategory($categoryList{$key},$keyorder)) {
                     $r->print('<span class="LC_nobreak">'                      $r->print('<span class="LC_nobreak">'
                              .'<label><input type="checkbox" name="pscat" ');                               .'<label><input type="checkbox" name="pscat" ');
Line 1521  sub parmboxes { Line 1532  sub parmboxes {
                 }                  }
                 $r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}                  $r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}
                                                       : $tempkey)                                                        : $tempkey)
                         .'</label></span> ');                          .'</label></span><br />'."\n");
             }              }
             $r->print('</fieldset>');              $r->print("</div>\n");
         }          }
     }      }
     $r->print('<hr />'  
              .'<a href="javascript:hideParms()">'  
              .&mt('Hide')  
              .'</a>'  
     );  
   
     #&shortCuts($r,$allparms,$pscat,$keyorder);      #&shortCuts($r,$allparms,$pscat,$keyorder);
     $r->print('</fieldset>');      $r->print(
           "</div>\n"
          .$hidelink
          ."</div>\n"
       );
 }  }
 #  #
 # This function offers some links on the parameter section to get with one click a group a parameters  # This function offers some links on the parameter section to get with one click a group a parameters
Removed from v.1.488  
changed lines
  Added in v.1.489

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