[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.16 and 1.17

version 1.16, 2000/12/16 21:34:47 version 1.17, 2000/12/18 13:45:40
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,12/15,12/16 Gerd Kortemeyer  # 12/08,12/09,12/11,12/12,12/15,12/16,12/18 Gerd Kortemeyer
   
 package Apache::lonspreadsheet;  package Apache::lonspreadsheet;
   
Line 279  sub sett { Line 279  sub sett {
             }              }
         }          }
     } keys %f;      } keys %f;
       $t{'A0'}=$f{'A0'};
       $t{'A0'}=~s/\.\.+/\,/g;
       $t{'A0'}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$v\{\'$2\'\}/g;
 }  }
   
 sub calc {  sub calc {
Line 454  sub rown { Line 457  sub rown {
        if ($showf==0) { $vl=$_; }         if ($showf==0) { $vl=$_; }
        if ($showf<=1) { $bgcolor='#FFDDDD'; }         if ($showf<=1) { $bgcolor='#FFDDDD'; }
        if (($n==0) && ($showf<=26)) { $bgcolor='#CCCCFF'; }          if (($n==0) && ($showf<=26)) { $bgcolor='#CCCCFF'; } 
        if ($showf>1) {         if (($showf>1) || ((!$n) && ($showf>0))) {
    if ($vl eq '') {     if ($vl eq '') {
        $vl='<font size=+2 color='.$bgcolor.'>&#35;</font>';         $vl='<font size=+2 color='.$bgcolor.'>&#35;</font>';
            }             }
Line 734  sub updaterows { Line 737  sub updaterows {
     if ($_=~/^A(\d+)/) {      if ($_=~/^A(\d+)/) {
                 $maxrow=($1>$maxrow)?$1:$maxrow;                  $maxrow=($1>$maxrow)?$1:$maxrow;
                 $existing{$f{$_}}=1;                  $existing{$f{$_}}=1;
  unless (defined($current{$f{$_}})) {   unless ((defined($current{$f{$_}})) || (!$1)) {
    $f{$_}='!!! Obsolete';     $f{$_}='!!! Obsolete';
                    $changed=1;                     $changed=1;
                 }                  }
Line 768  sub rowazstudent { Line 771  sub rowazstudent {
     my %c=();      my %c=();
     my %f=&getformulas($safeeval);      my %f=&getformulas($safeeval);
     map {      map {
  if ($_=~/^A/) {   if ($_=~/^A(\d+)/) {
      my $row=$1;
            unless ($f{$_}=~/^\!/) {             unless ($f{$_}=~/^\!/) {
               print &Apache::lonnet::ssi(                my @assessdata=split(/\,/,
                                &Apache::lonnet::ssi(
         '/res/msu/korte/junk.assesscalc',('utarget' => 'export',          '/res/msu/korte/junk.assesscalc',('utarget' => 'export',
                                           'uname'   => $uname,                                            'uname'   => $uname,
                                           'udom'    => $udom,                                            'udom'    => $udom,
                   'usymb'   => $f{$_})).                    'usymb'   => $f{$_})));
               '<br>'.$f{$_}.'<br>';                my $index=0;
                 map {
     $c{$_.$row}=$assessdata[$index];
     print $_.':'.$c{$_.$row}.'<br>';
                     $index++;
                 } ('A','B','C','D','E','F','G','H','I','J','K','L','M',
                    'N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
                 
    }     }
         }          }
     } keys %f;      } keys %f;
Line 915  sub handler { Line 927  sub handler {
       ($ENV{'request.state'} eq 'construct')) {         ($ENV{'request.state'} eq 'construct')) { 
   
 # --------------------------- Get query string for limited number of parameters  # --------------------------- Get query string for limited number of parameters
   
     map {      map {
        my ($name, $value) = split(/=/,$_);         my ($name, $value) = split(/=/,$_);
        $value =~ tr/+/ /;         $value =~ tr/+/ /;
Line 981  ENDSCRIPT Line 994  ENDSCRIPT
         $ENV{'form.unewformula'}=~s/\'/\"/g;          $ENV{'form.unewformula'}=~s/\'/\"/g;
         $r->print('New formula: '.$ENV{'form.unewfield'}.'='.          $r->print('New formula: '.$ENV{'form.unewfield'}.'='.
                   $ENV{'form.unewformula'}.'<br>');                    $ENV{'form.unewformula'}.'<br>');
  &tmpread($sheetone,$r->dir_config('lonDaemons').'/tmp/',  
                  $ENV{'form.usymb'},  
                  $ENV{'form.unewfield'},$ENV{'form.unewformula'});  
         &setfilename($sheetone,$r->filename);          &setfilename($sheetone,$r->filename);
         $r->filename=~/\.(\w+)/;          $r->filename=~/\.(\w+)/;
         &settype($sheetone,$1);          &settype($sheetone,$1);
    &tmpread($sheetone,$r->dir_config('lonDaemons').'/tmp/',
                    $ENV{'form.usymb'},
                    $ENV{'form.unewfield'},$ENV{'form.unewformula'});
     } else {      } else {
         &readsheet($sheetone,$r->filename);          &readsheet($sheetone,$r->filename);
     }      }
Removed from v.1.16  
changed lines
  Added in v.1.17

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