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

Diff for /loncom/interface/lonquickgrades.pm between versions 1.91 and 1.93

version 1.91, 2011/05/24 23:44:33 version 1.93, 2011/05/26 18:02:22
Line 478  sub outputCategories { Line 478  sub outputCategories {
 #    foreach (keys(%data)) {  #    foreach (keys(%data)) {
 #        $r->print("\n<br />".$_.'='.$data{$_});  #        $r->print("\n<br />".$_.'='.$data{$_});
 #    }  #    }
   #   my @debugarray=('5:1','4:3','1:1','5:5','6:7');
   #   $r->print("Array: ".join(',',@debugarray).'<br />');
   #   $r->print("0,0,0: ".join(',',&drop(0,0,0,@debugarray)).'<br />');
   #   $r->print("1,0,0: ".join(',',&drop(1,0,0,@debugarray)).'<br />');
   #   $r->print("0,1,0: ".join(',',&drop(0,1,0,@debugarray)).'<br />');
   #   $r->print("1,1,0: ".join(',',&drop(1,1,0,@debugarray)).'<br />');
   #
   #   $r->print("0,0,2: ".join(',',&drop(0,0,2,@debugarray)).'<br />');
   #   $r->print("1,0,2: ".join(',',&drop(1,0,2,@debugarray)).'<br />');
   #   $r->print("0,1,2: ".join(',',&drop(0,1,2,@debugarray)).'<br />');
   #   $r->print("1,1,2: ".join(',',&drop(1,1,2,@debugarray)).'<br />');
   #
   #   $r->print("0,0,4: ".join(',',&drop(0,0,4,@debugarray)).'<br />');
   #   $r->print("1,0,4: ".join(',',&drop(1,0,4,@debugarray)).'<br />');
   #   $r->print("0,1,4: ".join(',',&drop(0,1,4,@debugarray)).'<br />');
   #   $r->print("1,1,4: ".join(',',&drop(1,1,4,@debugarray)).'<br />');
   #
   #   $r->print("0,0,5: ".join(',',&drop(0,0,5,@debugarray)).'<br />');
   #   $r->print("1,0,5: ".join(',',&drop(1,0,5,@debugarray)).'<br />');
   #   $r->print("0,1,5: ".join(',',&drop(0,1,5,@debugarray)).'<br />');
   #   $r->print("1,1,5: ".join(',',&drop(1,1,5,@debugarray)).'<br />');
   #
   #   $r->print("0,0,7: ".join(',',&drop(0,0,7,@debugarray)).'<br />');
   #   $r->print("1,0,7: ".join(',',&drop(1,0,7,@debugarray)).'<br />');
   #   $r->print("0,1,7: ".join(',',&drop(0,1,7,@debugarray)).'<br />');
   #   $r->print("1,1,7: ".join(',',&drop(1,1,7,@debugarray)).'<br />');
   
 }  }
   
 #  #
Line 664  ENDMOVE Line 691  ENDMOVE
     }      }
     if ($output) {      if ($output) {
        $r->print('</ul>');         $r->print('</ul>');
        $r->print('<p>'.&mt('Total raw points: [_1]/[_2]',$totalcorrect,$totalpossible).'</p>');   
        if ($cangrade) {         if ($cangrade) {
            $r->print('<br />'.&Apache::loncommon::selectresource_link('quickform','addcont_'.$id,&mt('Add Problem or Folder')).'<br />');             $r->print('<br />'.&Apache::loncommon::selectresource_link('quickform','addcont_'.$id,&mt('Add Problem or Folder')).'<br />');
        }         }
          $r->print('<p>'.&mt('Total raw points: [_1]/[_2]',$totalcorrect,$totalpossible).'</p>');
        $r->print('</td>');          $r->print('</td>'); 
     }      }
 # Total  # Total
Line 697  ENDMOVE Line 724  ENDMOVE
   
   
 # Calculation  # Calculation
     my $actualtotal=$totalcorrect;  
     if ($output) { $r->print('<td><ul>'); }      if ($output) { $r->print('<td><ul>'); }
     foreach my $calcrule (split(/\,/,$categories{$id.'_calculations'})) {      foreach my $calcrule (split(/\,/,$categories{$id.'_calculations'})) {
         if ($output) { $r->print('<li>'); }          if ($output) { $r->print('<li>'); }
Line 708  ENDMOVE Line 734  ENDMOVE
         }          }
         if ($code eq 'capabove') {          if ($code eq 'capabove') {
             if ($totalpossible>0) {              if ($totalpossible>0) {
                 if ($actualtotal/$totalpossible>$value/100.) {                  if ($totalcorrect/$totalpossible>$value/100.) {
                     $actualtotal=$totalpossible*$value/100.;                      $totalcorrect=$totalpossible*$value/100.;
                 }                  }
             }              }
         } elsif ($code eq 'capbelow') {          } elsif ($code eq 'capbelow') {
             if ($totalpossible>0) {              if ($totalpossible>0) {
                 if ($actualtotal/$totalpossible<$value/100.) {                  if ($totalcorrect/$totalpossible<$value/100.) {
                     $actualtotal=$totalpossible*$value/100.;                      $totalcorrect=$totalpossible*$value/100.;
                 }                  }
             }              }
           } elsif ($code eq 'droplow') {
               ($totalcorrect,@individual)=&drop(0,0,$value,@individual);
           } elsif ($code eq 'drophigh') {
               ($totalcorrect,@individual)=&drop(1,0,$value,@individual);
           } elsif ($code eq 'droplowperc') {
               ($totalcorrect,@individual)=&drop(0,1,$value,@individual);
           } elsif ($code eq 'drophighperc') {
               ($totalcorrect,@individual)=&drop(1,1,$value,@individual);
         }          }
         if ($output) { $r->print('</li>'); }          if ($output) { $r->print('</li>'); }
     }      }
     if ($output) {       if ($output) { 
        $r->print('</ul>');           $r->print('</ul>'); 
        $r->print('<p>'.&mt('Calculated points: [_1]/[_2]',$actualtotal,$totalpossible).'</p>');          if ($cangrade) { $r->print('<br />'.&new_calc_rule_form($id)); }
           $r->print('<p>'.&mt('Calculated points: [_1]/[_2]',$totalcorrect,$totalpossible).'</p>');
           $r->print('</td>'); 
     }      }
   
     if ($cangrade) {  
         if ($output) { $r->print('<br />'.&new_calc_rule_form($id)); }  
     }  
     if ($output) { $r->print('</td>'); }  
   
 # Weight  # Weight
     if ($cangrade) {      if ($cangrade) {
        if ($output) {          if ($output) { 
Line 767  ENDMOVE Line 798  ENDMOVE
 }  }
   
 #  #
   # Drop folders and problems
   #
   
   sub drop {
       my ($high,$percent,$n,@individual)=@_;
       my @newindividual=sort {
           my ($pa,$ca)=split(/\:/,$a);
           my ($pb,$cb)=split(/\:/,$b);
           if ($percent) {
               my $perca=0;
               if ($pa>0) { $perca=$ca/$pa; }
               my $percb=0;
               if ($pb>0) { $percb=$cb/$pb; }
               $perca<=>$percb;
           } else {
               $ca<=>$cb;
           }
       } @individual;
       if ($#newindividual>=$n) {
           if ($high) {
              splice(@newindividual,$#newindividual+1-$n,$n);
           } else {
              splice(@newindividual,0,$n);
           }
       } else {
           @newindividual=();
       }
       my $newcorrect=0;
       for my $score (@newindividual) {
           $newcorrect+=(split(/\:/,$score))[1];
       }
       return ($newcorrect,@newindividual);
   } 
   #
 # Bottom line with grades  # Bottom line with grades
 #  #
   
Removed from v.1.91  
changed lines
  Added in v.1.93

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