[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.56 and 1.57

version 1.56, 2001/07/21 22:45:46 version 1.57, 2001/07/21 23:55:31
Line 87  undef %c; Line 87  undef %c;
 undef %rl;  undef %rl;
 undef @os;  undef @os;
   
     undef $nfield;  
     undef $nsheet;  
   
 $maxrow=0;  $maxrow=0;
 $sheettype='';  $sheettype='';
   
Line 404  sub outrowassess { Line 401  sub outrowassess {
     my @cols=();      my @cols=();
     if ($n) {      if ($n) {
        my ($usy,$ufn)=split(/\_\_\&\&\&\_\_/,$f{'A'.$n});         my ($usy,$ufn)=split(/\_\_\&\&\&\_\_/,$f{'A'.$n});
        $cols[0]=$rl{$f{'A'.$n}}.'<br>'.         $cols[0]=$f{'A'.$n}.'<br>'.$rl{$usy}.'<br>'.
                 '<select name="sel_'.$n.'" onChange="changesheet('.$n.                  '<select name="sel_'.$n.'" onChange="changesheet('.$n.
                 ')"><option name="default">Default</option>';                  ')"><option name="default">Default</option>';
        map {         map {
Line 532  sub getmaxrow { Line 529  sub getmaxrow {
     my $safeeval=shift;      my $safeeval=shift;
     return $safeeval->reval('$maxrow');      return $safeeval->reval('$maxrow');
 }  }
 # -------------------------------------------- Store which sheet needs changing  
   
 sub changesheet {  
     my ($safeeval,$nfield,$nsheet)=@_;  
     $safeeval->reval('$nfield='.$nfield.'; $nsheet='.$nsheet.';');  
 }  
   
 # ---------------------------------------------------------------- Set filename  # ---------------------------------------------------------------- Set filename
   
Line 964  sub tmpread { Line 955  sub tmpread {
         }          }
     }      }
     if ($nform eq 'changesheet') {      if ($nform eq 'changesheet') {
           $fo{'A'.$nfield}=(split(/\_\_\&\&\&\_\_/,$fo{'A'.$nfield}))[0];
         unless ($ENV{'form.sel_'.$nfield} eq 'Default') {          unless ($ENV{'form.sel_'.$nfield} eq 'Default') {
     &changesheet($safeeval,$nfield,$ENV{'form.sel_'.$nfield});      $fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield};
         }          }
     } else {      } else {
        if ($nfield) { $fo{$nfield}=$nform; }         if ($nfield) { $fo{$nfield}=$nform; }
Line 1237  sub updatestudentassesssheet { Line 1229  sub updatestudentassesssheet {
  map {   map {
     if ($_=~/^A(\d+)/) {      if ($_=~/^A(\d+)/) {
                 $maxrow=($1>$maxrow)?$1:$maxrow;                  $maxrow=($1>$maxrow)?$1:$maxrow;
                 $existing{$f{$_}}=1;                  my ($usy,$ufn)=split(/\_\_\&\&\&\_\_/,$f{$_});
  unless ((defined($current{$f{$_}})) || (!$1)) {                  $existing{$usy}=1;
    unless ((defined($current{$usy})) || (!$1)) {
    $f{$_}='!!! Obsolete';     $f{$_}='!!! Obsolete';
                    $changed=1;                     $changed=1;
           } elsif ($ufn) {
       $current{$usy}
                          =~s/assesscalc\?usymb\=/assesscalc\?ufn\=$ufn\&usymb\=/;
                 }                  }
             }              }
         } keys %f;          } keys %f;
Removed from v.1.56  
changed lines
  Added in v.1.57

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