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

Diff for /loncom/interface/Attic/lonspreadsheet.pm between versions 1.15 and 1.16

version 1.15, 2000/12/12 16:48:21 version 1.16, 2000/12/16 21:34:47
Line 2 Line 2
 # Spreadsheet/Grades Display Handler  # Spreadsheet/Grades Display Handler
 #  #
 # 11/11,11/15,11/27,12/04,12/05,12/06,12/07,  # 11/11,11/15,11/27,12/04,12/05,12/06,12/07,
 # 12/08,12/09,12/11,12/12 Gerd Kortemeyer  # 12/08,12/09,12/11,12/12,12/15,12/16 Gerd Kortemeyer
   
 package Apache::lonspreadsheet;  package Apache::lonspreadsheet;
   
Line 260  sub SUMMIN { Line 260  sub SUMMIN {
   
 sub sett {  sub sett {
     %t=();      %t=();
       my $pattern='';
       if ($sheettype eq 'assesscalc') {
    $pattern='A';
       } else {
           $pattern='[A-Z]';
       }
     map {      map {
  if ($f{$_}) {   if ($f{$_}) {
             if ($_=~/^A/) {              if ($_=~/^$pattern/) {
         unless ($f{$_}=~/^\!/) {          unless ($f{$_}=~/^\!/) {
     $t{$_}=$c{$_};      $t{$_}=$c{$_};
                 }                  }
Line 300  sub calc { Line 306  sub calc {
     return '';      return '';
 }  }
   
 sub outrow {  sub outrowassess {
     my $n=shift;      my $n=shift;
     my @cols=();      my @cols=();
     if ($n) {      if ($n) {
Line 436  sub rown { Line 442  sub rown {
     my $defaultbg=((($n-1)/5)==int(($n-1)/5))?'#E0E0':'#FFFF';      my $defaultbg=((($n-1)/5)==int(($n-1)/5))?'#E0E0':'#FFFF';
     my $rowdata="\n<tr><td><b><font size=+1>$n</font></b></td>";      my $rowdata="\n<tr><td><b><font size=+1>$n</font></b></td>";
     my $showf=0;      my $showf=0;
       my $proc;
       if (&gettype($safeeval) eq 'assesscalc') {
           $proc='&outrowassess';
       } else {
           $proc='&outrow';
       }
     map {      map {
        my $bgcolor=$defaultbg.((($showf-1)/5==int(($showf-1)/5))?'99':'DD');         my $bgcolor=$defaultbg.((($showf-1)/5==int(($showf-1)/5))?'99':'DD');
        my ($fm,$vl)=split(/\_\_\_eq\_\_\_/,$_);         my ($fm,$vl)=split(/\_\_\_eq\_\_\_/,$_);
Line 453  sub rown { Line 465  sub rown {
            $rowdata.='<td bgcolor='.$bgcolor.'>&nbsp;'.$vl.'&nbsp;</td>';             $rowdata.='<td bgcolor='.$bgcolor.'>&nbsp;'.$vl.'&nbsp;</td>';
        }         }
        $showf++;         $showf++;
     } $safeeval->reval('&outrow('.$n.')');      } $safeeval->reval($proc.'('.$n.')');
     return $rowdata.'</tr>';      return $rowdata.'</tr>';
 }  }
   
Line 749  sub updaterows { Line 761  sub updaterows {
     }      }
 }  }
   
   # --------------------------------------------------- Load data for one student
   
   sub rowazstudent {
       my $safeeval=shift;
       my %c=();
       my %f=&getformulas($safeeval);
       map {
    if ($_=~/^A/) {
              unless ($f{$_}=~/^\!/) {
                 print &Apache::lonnet::ssi(
           '/res/msu/korte/junk.assesscalc',('utarget' => 'export',
                                             'uname'   => $uname,
                                             'udom'    => $udom,
                     'usymb'   => $f{$_})).
                 '<br>'.$f{$_}.'<br>';
      }
           }
       } keys %f;
   
       &setconstants($safeeval,%c);
   }
   
 # ------------------------------------------------ Load data for one assessment  # ------------------------------------------------ Load data for one assessment
   
 sub rowaassess {  sub rowaassess {
Line 903  sub handler { Line 937  sub handler {
     }      }
 # ----------------------------------------------------------- Change of target?  # ----------------------------------------------------------- Change of target?
   
     my $reroute=($ENV{'utarget'} eq 'export');      my $reroute=($ENV{'form.utarget'} eq 'export');
   
 # ------------------------------------------------------------------- Open page  # ------------------------------------------------------------------- Open page
   
Line 991  ENDSCRIPT Line 1025  ENDSCRIPT
   
     if (&gettype($sheetone) eq 'assesscalc') {      if (&gettype($sheetone) eq 'assesscalc') {
  &rowaassess($sheetone,$ENV{'form.usymb'});   &rowaassess($sheetone,$ENV{'form.usymb'});
       } elsif  (&gettype($sheetone) eq 'studentcalc') {
    &rowazstudent($sheetone);
     }      }
     &calcsheet($sheetone);      &calcsheet($sheetone);
   
Removed from v.1.15  
changed lines
  Added in v.1.16

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