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

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

version 1.466, 2009/07/01 17:11:38 version 1.467, 2009/07/14 13:53:03
Line 1457  sub keysindisplayorderCategory { Line 1457  sub keysindisplayorderCategory {
     } ( @{$name});      } ( @{$name});
 }  }
   
   sub category_order {
       return (
           'time_settings' => 1,
           'grading' => 2,
           'tries' => 3,
           'problem_appearance' => 4,
           'hiding' => 5,
           'behaviour_of_input_fields' => 6,
           'high_level_randomization'  => 7,
           'slots' => 8,
           'file_submission' => 9,
           'misc' => 10
       );
   
   }
   
 sub parmboxes {  sub parmboxes {
     my ($r,$allparms,$pscat,$keyorder)=@_;      my ($r,$allparms,$pscat,$keyorder)=@_;
     my $tempkey;      my $tempkey;
     my $tempparameter;      my $tempparameter;
     my %categories = &categories;      my %categories = &categories;
       my %category_order = &category_order();
     my %categoryList = (      my %categoryList = (
         'time_settings' => [],          'time_settings' => [],
         'grading' => [],          'grading' => [],
Line 1475  sub parmboxes { Line 1491  sub parmboxes {
         'file_submission' => [],          'file_submission' => [],
         'misc' => [],          'misc' => [],
    );     );
   
     foreach $tempparameter (keys %$allparms) {      foreach $tempparameter (keys %$allparms) {
         &whatIsMyCategory($tempparameter, \%categoryList);          &whatIsMyCategory($tempparameter, \%categoryList);
     }      }
Line 1485  sub parmboxes { Line 1500  sub parmboxes {
     );      );
   
     #Print parameters      #Print parameters
     my ($category, $list) = undef;      for my $key (sort { $category_order{$a} <=> $category_order{$b} } keys %categoryList) {
     while (($category, $list) = each %categoryList) {          if(@{$categoryList{$key}} == 0) {
         if(@$list == 0) {  
             next;              next;
         } else {           } else { 
             $r->print('<fieldset>'              $r->print('<fieldset>'
                      .'<legend>'                       .'<legend>'
                      .&mt($categories{$category})                       .&mt($categories{$key})
                      .'</legend>'."\n");                       .'</legend>'."\n");
             foreach $tempkey (&keysindisplayorderCategory($list,$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" ');
             $r->print('value="'.$tempkey.'" ');              $r->print('value="'.$tempkey.'" ');
Removed from v.1.466  
changed lines
  Added in v.1.467

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