[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.106 and 1.135

version 1.106, 2002/09/01 18:06:52 version 1.135, 2002/11/07 15:37:02
Line 26 Line 26
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 # Spreadsheet/Grades Display Handler  # Spreadsheet/Grades Display Handler
 #  #
 # 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,12/18,12/19,12/30,  
 # 01/01/01,02/01,03/01,19/01,20/01,22/01,  
 # 03/05,03/08,03/10,03/12,03/13,03/15,03/17,  
 # 03/19,03/20,03/21,03/27,04/05,04/09,  
 # 07/09,07/14,07/21,09/01,09/10,9/11,9/12,9/13,9/14,9/17,  
 # 10/16,10/17,10/20,11/05,11/28,12/27 Gerd Kortemeyer  
 # 01/14/02 Matthew  
 # 02/04/02 Matthew  
   
 # POD required stuff:  # POD required stuff:
   
 =head1 NAME  =head1 NAME
Line 54  not the grades of their peers.  The spre Line 44  not the grades of their peers.  The spre
 offering the ability to use Perl code to manipulate data, as well as many  offering the ability to use Perl code to manipulate data, as well as many
 built-in functions.  built-in functions.
   
   
 =head2 Functions available to user of lonspreadsheet  =head2 Functions available to user of lonspreadsheet
   
 =over 4  =over 4
Line 72  use Apache::Constants qw(:common :http); Line 61  use Apache::Constants qw(:common :http);
 use GDBM_File;  use GDBM_File;
 use HTML::TokeParser;  use HTML::TokeParser;
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
   use Apache::loncoursedata;
   use Apache::File();
   use Spreadsheet::WriteExcel;
   #
   # Caches for coursewide information 
   #
   my %Section;
   
 #  #
 # Caches for previously calculated spreadsheets  # Caches for previously calculated spreadsheets
 #  #
Line 122  my $tmpdir; Line 119  my $tmpdir;
 # =============================================================================  # =============================================================================
 # ===================================== Implements an instance of a spreadsheet  # ===================================== Implements an instance of a spreadsheet
   
 sub initsheet {  ##
     my $safeeval = new Safe(shift);  ## mask - used to reside in the safe space.  
     my $safehole = new Safe::Hole;  ##
     $safeeval->permit("entereval");  
     $safeeval->permit(":base_math");  
     $safeeval->permit("sort");  
     $safeeval->deny(":base_io");  
     $safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT');  
     $safeeval->share('$@');  
     my $code=<<'ENDDEFS';  
 # ---------------------------------------------------- Inside of the safe space  
   
 #  
 # f: formulas  
 # t: intermediate format (variable references expanded)  
 # v: output values  
 # c: preloaded constants (A-column)  
 # rl: row label  
 # os: other spreadsheets (for student spreadsheet only)  
   
 undef %sheet_values;   
 undef %t;  
 undef %f;  
 undef %c;  
 undef %rowlabel;  
 undef @os;  
   
 $maxrow = 0;  
 $sheettype = '';  
   
 # filename/reference of the sheet  
 $filename = '';  
   
 # user data  
 $uname = '';  
 $uhome = '';  
 $udom  = '';  
   
 # course data  
   
 $csec = '';  
 $chome= '';  
 $cnum = '';  
 $cdom = '';  
 $cid  = '';  
 $cfn  = '';  
   
 # symb  
   
 $usymb = '';  
   
 # error messages  
 $errormsg = '';  
   
 sub mask {  sub mask {
     my ($lower,$upper)=@_;      my ($lower,$upper)=@_;
       $upper = $lower if (! defined($upper));
     $lower=~/([A-Za-z]|\*)(\d+|\*)/;      #
     my $la=$1;      my ($la,$ld) = ($lower=~/([A-Za-z]|\*)(\d+|\*)/);
     my $ld=$2;      my ($ua,$ud) = ($upper=~/([A-Za-z]|\*)(\d+|\*)/);
       #
     $upper=~/([A-Za-z]|\*)(\d+|\*)/;  
     my $ua=$1;  
     my $ud=$2;  
     my $alpha='';      my $alpha='';
     my $num='';      my $num='';
       #
     if (($la eq '*') || ($ua eq '*')) {      if (($la eq '*') || ($ua eq '*')) {
        $alpha='[A-Za-z]';          $alpha='[A-Za-z]';
     } else {      } else {
        if (($la=~/[A-Z]/) && ($ua=~/[A-Z]/) ||         if (($la=~/[A-Z]/) && ($ua=~/[A-Z]/) ||
            ($la=~/[a-z]/) && ($ua=~/[a-z]/)) {             ($la=~/[a-z]/) && ($ua=~/[a-z]/)) {
Line 199  sub mask { Line 142  sub mask {
           $alpha='['.$la.'-Za-'.$ua.']';            $alpha='['.$la.'-Za-'.$ua.']';
        }         }
     }         }   
   
     if (($ld eq '*') || ($ud eq '*')) {      if (($ld eq '*') || ($ud eq '*')) {
  $num='\d+';   $num='\d+';
     } else {      } else {
Line 219  sub mask { Line 161  sub mask {
        } else {         } else {
            my @lda=($ld=~m/\d/g);             my @lda=($ld=~m/\d/g);
            my @uda=($ud=~m/\d/g);             my @uda=($ud=~m/\d/g);
            my $i; $j=0; $notdone=1;             my $i; 
              my $j=0; 
              my $notdone=1;
            for ($i=0;($i<=$#lda)&&($notdone);$i++) {             for ($i=0;($i<=$#lda)&&($notdone);$i++) {
                if ($lda[$i]==$uda[$i]) {                 if ($lda[$i]==$uda[$i]) {
    $num.=$lda[$i];     $num.=$lda[$i];
Line 243  sub mask { Line 187  sub mask {
                }                 }
                $num.=')';                 $num.=')';
            } else {             } else {
                if ($lda[$#lda]!=$uda[$#uda]) {                 if ($lda[-1]!=$uda[-1]) {
                   $num.='['.$lda[$#lda].'-'.$uda[$#uda].']';                    $num.='['.$lda[-1].'-'.$uda[-1].']';
        }         }
            }             }
        }         }
Line 252  sub mask { Line 196  sub mask {
     return '^'.$alpha.$num."\$";      return '^'.$alpha.$num."\$";
 }  }
   
   sub initsheet {
       my $safeeval = new Safe(shift);
       my $safehole = new Safe::Hole;
       $safeeval->permit("entereval");
       $safeeval->permit(":base_math");
       $safeeval->permit("sort");
       $safeeval->deny(":base_io");
       $safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT');
       $safehole->wrap(\&Apache::lonspreadsheet::mask,$safeeval,'&mask');
       $safeeval->share('$@');
       my $code=<<'ENDDEFS';
   # ---------------------------------------------------- Inside of the safe space
   
   #
   # f: formulas
   # t: intermediate format (variable references expanded)
   # v: output values
   # c: preloaded constants (A-column)
   # rl: row label
   # os: other spreadsheets (for student spreadsheet only)
   
   undef %sheet_values;   # Holds the (computed, final) values for the sheet
       # This is only written to by &calc, the spreadsheet computation routine.
       # It is read by many functions
   undef %t; # Holds the values of the spreadsheet temporarily. Set in &sett, 
       # which does the translation of strings like C5 into the value in C5.
       # Used in &calc - %t holds the values that are actually eval'd.
   undef %f;    # Holds the formulas for each cell.  This is the users
       # (spreadsheet authors) data for each cell.
       # set by &setformulas and returned by &getformulas
       # &setformulas is called by &readsheet, &tmpread, &updateclasssheet,
       # &updatestudentassesssheet, &loadstudent, &loadcourse
       # &getformulas is called by &writesheet, &tmpwrite, &updateclasssheet,
       # &updatestudentassesssheet, &loadstudent, &loadcourse, &loadassessment, 
   undef %c; # Holds the constants for a sheet.  In the assessment
       # sheets, this is the A column.  Used in &MINPARM, &MAXPARM, &expandnamed,
       # &sett, and &setconstants.  There is no &getconstants.
       # &setconstants is called by &loadstudent, &loadcourse, &load assessment,
   undef @os;  # Holds the names of other spreadsheets - this is used to specify
       # the spreadsheets that are available for the assessment sheet.
       # Set by &setothersheets.  &setothersheets is called by &handler.  A
       # related subroutine is &othersheets.
   #$errorlog = '';
   
   $maxrow = 0;
   $sheettype = '';
   
   # filename/reference of the sheet
   $filename = '';
   
   # user data
   $uname = '';
   $uhome = '';
   $udom  = '';
   
   # course data
   
   $csec = '';
   $chome= '';
   $cnum = '';
   $cdom = '';
   $cid  = '';
   $coursefilename  = '';
   
   # symb
   
   $usymb = '';
   
   # error messages
   $errormsg = '';
   
   
 #-------------------------------------------------------  #-------------------------------------------------------
   
 =item UWCALC(hashname,modules,units,date)   =item UWCALC(hashname,modules,units,date) 
Line 576  compute the average of the items in the Line 592  compute the average of the items in the
 #-------------------------------------------------------  #-------------------------------------------------------
 sub MEAN {  sub MEAN {
     my $mask=mask(@_);      my $mask=mask(@_);
     my $sum=0; my $num=0;      my $sum=0; 
       my $num=0;
     foreach (grep /$mask/,keys(%sheet_values)) {      foreach (grep /$mask/,keys(%sheet_values)) {
         $sum+=$sheet_values{$_};          $sum+=$sheet_values{$_};
         $num++;          $num++;
Line 813  sub expandnamed { Line 830  sub expandnamed {
         foreach $parameter (keys(%c)) {          foreach $parameter (keys(%c)) {
             push @matches,$parameter if ($parameter =~ /$expression/);              push @matches,$parameter if ($parameter =~ /$expression/);
         }          }
         if ($#matches == 0) {          if (scalar(@matches) == 0) {
               $returnvalue = 'unmatched parameter: '.$parameter;
           } elsif (scalar(@matches) == 1) {
             $returnvalue = '$c{\''.$matches[0].'\'}';              $returnvalue = '$c{\''.$matches[0].'\'}';
         } elsif ($#matches > 0) {          } elsif (scalar(@matches) > 0) {
             # more than one match.  Look for a concise one              # more than one match.  Look for a concise one
             $returnvalue =  "'non-unique parameter name : $expression'";              $returnvalue =  "'non-unique parameter name : $expression'";
             foreach (@matches) {              foreach (@matches) {
Line 824  sub expandnamed { Line 843  sub expandnamed {
                 }                  }
             }              }
         } else {          } else {
             $returnvalue =  "'bad parameter name : $expression'";              # There was a negative number of matches, which indicates 
               # something is wrong with reality.  Better warn the user.
               $returnvalue = 'bizzare parameter: '.$parameter;
         }          }
         return $returnvalue;          return $returnvalue;
     }      }
Line 863  sub sett { Line 884  sub sett {
     }      }
     # Deal with the normal cells      # Deal with the normal cells
     foreach (keys(%f)) {      foreach (keys(%f)) {
  if (($f{$_}) && ($_!~/template\_/)) {   if (exists($f{$_}) && ($_!~/template\_/)) {
             my $matches=($_=~/^$pattern(\d+)/);              my $matches=($_=~/^$pattern(\d+)/);
             if  (($matches) && ($1)) {              if  (($matches) && ($1)) {
         unless ($f{$_}=~/^\!/) {          unless ($f{$_}=~/^\!/) {
Line 907  sub calc { Line 928  sub calc {
     while ($notfinished) {      while ($notfinished) {
  $notfinished=0;   $notfinished=0;
         foreach (keys(%t)) {          foreach (keys(%t)) {
               #$errorlog .= "$_:".$t{$_};
             my $old=$sheet_values{$_};              my $old=$sheet_values{$_};
             $sheet_values{$_}=eval $t{$_};              $sheet_values{$_}=eval $t{$_};
     if ($@) {      if ($@) {
Line 914  sub calc { Line 936  sub calc {
                 return $_.': '.$@;                  return $_.': '.$@;
             }              }
     if ($sheet_values{$_} ne $old) { $notfinished=1; $lastcalc=$_; }      if ($sheet_values{$_} ne $old) { $notfinished=1; $lastcalc=$_; }
               #$errorlog .= ":".$sheet_values{$_}."\n";
         }          }
         $depth++;          $depth++;
         if ($depth>100) {          if ($depth>100) {
Line 924  sub calc { Line 947  sub calc {
     return '';      return '';
 }  }
   
   # ------------------------------------------- End of "Inside of the safe space"
   ENDDEFS
       $safeeval->reval($code);
       return $safeeval;
   }
   
   #
   # 
   #
 sub templaterow {  sub templaterow {
       my $sheet = shift;
     my @cols=();      my @cols=();
     $cols[0]='<b><font size=+1>Template</font></b>';      my $rowlabel = 'Template';
     foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',      foreach ('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',       'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
      'a','b','c','d','e','f','g','h','i','j','k','l','m',       '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') {       'n','o','p','q','r','s','t','u','v','w','x','y','z') {
         my $fm=$f{'template_'.$_};          my $fm=$sheet->{'f'}->{'template_'.$_};
         $fm=~s/[\'\"]/\&\#34;/g;          $fm=~s/[\'\"]/\&\#34;/g;
         push(@cols,"'template_$_','$fm'".'___eq___'.$fm);          push(@cols,{ name    => 'template_'.$_,
                        formula => $fm,
                        value   => $fm });
     }      }
     return @cols;      return ($rowlabel,@cols);
 }  }
   
 #  
 # This is actually used for the student spreadsheet, not the assessment sheet  
 # Do not be fooled by the name!  
 #  
 sub outrowassess {  sub outrowassess {
     # $n is the current row number      # $n is the current row number
     my $n=shift;      my ($sheet,$n) = @_;
     my @cols=();      my @cols=();
       my $rowlabel='';
     if ($n) {      if ($n) {
         my ($usy,$ufn)=split(/__&&&\__/,$f{'A'.$n});          my ($usy,$ufn)=split(/__&&&\__/,$sheet->{'f'}->{'A'.$n});
         if ($rowlabel{$usy}) {          if (exists($sheet->{'rowlabel'}->{$usy})) {
             $cols[0]=$rowlabel{$usy}.'<br>'.              $rowlabel = $sheet->{'rowlabel'}->{$usy};
                 '<select name="sel_'.$n.'" onChange="changesheet('.$n.')">'.  
                     '<option name="default">Default</option>';  
         } else {           } else { 
             $cols[0]='';               $rowlabel = '';
         }  
         foreach (@os) {  
             $cols[0].='<option name="'.$_.'"';  
             if ($ufn eq $_) {  
                 $cols[0].=' selected';  
             }  
             $cols[0].='>'.$_.'</option>';  
         }          }
         $cols[0].='</select>';  
     } else {      } else {
         $cols[0]='<b><font size=+1>Export</font></b>';          $rowlabel = 'Export';
     }      }
     foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',      foreach ('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',       'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
      'a','b','c','d','e','f','g','h','i','j','k','l','m',       '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') {       'n','o','p','q','r','s','t','u','v','w','x','y','z') {
         my $fm=$f{$_.$n};          my $fm=$sheet->{'f'}->{$_.$n};
         $fm=~s/[\'\"]/\&\#34;/g;          $fm=~s/[\'\"]/\&\#34;/g;
         push(@cols,"'$_$n','$fm'".'___eq___'.$sheet_values{$_.$n});          push(@cols,{ name    => $_.$n,
                        formula => $fm,
                        value   => $sheet->{'values'}->{$_.$n}});
     }      }
     return @cols;      return ($rowlabel,@cols);
 }  }
   
 sub outrow {  sub outrow {
     my $n=shift;      my ($sheet,$n)=@_;
     my @cols=();      my @cols=();
       my $rowlabel;
     if ($n) {      if ($n) {
        $cols[0]=$rowlabel{$f{'A'.$n}};          $rowlabel = $sheet->{'rowlabel'}->{$sheet->{'f'}->{'A'.$n}};
     } else {      } else {
        $cols[0]='<b><font size=+1>Export</font></b>';          if ($sheet->{'sheettype'} eq 'classcalc') {
               $rowlabel = 'Summary';
           } else {
               $rowlabel = 'Export';
           }
     }      }
     foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',      foreach ('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',       'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
      'a','b','c','d','e','f','g','h','i','j','k','l','m',       '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') {       'n','o','p','q','r','s','t','u','v','w','x','y','z') {
         my $fm=$f{$_.$n};          my $fm=$sheet->{'f'}->{$_.$n};
         $fm=~s/[\'\"]/\&\#34;/g;          $fm=~s/[\'\"]/\&\#34;/g;
         push(@cols,"'$_$n','$fm'".'___eq___'.$sheet_values{$_.$n});          push(@cols,{ name    => $_.$n,
                        formula => $fm,
                        value   => $sheet->{'values'}->{$_.$n}});
     }      }
     return @cols;      return ($rowlabel,@cols);
 }  
   
 sub exportrowa {  
     my @exportarray=();  
     foreach ('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') {  
  push(@exportarray,$sheet_values{$_.'0'});  
     }   
     return @exportarray;  
 }  
   
 # ------------------------------------------- End of "Inside of the safe space"  
 ENDDEFS  
     $safeeval->reval($code);  
     return $safeeval;  
 }  }
   
 # ------------------------------------------------ Add or change formula values  # ------------------------------------------------ Add or change formula values
   
 sub setformulas {  sub setformulas {
     my ($safeeval,%f)=@_;      my ($sheet)=shift;
     %{$safeeval->varglob('f')}=%f;      %{$sheet->{'safe'}->varglob('f')}=%{$sheet->{'f'}};
 }  }
   
 # ------------------------------------------------ Add or change formula values  # ------------------------------------------------ Add or change formula values
   
 sub setconstants {  sub setconstants {
     my ($safeeval,%c)=@_;      my ($sheet)=shift;
     %{$safeeval->varglob('c')}=%c;      my ($constants) = @_;
       if (! ref($constants)) {
           my %tmp = @_;
           $constants = \%tmp;
       }
       $sheet->{'constants'} = $constants;
       return %{$sheet->{'safe'}->varglob('c')}=%{$sheet->{'constants'}};
 }  }
   
 # --------------------------------------------- Set names of other spreadsheets  # --------------------------------------------- Set names of other spreadsheets
   
 sub setothersheets {  sub setothersheets {
     my ($safeeval,@os)=@_;      my $sheet = shift;
     @{$safeeval->varglob('os')}=@os;      my @othersheets = @_;
       $sheet->{'othersheets'} = \@othersheets;
       @{$sheet->{'safe'}->varglob('os')}=@othersheets;
       return;
 }  }
   
 # ------------------------------------------------ Add or change formula values  # ------------------------------------------------ Add or change formula values
   
 sub setrowlabels {  sub setrowlabels {
     my ($safeeval,%rowlabel)=@_;      my $sheet=shift;
     %{$safeeval->varglob('rowlabel')}=%rowlabel;      my ($rowlabel) = @_;
       if (! ref($rowlabel)) {
           my %tmp = @_;
           $rowlabel = \%tmp;
       }
       $sheet->{'rowlabel'}=$rowlabel;
 }  }
   
 # ------------------------------------------------------- Calculate spreadsheet  # ------------------------------------------------------- Calculate spreadsheet
   
 sub calcsheet {  sub calcsheet {
     my $safeeval=shift;      my $sheet=shift;
     return $safeeval->reval('&calc();');      my $result =  $sheet->{'safe'}->reval('&calc();');
 }      %{$sheet->{'values'}} = %{$sheet->{'safe'}->varglob('sheet_values')};
       return $result;
 # ------------------------------------------------------------------ Get values  
   
 sub getvalues {  
     my $safeeval=shift;  
     return $safeeval->reval('%sheet_values');  
 }  }
   
 # ---------------------------------------------------------------- Get formulas  # ---------------------------------------------------------------- Get formulas
   # Return a copy of the formulas
 sub getformulas {  sub getformulas {
     my $safeeval=shift;      my $sheet = shift;
     return %{$safeeval->varglob('f')};      return %{$sheet->{'safe'}->varglob('f')};
 }  }
   
 # ----------------------------------------------------- Get value of $f{'A'.$n}  sub geterrorlog {
       my $sheet = shift;
 sub getfa {      return ${$sheet->{'safe'}->varglob('errorlog')};    
     my ($safeeval,$n)=@_;  
     return $safeeval->reval('$f{"A'.$n.'"}');  
 }  
   
 # -------------------------------------------------------------------- Get type  
   
 sub gettype {  
     my $safeeval=shift;  
     return $safeeval->reval('$sheettype');  
 }  
   
 # ------------------------------------------------------------------ Set maxrow  
   
 sub setmaxrow {  
     my ($safeeval,$row)=@_;  
     $safeeval->reval('$maxrow='.$row.';');  
 }  
   
 # ------------------------------------------------------------------ Get maxrow  
   
 sub getmaxrow {  
     my $safeeval=shift;  
     return $safeeval->reval('$maxrow');  
 }  
   
 # ---------------------------------------------------------------- Set filename  
   
 sub setfilename {  
     my ($safeeval,$fn)=@_;  
     $safeeval->reval('$filename="'.$fn.'";');  
 }  
   
 # ---------------------------------------------------------------- Get filename  
   
 sub getfilename {  
     my $safeeval=shift;  
     return $safeeval->reval('$filename');  
 }  
   
 # --------------------------------------------------------------- Get course ID  
   
 sub getcid {  
     my $safeeval=shift;  
     return $safeeval->reval('$cid');  
 }  
   
 # --------------------------------------------------------- Get course filename  
   
 sub getcfn {  
     my $safeeval=shift;  
     return $safeeval->reval('$cfn');  
 }  }
   
 # ----------------------------------------------------------- Get course number  # ----------------------------------------------------- Get value of $f{'A'.$n}
   sub getfa {
 sub getcnum {      my $sheet = shift;
     my $safeeval=shift;      my ($n)=@_;
     return $safeeval->reval('$cnum');      return $sheet->{'safe'}->reval('$f{"A'.$n.'"}');
 }  
   
 # ------------------------------------------------------------- Get course home  
   
 sub getchome {  
     my $safeeval=shift;  
     return $safeeval->reval('$chome');  
 }  
   
 # ----------------------------------------------------------- Get course domain  
   
 sub getcdom {  
     my $safeeval=shift;  
     return $safeeval->reval('$cdom');  
 }  
   
 # ---------------------------------------------------------- Get course section  
   
 sub getcsec {  
     my $safeeval=shift;  
     return $safeeval->reval('$csec');  
 }  
   
 # --------------------------------------------------------------- Get user name  
   
 sub getuname {  
     my $safeeval=shift;  
     return $safeeval->reval('$uname');  
 }  
   
 # ------------------------------------------------------------- Get user domain  
   
 sub getudom {  
     my $safeeval=shift;  
     return $safeeval->reval('$udom');  
 }  
   
 # --------------------------------------------------------------- Get user home  
   
 sub getuhome {  
     my $safeeval=shift;  
     return $safeeval->reval('$uhome');  
 }  
   
 # -------------------------------------------------------------------- Get symb  
   
 sub getusymb {  
     my $safeeval=shift;  
     return $safeeval->reval('$usymb');  
 }  }
   
 # ------------------------------------------------------------- Export of A-row  # ------------------------------------------------------------- Export of A-row
   
 sub exportdata {  sub exportdata {
     my $safeeval=shift;      my $sheet=shift;
     return $safeeval->reval('&exportrowa()');      my @exportarray=();
       foreach ('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') {
           if (exists($sheet->{'values'}->{$_.'0'})) {
               push(@exportarray,$sheet->{'values'}->{$_.'0'});
           } else {
               push(@exportarray,'');
           }
       } 
       return @exportarray;
 }  }
   
   
 # ========================================================== End of Spreadsheet  # ========================================================== End of Spreadsheet
 # =============================================================================  # =============================================================================
   
 #  #
 # Procedures for screen output  # Procedures for spreadsheet output
 #  #
 # --------------------------------------------- Produce output row n from sheet  # --------------------------------------------- Produce output row n from sheet
   
 sub rown {  sub get_row {
     my ($safeeval,$n)=@_;      my ($sheet,$n) = @_;
     my $defaultbg;      my ($rowlabel,@rowdata);
     my $rowdata='';  
     my $dataflag=0;  
     unless ($n eq '-') {  
         $defaultbg=((($n-1)/5)==int(($n-1)/5))?'#E0E0':'#FFFF';  
     } else {  
         $defaultbg='#E0FF';  
     }  
     unless ($ENV{'form.showcsv'}) {  
         $rowdata.="\n<tr><td><b><font size=+1>$n</font></b></td>";  
     } else {  
         $rowdata.="\n".'"'.$n.'"';  
     }  
     my $showf=0;  
     my $proc;  
     my $maxred=1;  
     my $sheettype=&gettype($safeeval);  
     if ($sheettype eq 'studentcalc') {  
         $proc='&outrowassess';  
         $maxred=26;  
     } else {  
         $proc='&outrow';  
     }  
     if ($sheettype eq 'assesscalc') {  
         $maxred=1;  
     } else {  
         $maxred=26;  
     }  
     if (&getfa($safeeval,$n)=~/^[\~\-]/) { $maxred=1; }  
     if ($n eq '-') {       if ($n eq '-') { 
         $proc='&templaterow';           ($rowlabel,@rowdata) = &templaterow($sheet);
         $n=-1;       } elsif ($sheet->{'sheettype'} eq 'studentcalc') {
         $dataflag=1;           ($rowlabel,@rowdata) = &outrowassess($sheet,$n);
     }  
     foreach ($safeeval->reval($proc.'('.$n.')')) {  
         my $bgcolor=$defaultbg.((($showf-1)/5==int(($showf-1)/5))?'99':'DD');  
         my ($fm,$vl)=split(/\_\_\_eq\_\_\_/,$_);  
         if ((($vl ne '') || ($vl eq '0')) &&  
             (($showf==1) || ($sheettype ne 'studentcalc'))) { $dataflag=1; }  
         if ($showf==0) { $vl=$_; }  
         unless ($ENV{'form.showcsv'}) {  
             if ($showf<=$maxred) { $bgcolor='#FFDDDD'; }  
             if (($n==0) && ($showf<=26)) { $bgcolor='#CCCCFF'; }   
             if (($showf>$maxred) || ((!$n) && ($showf>0))) {  
                 if ($vl eq '') {  
                     $vl='<font size=+2 color='.$bgcolor.'>&#35;</font>';  
                 }  
                 $rowdata.='<td bgcolor='.$bgcolor.'>'.  
                     '<a href="javascript:celledit('.$fm.');">'.$vl.'</a></td>';  
             } else {  
                 $rowdata.='<td bgcolor='.$bgcolor.'>&nbsp;'.$vl.'&nbsp;</td>';  
             }  
         } else {  
             $rowdata.=',"'.$vl.'"';  
         }  
         $showf++;  
     }  # End of foreach($safeval...)  
     if ($ENV{'form.showall'} || ($dataflag)) {  
         return $rowdata.($ENV{'form.showcsv'}?'':'</tr>');  
     } else {      } else {
         return '';          ($rowlabel,@rowdata) = &outrow($sheet,$n);
     }      }
       return ($rowlabel,@rowdata);
 }  }
   
 # ------------------------------------------------------------- Print out sheet  ########################################################################
   ########################################################################
 sub outsheet {  sub sort_indicies {
     my ($r,$safeeval,$sheetdata)=@_;      my $sheet = shift;
     my $maxred = 26;    # The maximum number of cells to show as   
                         # red (uneditable)   
                         # To make student sheets uneditable could we   
                         # set $maxred = 52?  
                         #  
     my $realm='Course'; # 'assessment', 'user', or 'course' sheet  
     if ($sheetdata->{'sheettype'} eq 'assesscalc') {  
         $maxred=1;  
         $realm='Assessment';  
     } elsif ($sheetdata->{'sheettype'} eq 'studentcalc') {  
         $maxred=26;  
         $realm='User';  
     }  
     #  
     # Column label  
     my $tabledata;  
     if ($ENV{'form.showcsv'}) {  
         $tabledata='<pre>';  
     } else {   
         $tabledata='<table border=2><tr><th colspan=2 rowspan=2>'.  
             '<font size=+2>'.$realm.'</font></th>'.  
                   '<td bgcolor=#FFDDDD colspan='.$maxred.  
                   '><b><font size=+1>Import</font></b></td>'.  
                   '<td colspan='.(52-$maxred).  
   '><b><font size=+1>Calculations</font></b></td></tr><tr>';  
         my $showf=0;  
         foreach ('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',  
                  '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') {  
             $showf++;  
             if ($showf<=$maxred) {   
                 $tabledata.='<td bgcolor="#FFDDDD">';   
             } else {  
                 $tabledata.='<td>';  
             }  
             $tabledata.="<b><font size=+1>$_</font></b></td>";  
         }  
         $tabledata.='</tr>'.&rown($safeeval,'-').&rown($safeeval,0);  
     }  
     $r->print($tabledata);  
     #      #
     # Prepare to output rows      # Sort the rows in some manner
     my $row;  
     my $maxrow=&getmaxrow($safeeval);  
     #      #
     my @sortby=();      my @sortby=();
     my @sortidx=();      my @sortidx=();
     for ($row=1;$row<=$maxrow;$row++) {      for (my $row=1;$row<=$sheet->{'maxrow'};$row++) {
         push (@sortby, $safeeval->reval('$f{"A'.$row.'"}'));          push (@sortby, $sheet->{'safe'}->reval('$f{"A'.$row.'"}'));
         push (@sortidx, $row-1);          push (@sortidx, $row);
     }      }
     @sortidx=sort { $sortby[$a] cmp $sortby[$b]; } @sortidx;      @sortidx=sort { lc($sortby[$a]) cmp lc($sortby[$b]); } @sortidx;
     #      return @sortidx;
     # Determine the type of child spreadsheets  }
     my $what='Student';  
     if ($sheetdata->{'sheettype'} eq 'assesscalc') {  #############################################################
         $what='Item';  ###                                                       ###
     } elsif ($sheetdata->{'sheettype'} eq 'studentcalc') {  ###              Spreadsheet Output Routines              ###
         $what='Assessment';  ###                                                       ###
   #############################################################
   
   ############################################
   ##         HTML output routines           ##
   ############################################
   sub html_editable_cell {
       my ($cell,$bgcolor) = @_;
       my $result;
       my ($name,$formula,$value);
       if (defined($cell)) {
           $name    = $cell->{'name'};
           $formula = $cell->{'formula'};
           $value   = $cell->{'value'};
       }
       $name    = '' if (! defined($name));
       $formula = '' if (! defined($formula));
       if (! defined($value)) {
           $value = '<font color="'.$bgcolor.'">#</font>';
           if ($formula ne '') {
               $value = '<i>undefined value</i>';
           }
       }
       if ($value =~ /^\s*$/ ) {
           $value = '<font color="'.$bgcolor.'">#</font>';
       }
       $result .= '<a href="javascript:celledit(\''.
           $name.'\',\''.$formula.'\');">'.$value.'</a>';
       return $result;
   }
   
   sub html_uneditable_cell {
       my ($cell,$bgcolor) = @_;
       my $value = (defined($cell) ? $cell->{'value'} : '');
       return '&nbsp;'.$value.'&nbsp;';
   }
   
   sub outsheet_html  {
       my ($sheet,$r) = @_;
       my ($num_uneditable,$realm,$row_type);
       if ($sheet->{'sheettype'} eq 'assesscalc') {
           $num_uneditable = 1;
           $realm = 'Assessment';
           $row_type = 'Item';
       } elsif ($sheet->{'sheettype'} eq 'studentcalc') {
           $num_uneditable = 26;
           $realm = 'User';
           $row_type = 'Assessment';
       } elsif ($sheet->{'sheettype'} eq 'classcalc') {
           $num_uneditable = 26;
           $realm = 'Course';
           $row_type = 'Student';
       } else {
           return;  # error
       }
       ####################################
       # Print out header table
       ####################################
       my $num_left = 52-$num_uneditable;
       my $tabledata =<<"END";
   <table border="2">
   <tr>
     <th colspan="1" rowspan="2"><font size="+2">$realm</font></th>
     <td bgcolor="#FFDDDD" colspan="$num_uneditable">
         <b><font size="+1">Import</font></b></td>
     <td colspan="$num_left">
         <b><font size="+1">Calculations</font></b></td>
   </tr><tr>
   END
       my $label_num = 0;
       foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){
           if ($label_num<$num_uneditable) { 
               $tabledata.='<td bgcolor="#FFDDDD">';
           } else {
               $tabledata.='<td>';
           }
           $tabledata.="<b><font size=+1>$_</font></b></td>";
           $label_num++;
       }
       $tabledata.="</tr>\n";
       $r->print($tabledata);
       ####################################
       # Print out template row
       ####################################
       my ($rowlabel,@rowdata) = &get_row($sheet,'-');
       my $row_html = '<tr><td>'.&format_html_rowlabel($rowlabel).'</td>';
       my $num_cols_output = 0;
       foreach my $cell (@rowdata) {
           if ($num_cols_output++ < $num_uneditable) {
               $row_html .= '<td bgcolor="#FFDDDD">';
               $row_html .= &html_uneditable_cell($cell,'#FFDDDD');
           } else {
               $row_html .= '<td bgcolor="#EOFFDD">';
               $row_html .= &html_editable_cell($cell,'#E0FFDD');
           }
           $row_html .= '</td>';
       }
       $row_html.= "</tr>\n";
       $r->print($row_html);
       ####################################
       # Print out summary/export row
       ####################################
       my ($rowlabel,@rowdata) = &get_row($sheet,'0');
       my $rowcount = 0;
       $row_html = '<tr><td>'.&format_html_rowlabel($rowlabel).'</td>';
       $num_cols_output = 0;
       foreach my $cell (@rowdata) {
           if ($num_cols_output++ < 26) {
               $row_html .= '<td bgcolor="#CCCCFF">';
               $row_html .= &html_editable_cell($cell,'#CCCCFF');
           } else {
               $row_html .= '<td bgcolor="#DDCCFF">';
               $row_html .= &html_uneditable_cell(undef,'#CCCCFF');
           }
           $row_html .= '</td>';
     }      }
       $row_html.= "</tr>\n";
       $r->print($row_html);
       $r->print('</table>');
       ####################################
       # Prepare to output rows
       ####################################
       my @Rows = &sort_indicies($sheet);
     #      #
     # Loop through the rows and output them one at a time      # Loop through the rows and output them one at a time
     my $n=0;      my $rows_output=0;
     for ($row=0;$row<$maxrow;$row++) {      foreach my $rownum (@Rows) {
         my $thisrow=&rown($safeeval,$sortidx[$row]+1);          my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);
         if ($thisrow) {          #
             if (($n/25==int($n/25)) && (!$ENV{'form.showcsv'})) {          my $defaultbg='#E0FF';
           #
           my $row_html ="\n".'<tr><td><b><font size=+1>'.$rownum.
               '</font></b></td>';
           #
           if ($sheet->{'sheettype'} eq 'classcalc') {
               $row_html.='<td>'.&format_html_rowlabel($rowlabel).'</td>';
               # Output links for each student?
               # Nope, that is already done for us in format_html_rowlabel (for now)
           } elsif ($sheet->{'sheettype'} eq 'studentcalc') {
               $row_html.='<td>'.&format_html_rowlabel($rowlabel);
               $row_html.= '<br>'.
                   '<select name="sel_'.$rownum.'" '.
                       'onChange="changesheet('.$rownum.')">'.
                           '<option name="default">Default</option>';
               foreach (@{$sheet->{'othersheets'}}) {
                   $row_html.='<option name="'.$_.'"';
                   #if ($ufn eq $_) {
                   #    $row_html.=' selected';
                   #}
                   $row_html.='>'.$_.'</option>';
               }
               $row_html.='</select></td>';
           } elsif ($sheet->{'sheettype'} eq 'assesscalc') {
               $row_html.='<td>'.&format_html_rowlabel($rowlabel).'</td>';
           }
           #
           my $shown_cells = 0;
           foreach my $cell (@rowdata) {
               my $value    = $cell->{'value'};
               my $formula  = $cell->{'formula'};
               my $cellname = $cell->{'name'};
               #
               my $bgcolor;
               if ($shown_cells && ($shown_cells/5 == int($shown_cells/5))) {
                   $bgcolor = $defaultbg.'99';
               } else {
                   $bgcolor = $defaultbg.'DD';
               }
               $bgcolor='#FFDDDD' if ($shown_cells < $num_uneditable);
               #
               $row_html.='<td bgcolor='.$bgcolor.'>';
               if ($shown_cells < $num_uneditable) {
                   $row_html .= &html_uneditable_cell($cell,$bgcolor);
               } else {
                   $row_html .= &html_editable_cell($cell,$bgcolor);
               }
               $row_html.='</td>';
               $shown_cells++;
           }
           if ($row_html) {
               if ($rows_output % 25 == 0) {
                 $r->print("</table>\n<br>\n");                  $r->print("</table>\n<br>\n");
                 $r->rflush();                  $r->rflush();
                 $r->print('<table border=2><tr><td>&nbsp;<td>'.$what.'</td>');                  $r->print('<table border=2>'.
                 $r->print('<td>'.                            '<tr><td>&nbsp;<td>'.$row_type.'</td>'.
                             '<td>'.
                           join('</td><td>',                            join('</td><td>',
                                (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.                                 (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.
                                       'abcdefghijklmnopqrstuvwxyz'))).                                        'abcdefghijklmnopqrstuvwxyz'))).
                           "</td></tr>\n");                            "</td></tr>\n");
             }              }
             $n++;              $rows_output++;
             $r->print($thisrow);              $r->print($row_html);
         }          }
     }      }
     $r->print($ENV{'form.showcsv'}?'</pre>':'</table>');      #
       $r->print('</table>');
       #
       # Debugging code (be sure to uncomment errorlog code in safe space):
       #
       # $r->print("\n<pre>");
       # $r->print(&geterrorlog($sheet));
       # $r->print("\n</pre>");
       return 1;
 }  }
   
 #  ############################################
 # ----------------------------------------------- Read list of available sheets  ##         csv output routines            ##
 #   ############################################
   sub outsheet_csv   {
       my ($sheet,$r) = @_;
       my $csvdata = '';
       my @Values;
       ####################################
       # Prepare to output rows
       ####################################
       my @Rows = &sort_indicies($sheet);
       #
       # Loop through the rows and output them one at a time
       my $rows_output=0;
       foreach my $rownum (@Rows) {
           my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);
           push (@Values,&format_csv_rowlabel($rowlabel));
           foreach my $cell (@rowdata) {
               push (@Values,'"'.$cell->{'value'}.'"');
           }
           $csvdata.= join(',',@Values)."\n";
           @Values = ();
       }
       #
       # Write the CSV data to a file and serve up a link
       #
       my $filename = '/prtspool/'.
           $ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
           time.'_'.rand(1000000000).'.csv';
       my $file;
       unless ($file = Apache::File->new('>'.'/home/httpd'.$filename)) {
           $r->log_error("Couldn't open $filename for output $!");
           $r->print("Problems occured in writing the csv file.  ".
                     "This error has been logged.  ".
                     "Please alert your LON-CAPA administrator.");
           $r->print("<pre>\n".$csvdata."</pre>\n");
           return 0;
       }
       print $file $csvdata;
       close($file);
       $r->print('<br /><br />'.
                 '<a href="'.$filename.'">Your CSV spreadsheet.</a>'."\n");
       #
       return 1;
   }
   
   ############################################
   ##        Excel output routines           ##
   ############################################
   sub outsheet_recursive_excel {
       my ($sheet,$r) = @_;
       return undef if ($sheet->{'sheettype'} ne 'classcalc');
       my ($workbook,$filename) = &create_excel_spreadsheet($sheet,$r);
       return undef if (! defined($workbook));
       #
       # Create main worksheet
       my $main_worksheet = $workbook->addworksheet('main');
       #
       # Figure out who the students are
       my %f=&getformulas($sheet);
       my $count = 0;
       $r->print("<br />\n");
       $r->rflush();
       foreach (keys(%f)) {
    next if ($_!~/^A(\d+)/ || $1 == 0 || ($f{$_}=~/^[!~-]/));
           $count++;
           my ($sname,$sdom) = split(':',$f{$_});
           my $student_excel_worksheet=$workbook->addworksheet($sname.'@'.$sdom);
           # Create a new spreadsheet
           my $studentsheet = &makenewsheet($sname,$sdom,'studentcalc',undef);
           # Read in the spreadsheet definition
           &readsheet($studentsheet,'default_studentcalc');
           # Determine the structure (contained assessments, etc) of the sheet
           &updatesheet($studentsheet);
           # Load in the (possibly cached) data from the assessment sheets        
           &loadrows($studentsheet);
           # Compute the sheet
           &calcsheet($studentsheet);
           &Apache::lonnet::logthis("Sheet value for A0 = ".$sheet->{'values'}->{'A0'});
           # Stuff the sheet into excel
           &export_sheet_as_excel($studentsheet,$student_excel_worksheet);
           if ($count % 5 == 0) {
               $r->print($count.' students completed<br />');
               $r->rflush();
           }
       }
       #
       $r->print('All students spreadsheets completed<br />');
       $r->rflush();
       #
       # &export_sheet_as_excel fills $worksheet with the data from $sheet
       &export_sheet_as_excel($sheet,$main_worksheet);
       #
       $workbook->close();
       # Okay, the spreadsheet is taken care of, so give the user a link.
       $r->print('<br /><br />'.
                 '<a href="'.$filename.'">Your Excel spreadsheet.</a>'."\n");
       return 1;
   }
   
   sub outsheet_excel {
       my ($sheet,$r) = @_;
       my ($workbook,$filename) = &create_excel_spreadsheet($sheet,$r);
       return undef if (! defined($workbook));
       my $sheetname;
       if ($sheet->{'sheettype'} eq 'classcalc') {
           $sheetname = 'Main';
       } elsif ($sheet->{'sheettype'} eq 'studentcalc') {
           $sheetname = $sheet->{'uname'}.'@'.$sheet->{'udom'};
       } elsif ($sheet->{'sheettype'} eq 'assesscalc') {
           $sheetname = $sheet->{'uname'}.'@'.$sheet->{'udom'}.' assessment';
       }
       my $worksheet = $workbook->addworksheet($sheetname);
       #
       # &export_sheet_as_excel fills $worksheet with the data from $sheet
       &export_sheet_as_excel($sheet,$worksheet);
       #
       $workbook->close();
       # Okay, the spreadsheet is taken care of, so give the user a link.
       $r->print('<br /><br />'.
                 '<a href="'.$filename.'">Your Excel spreadsheet.</a>'."\n");
       return 1;
   }
   
   sub create_excel_spreadsheet {
       my ($sheet,$r) = @_;
       my $filename = '/prtspool/'.
           $ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
           time.'_'.rand(1000000000).'.xls';
       #&Apache::lonnet::logthis("spreadsheet:filename = ".$filename);
       my $workbook  = Spreadsheet::WriteExcel->new('/home/httpd'.$filename);
       if (! defined($workbook)) {
           $r->log_error("Error creating excel spreadsheet $filename: $!");
           $r->print("Problems creating new Excel file.  ".
                     "This error has been logged.  ".
                     "Please alert your LON-CAPA administrator");
           return undef;
       }
       #
       # The spreadsheet stores temporary data in files, then put them
       # together.  If needed we should be able to disable this (memory only).
       # The temporary directory must be specified before calling 'addworksheet'.
       # File::Temp is used to determine the temporary directory.
       $workbook->set_tempdir('/home/httpd/perl/tmp');
       #
       # Determine the name to give the worksheet
       return ($workbook,$filename);
   }
   
   sub export_sheet_as_excel {
       my $sheet = shift;
       my $worksheet = shift;
       ####################################
       # Prepare to output rows
       ####################################
       my @Rows = &sort_indicies($sheet);
       #
       # Loop through the rows and output them one at a time
       my $rows_output=0;
       foreach my $rownum (@Rows) {
           my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);
           my $cols_output = 0;
           my $label = &format_excel_rowlabel($rowlabel);
           $worksheet->write($rows_output,$cols_output++,$label);
           if (ref($label)) {
               $cols_output = (scalar(@$label));
           }
           foreach my $cell (@rowdata) {
               $worksheet->write($rows_output,$cols_output++,
                                 $cell->{'value'});
           }
           $rows_output++;
       }
       return;
   }
   
   ############################################
   ##          XML output routines           ##
   ############################################
   sub outsheet_xml   {
       my ($sheet,$r) = @_;
       ## Someday XML
       ## Will be rendered for the user
       ## But not on this day
   }
   
   ##
   ## Outsheet - calls other outsheet_* functions
   ##
   sub outsheet {
       my ($r,$sheet)=@_;
       if (! exists($ENV{'form.output'})) {
           $ENV{'form.output'} = 'HTML';
       }
       if (lc($ENV{'form.output'}) eq 'csv') {
           &outsheet_csv($sheet,$r);
       } elsif (lc($ENV{'form.output'}) eq 'excel') {
           &outsheet_excel($sheet,$r);
       } elsif (lc($ENV{'form.output'}) eq 'recursive excel') {
           &outsheet_recursive_excel($sheet,$r);
   #    } elsif (lc($ENV{'form.output'}) eq 'xml' ) {
   #        &outsheet_xml($sheet,$r);
       } else {
           &outsheet_html($sheet,$r);
       }
   }
   
   ########################################################################
   ########################################################################
 sub othersheets {  sub othersheets {
     my ($safeeval,$stype)=@_;      my ($sheet,$stype)=@_;
       $stype = $sheet->{'sheettype'} if (! defined($stype));
     #      #
     my $cnum  = &getcnum($safeeval);      my $cnum  = $sheet->{'cnum'};
     my $cdom  = &getcdom($safeeval);      my $cdom  = $sheet->{'cdom'};
     my $chome = &getchome($safeeval);      my $chome = $sheet->{'chome'};
     #      #
     my @alternatives=();      my @alternatives=();
     my %results=&Apache::lonnet::dump($stype.'_spreadsheets',$cdom,$cnum);      my %results=&Apache::lonnet::dump($stype.'_spreadsheets',$cdom,$cnum);
Line 1361  sub othersheets { Line 1579  sub othersheets {
     return @alternatives;       return @alternatives; 
 }  }
   
   
 #  #
 # -------------------------------------- Parse a spreadsheet  # -------------------------------------- Parse a spreadsheet
 #   # 
Line 1393  sub parse_sheet { Line 1610  sub parse_sheet {
 #  #
 # -------------------------------------- Read spreadsheet formulas for a course  # -------------------------------------- Read spreadsheet formulas for a course
 #  #
   
 sub readsheet {  sub readsheet {
     my ($safeeval,$fn)=@_;      my ($sheet,$fn)=@_;
     my $stype = &gettype($safeeval);      #
     my $cnum  = &getcnum($safeeval);      my $stype = $sheet->{'sheettype'};
     my $cdom  = &getcdom($safeeval);      my $cnum  = $sheet->{'cnum'};
     my $chome = &getchome($safeeval);      my $cdom  = $sheet->{'cdom'};
       my $chome = $sheet->{'chome'};
       #
     if (! defined($fn)) {      if (! defined($fn)) {
         # There is no filename. Look for defaults in course and global, cache          # There is no filename. Look for defaults in course and global, cache
         unless ($fn=$defaultsheets{$cnum.'_'.$cdom.'_'.$stype}) {          unless ($fn=$defaultsheets{$cnum.'_'.$cdom.'_'.$stype}) {
Line 1420  sub readsheet { Line 1637  sub readsheet {
         }          }
     }      }
     # $fn now has a value      # $fn now has a value
     &setfilename($safeeval,$fn);      $sheet->{'filename'} = $fn;
     # see if sheet is cached      # see if sheet is cached
     my $fstring='';      my $fstring='';
     if ($fstring=$spreadsheets{$cnum.'_'.$cdom.'_'.$stype.'_'.$fn}) {      if ($fstring=$spreadsheets{$cnum.'_'.$cdom.'_'.$stype.'_'.$fn}) {
         &setformulas($safeeval,split(/\_\_\_\;\_\_\_/,$fstring));          my %tmp = split(/___;___/,$fstring);
           $sheet->{'f'} = \%tmp;
           &setformulas($sheet);
     } else {      } else {
         # Not cached, need to read          # Not cached, need to read
         my %f=();          my %f=();
Line 1459  sub readsheet { Line 1678  sub readsheet {
         }          }
         # Cache and set          # Cache and set
         $spreadsheets{$cnum.'_'.$cdom.'_'.$stype.'_'.$fn}=join('___;___',%f);            $spreadsheets{$cnum.'_'.$cdom.'_'.$stype.'_'.$fn}=join('___;___',%f);  
         &setformulas($safeeval,%f);          $sheet->{'f'}=\%f;
           &setformulas($sheet);
     }      }
 }  }
   
 # -------------------------------------------------------- Make new spreadsheet  # -------------------------------------------------------- Make new spreadsheet
   
 sub makenewsheet {  sub makenewsheet {
     my ($uname,$udom,$stype,$usymb)=@_;      my ($uname,$udom,$stype,$usymb)=@_;
     my %sheetdata=();      my $sheet={};
     $sheetdata{'uname'} = $uname;      $sheet->{'uname'} = $uname;
     $sheetdata{'udom'}  = $udom;      $sheet->{'udom'}  = $udom;
     $sheetdata{'sheettype'} = $stype;      $sheet->{'sheettype'} = $stype;
     $sheetdata{'usymb'} = $usymb;      $sheet->{'usymb'} = $usymb;
     $sheetdata{'cid'}   = $ENV{'request.course.id'};      $sheet->{'cid'}   = $ENV{'request.course.id'};
     $sheetdata{'csec'}  = &Apache::lonnet::usection      $sheet->{'csec'}  = $Section{$uname.':'.$udom};
                                ($udom,$uname,$ENV{'request.course.id'});      $sheet->{'coursefilename'}   = $ENV{'request.course.fn'};
     $sheetdata{'cfn'}   = $ENV{'request.course.fn'};      $sheet->{'cnum'}  = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
     $sheetdata{'cnum'}  = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};      $sheet->{'cdom'}  = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
     $sheetdata{'cdom'}  = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};      $sheet->{'chome'} = $ENV{'course.'.$ENV{'request.course.id'}.'.home'};
     $sheetdata{'chome'} = $ENV{'course.'.$ENV{'request.course.id'}.'.home'};      $sheet->{'coursedesc'} = $ENV{'course.'.$ENV{'request.course.id'}.
     $sheetdata{'uhome'} = &Apache::lonnet::homeserver($uname,$udom);                                        'description'};
           $sheet->{'uhome'} = &Apache::lonnet::homeserver($uname,$udom);
     my $safeeval=initsheet($stype);      #
       #
       $sheet->{'f'} = {};
       $sheet->{'constants'} = {};
       $sheet->{'othersheets'} = [];
       $sheet->{'rowlabel'} = {};
       #
       #
       $sheet->{'safe'}=&initsheet($sheet->{'sheettype'});
       #
       # Place all the %$sheet items into the safe space except the safe space
       # itself
     my $initstring = '';      my $initstring = '';
     foreach (keys(%sheetdata)) {      foreach (qw/uname udom sheettype usymb cid csec coursefilename
         $initstring.= qq{\$$_="$sheetdata{$_}";};               cnum cdom chome uhome/) {
           $initstring.= qq{\$$_="$sheet->{$_}";};
     }      }
     $safeeval->reval($initstring);      $sheet->{'safe'}->reval($initstring);
     return $safeeval,\%sheetdata;      return $sheet;
 }  }
   
 # ------------------------------------------------------------ Save spreadsheet  # ------------------------------------------------------------ Save spreadsheet
   
 sub writesheet {  sub writesheet {
     my ($safeeval,$makedef)=@_;      my ($sheet,$makedef)=@_;
     my $cid=&getcid($safeeval);      my $cid=$sheet->{'cid'};
     if (&Apache::lonnet::allowed('opa',$cid)) {      if (&Apache::lonnet::allowed('opa',$cid)) {
         my %f=&getformulas($safeeval);          my %f=&getformulas($sheet);
         my $stype=&gettype($safeeval);          my $stype= $sheet->{'sheettype'};
         my $cnum=&getcnum($safeeval);          my $cnum = $sheet->{'cnum'};
         my $cdom=&getcdom($safeeval);          my $cdom = $sheet->{'cdom'};
         my $chome=&getchome($safeeval);          my $chome= $sheet->{'chome'};
         my $fn=&getfilename($safeeval);          my $fn   = $sheet->{'filename'};
         # Cache new sheet          # Cache new sheet
         $spreadsheets{$cnum.'_'.$cdom.'_'.$stype.'_'.$fn}=join('___;___',%f);          $spreadsheets{$cnum.'_'.$cdom.'_'.$stype.'_'.$fn}=join('___;___',%f);
         # Write sheet          # Write sheet
         my $sheetdata='';  
         foreach (keys(%f)) {          foreach (keys(%f)) {
             unless ($f{$_} eq 'import') {              delete($f{$_}) if ($f{$_} eq 'import');
                 $sheetdata.=&Apache::lonnet::escape($_).'='.  
                     &Apache::lonnet::escape($f{$_}).'&';  
             }  
         }          }
         $sheetdata=~s/\&$//;          my $reply = &Apache::lonnet::put($fn,\%f,$cdom,$cnum);
         my $reply=&Apache::lonnet::reply('put:'.$cdom.':'.$cnum.':'.$fn.':'.  
                                          $sheetdata,$chome);  
         if ($reply eq 'ok') {          if ($reply eq 'ok') {
             $reply=&Apache::lonnet::reply('put:'.$cdom.':'.$cnum.':'.              $reply = &Apache::lonnet::put($stype.'_spreadsheets',
                                           $stype.'_spreadsheets:'.                              {$fn => $ENV{'user.name'}.'@'.$ENV{'user.domain'}},
                                           &Apache::lonnet::escape($fn).                                            $cdom,$cnum);
                                           '='.$ENV{'user.name'}.'@'.  
                                           $ENV{'user.domain'},  
                                           $chome);  
             if ($reply eq 'ok') {              if ($reply eq 'ok') {
                 if ($makedef) {                   if ($makedef) { 
                     return &Apache::lonnet::reply('put:'.$cdom.':'.$cnum.                      return &Apache::lonnet::put('environment',
                                                   ':environment:'.                                    {'spreadsheet_default_'.$stype => $fn },
                                                   'spreadsheet_default_'.                                                  $cdom,$cnum);
                                                   $stype.'='.  
                                                   &Apache::lonnet::escape($fn),  
                                                   $chome);  
                 }                   } 
                 return $reply;                  return $reply;
             }               } 
Line 1543  sub writesheet { Line 1761  sub writesheet {
 # ----------------------------------------------- Make a temp copy of the sheet  # ----------------------------------------------- Make a temp copy of the sheet
 # "Modified workcopy" - interactive only  # "Modified workcopy" - interactive only
 #  #
   
 sub tmpwrite {  sub tmpwrite {
     my $safeeval=shift;      my ($sheet) = @_;
     my $fn=$ENV{'user.name'}.'_'.      my $fn=$ENV{'user.name'}.'_'.
         $ENV{'user.domain'}.'_spreadsheet_'.&getusymb($safeeval).'_'.          $ENV{'user.domain'}.'_spreadsheet_'.$sheet->{'usymb'}.'_'.
            &getfilename($safeeval);             $sheet->{'filename'};
     $fn=~s/\W/\_/g;      $fn=~s/\W/\_/g;
     $fn=$tmpdir.$fn.'.tmp';      $fn=$tmpdir.$fn.'.tmp';
     my $fh;      my $fh;
     if ($fh=Apache::File->new('>'.$fn)) {      if ($fh=Apache::File->new('>'.$fn)) {
  print $fh join("\n",&getformulas($safeeval));   print $fh join("\n",&getformulas($sheet));
     }      }
 }  }
   
 # ---------------------------------------------------------- Read the temp copy  # ---------------------------------------------------------- Read the temp copy
   
 sub tmpread {  sub tmpread {
     my ($safeeval,$nfield,$nform)=@_;      my ($sheet,$nfield,$nform)=@_;
     my $fn=$ENV{'user.name'}.'_'.      my $fn=$ENV{'user.name'}.'_'.
            $ENV{'user.domain'}.'_spreadsheet_'.&getusymb($safeeval).'_'.             $ENV{'user.domain'}.'_spreadsheet_'.$sheet->{'usymb'}.'_'.
            &getfilename($safeeval);             $sheet->{'filename'};
     $fn=~s/\W/\_/g;      $fn=~s/\W/\_/g;
     $fn=$tmpdir.$fn.'.tmp';      $fn=$tmpdir.$fn.'.tmp';
     my $fh;      my $fh;
Line 1584  sub tmpread { Line 1800  sub tmpread {
         }          }
     }      }
     if ($nform eq 'changesheet') {      if ($nform eq 'changesheet') {
         $fo{'A'.$nfield}=(split(/\_\_\&\&\&\_\_/,$fo{'A'.$nfield}))[0];          $fo{'A'.$nfield}=(split(/__&&&\__/,$fo{'A'.$nfield}))[0];
         unless ($ENV{'form.sel_'.$nfield} eq 'Default') {          unless ($ENV{'form.sel_'.$nfield} eq 'Default') {
     $fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield};      $fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield};
         }          }
Line 1599  sub tmpread { Line 1815  sub tmpread {
     } else {      } else {
        if ($nfield) { $fo{$nfield}=$nform; }         if ($nfield) { $fo{$nfield}=$nform; }
     }      }
     &setformulas($safeeval,%fo);      $sheet->{'f'}=\%fo;
       &setformulas($sheet);
 }  }
   
 ##################################################  ##################################################
Line 1611  sub tmpread { Line 1828  sub tmpread {
   
 Determine the value of a parameter.  Determine the value of a parameter.
   
 Inputs: $what, the parameter needed, $safeeval, the safe space  Inputs: $what, the parameter needed, $sheet, the safe space
   
 Returns: The value of a parameter, or '' if none.  Returns: The value of a parameter, or '' if none.
   
Line 1627  this user and course. Line 1844  this user and course.
 ##################################################  ##################################################
 ##################################################  ##################################################
 sub parmval {  sub parmval {
     my ($what,$safeeval,$sheetdata)=@_;      my ($what,$sheet)=@_;
     my $symb  = $sheetdata->{'usymb'};      my $symb  = $sheet->{'usymb'};
     unless ($symb) { return ''; }      unless ($symb) { return ''; }
     #      #
     my $cid   = $sheetdata->{'cid'};      my $cid   = $sheet->{'cid'};
     my $csec  = $sheetdata->{'csec'};      my $csec  = $sheet->{'csec'};
     my $uname = $sheetdata->{'uname'};      my $uname = $sheet->{'uname'};
     my $udom  = $sheetdata->{'udom'};      my $udom  = $sheet->{'udom'};
     my $result='';      my $result='';
     #      #
     my ($mapname,$id,$fn)=split(/\_\_\_/,$symb);      my ($mapname,$id,$fn)=split(/\_\_\_/,$symb);
Line 1655  sub parmval { Line 1872  sub parmval {
     my $courselevelr = $usercourseprefix.'.'.$symbparm;      my $courselevelr = $usercourseprefix.'.'.$symbparm;
     my $courselevelm = $usercourseprefix.'.'.$mapparm;      my $courselevelm = $usercourseprefix.'.'.$mapparm;
     # fourth, check user      # fourth, check user
     if ($uname) {       if (defined($uname)) {
         return $useropt{$courselevelr} if ($useropt{$courselevelr});          return $useropt{$courselevelr} if (defined($useropt{$courselevelr}));
         return $useropt{$courselevelm} if ($useropt{$courselevelm});          return $useropt{$courselevelm} if (defined($useropt{$courselevelm}));
         return $useropt{$courselevel}  if ($useropt{$courselevel});          return $useropt{$courselevel}  if (defined($useropt{$courselevel}));
     }      }
     # third, check course      # third, check course
     if ($csec) {      if (defined($csec)) {
         return $courseopt{$seclevelr} if ($courseopt{$seclevelr});          return $courseopt{$seclevelr} if (defined($courseopt{$seclevelr}));
         return $courseopt{$seclevelm} if ($courseopt{$seclevelm});          return $courseopt{$seclevelm} if (defined($courseopt{$seclevelm}));
         return $courseopt{$seclevel}  if ($courseopt{$seclevel});          return $courseopt{$seclevel}  if (defined($courseopt{$seclevel}));
     }      }
     #      #
     return $courseopt{$courselevelr} if ($courseopt{$courselevelr});      return $courseopt{$courselevelr} if (defined($courseopt{$courselevelr}));
     return $courseopt{$courselevelm} if ($courseopt{$courselevelm});      return $courseopt{$courselevelm} if (defined($courseopt{$courselevelm}));
     return $courseopt{$courselevel}  if ($courseopt{$courselevel});      return $courseopt{$courselevel}  if (defined($courseopt{$courselevel}));
     # second, check map parms      # second, check map parms
     my $thisparm = $parmhash{$symbparm};      my $thisparm = $parmhash{$symbparm};
     return $thisparm if ($thisparm);      return $thisparm if (defined($thisparm));
     # first, check default      # first, check default
     return &Apache::lonnet::metadata($fn,$rwhat.'.default');      return &Apache::lonnet::metadata($fn,$rwhat.'.default');
 }  }
   
   
   ##################################################################
   ##                  Row label formatting routines               ##
   ##################################################################
   sub format_html_rowlabel {
       my $rowlabel = shift;
       return '' if ($rowlabel eq '');
       my ($type,$labeldata) = split(':',$rowlabel,2);
       my $result = '';
       if ($type eq 'symb') {
           my ($symb,$uname,$udom,$title) = split(':',$labeldata);
           $symb = &Apache::lonnet::unescape($symb);
           $result = '<a href="/adm/assesscalc?usymb='.$symb.
               '&uname='.$uname.'&udom='.$udom.'">'.$title.'</a>';
       } elsif ($type eq 'student') {
           my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);
           $result ='<a href="/adm/studentcalc?uname='.$sname.
               '&udom='.$sdom.'">';
           $result.=$section.'&nbsp;'.$id."&nbsp;".$fullname.'</a>';
       } elsif ($type eq 'parameter') {
           $result = $labeldata;
       } else {
           $result = '<b><font size=+1>'.$rowlabel.'</font></b>';
       }
       return $result;
   }
   
   sub format_csv_rowlabel {
       my $rowlabel = shift;
       return '' if ($rowlabel eq '');
       my ($type,$labeldata) = split(':',$rowlabel,2);
       my $result = '';
       if ($type eq 'symb') {
           my ($symb,$uname,$udom,$title) = split(':',$labeldata);
           $symb = &Apache::lonnet::unescape($symb);
           $result = $title;
       } elsif ($type eq 'student') {
           my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);
           $result = join('","',($sname,$sdom,$fullname,$section,$id));
       } elsif ($type eq 'parameter') {
           $labeldata =~ s/<br>/ /g;
           $result = $labeldata;
       } else {
           $result = $rowlabel;
       }
       return '"'.$result.'"';
   }
   
   sub format_excel_rowlabel {
       my $rowlabel = shift;
       return '' if ($rowlabel eq '');
       my ($type,$labeldata) = split(':',$rowlabel,2);
       my $result = '';
       if ($type eq 'symb') {
           my ($symb,$uname,$udom,$title) = split(':',$labeldata);
           $symb = &Apache::lonnet::unescape($symb);
           $result = $title;
       } elsif ($type eq 'student') {
           my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);
           $section = '' if (! defined($section));
           $id      = '' if (! defined($id));
           my @Data = ($sname,$sdom,$fullname,$section,$id);
           $result = \@Data;
       } elsif ($type eq 'parameter') {
           $labeldata =~ s/<br>/ /g;
           $result = $labeldata;
       } else {
           $result = $rowlabel;
       }
       return $result;
   }
   
 # ---------------------------------------------- Update rows for course listing  # ---------------------------------------------- Update rows for course listing
 sub updateclasssheet {  sub updateclasssheet {
     my $safeeval=shift;      my ($sheet) = @_;
     my $cnum=&getcnum($safeeval);      my $cnum  =$sheet->{'cnum'};
     my $cdom=&getcdom($safeeval);      my $cdom  =$sheet->{'cdom'};
     my $cid=&getcid($safeeval);      my $cid   =$sheet->{'cid'};
     my $chome=&getchome($safeeval);      my $chome =$sheet->{'chome'};
       #
       %Section = ();
   
     #      #
     # Read class list and row labels      # Read class list and row labels
     my %classlist;      my $classlist = &Apache::loncoursedata::get_classlist();
     my @tmp = &Apache::lonnet::dump('classlist',$cdom,$cnum);      if (! defined($classlist)) {
     if ($tmp[0] !~ /^error/) {          return 'Could not access course classlist';
         %classlist = @tmp;      } 
     } else {  
         return 'Could not access course data';  
     }  
     undef @tmp;  
     #      #
     my %currentlist=();      my %currentlist=();
     my $now=time;      foreach my $student (keys(%$classlist)) {
     foreach my $student (keys(%classlist)) {          my ($studentDomain,$studentName,$end,$start,$id,$studentSection,
         my ($end,$start)=split(/\:/,$classlist{$student});              $fullname,$status)   =   @{$classlist->{$student}};
         my $active=1;          if ($ENV{'form.Status'} eq $status || $ENV{'form.Status'} eq 'Any') {
         $active = 0 if (($end) && ($now>$end));              $currentlist{$student}=join(':',('student',$studentName,
         $active = 1 if ($ENV{'form.Status'} eq 'Any');                                               $studentDomain,$fullname,
         $active = !$active if ($ENV{'form.Status'} eq 'Expired');                                               $studentSection,$id));
         if ($active) {          }
             my $rowlabel='';      }
             my ($studentName,$studentDomain)=split(/\:/,$student);  
             my $studentSection=&Apache::lonnet::usection($studentDomain,  
                                                          $studentName,$cid);  
             if ($studentSection==-1) {  
                 unless ($ENV{'form.showcsv'}) {  
                     $rowlabel='<font color=red>Data not available: '.  
                         $studentName.'</font>';  
                 } else {  
                     $rowlabel='ERROR","'.$studentName.  
                         '","Data not available","","","';  
                 }  
             } else {  
                 my %reply=&Apache::lonnet::idrget($studentDomain,$studentName);  
                 my %studentInformation=&Apache::lonnet::get  
                     ('environment',  
                      ['lastname','generation','firstname','middlename','id'],  
                      $studentDomain,$studentName);  
                 if (! $ENV{'form.showcsv'}) {  
                     $rowlabel='<a href="/adm/studentcalc?uname='.$studentName.  
                         '&udom='.$studentDomain.'">'.  
                             $studentSection.'&nbsp;';  
                     foreach ('id','firstname','middlename',  
                              'lastname','generation'){  
                         $rowlabel.=$studentInformation{$_}."&nbsp;";  
                     }  
                     $rowlabel.='</a>';  
                 } else {  
                     $rowlabel= '"'.join('","',  
                                         ($studentSection,  
                                          $studentInformation{'id'},  
                                          $studentInformation{'firstname'},  
                                          $studentInformation{'middlename'},  
                                          $studentInformation{'lastname'},  
                                          $studentInformation{'generation'})  
                                         ).'"';  
                 }  
             }  
             $currentlist{$student}=$rowlabel;  
         } # end of if ($active)  
     } # end of foreach my $student (keys(%classlist))  
     #      #
     # Find discrepancies between the course row table and this      # Find discrepancies between the course row table and this
     #      #
     my %f=&getformulas($safeeval);      my %f=&getformulas($sheet);
     my $changed=0;      my $changed=0;
     #      #
     my $maxrow=0;      $sheet->{'maxrow'}=0;
     my %existing=();      my %existing=();
     #      #
     # Now obsolete rows      # Now obsolete rows
     foreach (keys(%f)) {      foreach (keys(%f)) {
         if ($_=~/^A(\d+)/) {          if ($_=~/^A(\d+)/) {
             $maxrow=($1>$maxrow)?$1:$maxrow;              if ($1 > $sheet->{'maxrow'}) {
                   $sheet->{'maxrow'}= $1;
               }
             $existing{$f{$_}}=1;              $existing{$f{$_}}=1;
             unless ((defined($currentlist{$f{$_}})) || (!$1) ||              unless ((defined($currentlist{$f{$_}})) || (!$1) ||
                     ($f{$_}=~/^(\~\~\~|\-\-\-)/)) {                      ($f{$_}=~/^(~~~|---)/)) {
                 $f{$_}='!!! Obsolete';                  $f{$_}='!!! Obsolete';
                 $changed=1;                  $changed=1;
             }              }
Line 1768  sub updateclasssheet { Line 2018  sub updateclasssheet {
     }      }
     #      #
     # New and unknown keys      # New and unknown keys
     foreach (sort keys(%currentlist)) {      foreach my $student (sort keys(%currentlist)) {
         unless ($existing{$_}) {          unless ($existing{$student}) {
             $changed=1;              $changed=1;
             $maxrow++;              $sheet->{'maxrow'}++;
             $f{'A'.$maxrow}=$_;              $f{'A'.$sheet->{'maxrow'}}=$student;
         }          }
     }      }
     if ($changed) { &setformulas($safeeval,%f); }      if ($changed) { 
           $sheet->{'f'} = \%f;
           &setformulas($sheet,%f); 
       }
     #      #
     &setmaxrow($safeeval,$maxrow);      &setrowlabels($sheet,\%currentlist);
     &setrowlabels($safeeval,%currentlist);  
 }  }
   
 # ----------------------------------- Update rows for student and assess sheets  # ----------------------------------- Update rows for student and assess sheets
 sub updatestudentassesssheet {  sub updatestudentassesssheet {
     my $safeeval=shift;      my ($sheet) = @_;
       #
     my %bighash;      my %bighash;
     my $stype=&gettype($safeeval);      #
     my %current=();      my $stype = $sheet->{'sheettype'};
     if  ($updatedata{$ENV{'request.course.fn'}.'_'.$stype}) {      my $uname = $sheet->{'uname'};
         %current=split(/\_\_\_\;\_\_\_/,      my $udom  = $sheet->{'udom'};
        $updatedata{$ENV{'request.course.fn'}.'_'.$stype});      $sheet->{'rowlabel'} = {};
       my $identifier =$sheet->{'coursefilename'}.'_'.$stype.'_'.$uname.'_'.$udom;
       if  ($updatedata{$identifier}) {
           %{$sheet->{'rowlabel'}}=split(/___;___/,$updatedata{$identifier});
     } else {      } else {
         # Tie hash          # Tie hash
         tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',          tie(%bighash,'GDBM_File',$sheet->{'coursefilename'}.'.db',
             &GDBM_READER(),0640);              &GDBM_READER(),0640);
         if (! tied(%bighash)) {          if (! tied(%bighash)) {
             return 'Could not access course data';              return 'Could not access course data';
         }          }
         # Get all assessments          # Get all assessments
         my %allkeys=('timestamp' =>           #
                      'Timestamp of Last Transaction<br>timestamp',          # parameter_labels is used in the assessment sheets to provide labels
                      'subnumber' =>          # for the parameters.
                      'Number of Submissions<br>subnumber',          my %parameter_labels=
                      'tutornumber' =>              ('timestamp' => 
                      'Number of Tutor Responses<br>tutornumber',                   'parameter:Timestamp of Last Transaction<br>timestamp',
                      'totalpoints' =>               'subnumber' =>
                      'Total Points Granted<br>totalpoints');                   'parameter:Number of Submissions<br>subnumber',
         my $adduserstr='';               'tutornumber' =>
         if ((&getuname($safeeval) ne $ENV{'user.name'}) ||                   'parameter:Number of Tutor Responses<br>tutornumber',
             (&getudom($safeeval) ne $ENV{'user.domain'})) {               'totalpoints' =>
             $adduserstr='&uname='.&getuname($safeeval).                   'parameter:Total Points Granted<br>totalpoints');
                 '&udom='.&getudom($safeeval);          #
         }          # assesslist holds the descriptions of all assessments
         my %allassess =          my %assesslist;
             ('_feedback' =>'<a href="/adm/assesscalc?usymb=_feedback'.          foreach ('Feedback','Evaluation','Tutoring','Discussion') {
              $adduserstr.'">Feedback</a>',              my $symb = '_'.lc($_);
              '_evaluation' =>'<a href="/adm/assesscalc?usymb=_evaluation'.              $assesslist{$symb} = join(':',('symb',$symb,$uname,$udom,$_));
              $adduserstr.'">Evaluation</a>',          }
              '_tutoring' =>'<a href="/adm/assesscalc?usymb=_tutoring'.          while (($_,undef) = each(%bighash)) {
              $adduserstr.'">Tutoring</a>',  
              '_discussion' =>'<a href="/adm/assesscalc?usymb=_discussion'.  
              $adduserstr.'">Discussion</a>'  
              );  
         foreach (keys(%bighash)) {  
             next if ($_!~/^src\_(\d+)\.(\d+)$/);              next if ($_!~/^src\_(\d+)\.(\d+)$/);
             my $mapid=$1;              my $mapid=$1;
             my $resid=$2;              my $resid=$2;
Line 1832  sub updatestudentassesssheet { Line 2083  sub updatestudentassesssheet {
                 my $symb=                  my $symb=
                     &Apache::lonnet::declutter($bighash{'map_id_'.$mapid}).                      &Apache::lonnet::declutter($bighash{'map_id_'.$mapid}).
                         '___'.$resid.'___'.&Apache::lonnet::declutter($srcf);                          '___'.$resid.'___'.&Apache::lonnet::declutter($srcf);
                 $allassess{$symb}=                  $assesslist{$symb}='symb:'.&Apache::lonnet::escape($symb).':'
                     '<a href="/adm/assesscalc?usymb='.$symb.$adduserstr.'">'.                      .$uname.':'.$udom.':'.$bighash{'title_'.$id};
                         $bighash{'title_'.$id}.'</a>';  
                 next if ($stype ne 'assesscalc');                  next if ($stype ne 'assesscalc');
                 foreach my $key (split(/\,/,                  foreach my $key (split(/\,/,
                                        &Apache::lonnet::metadata($srcf,'keys')                                         &Apache::lonnet::metadata($srcf,'keys')
Line 1847  sub updatestudentassesssheet { Line 2097  sub updatestudentassesssheet {
                             &Apache::lonnet::metadata($srcf,$key.'.name');                              &Apache::lonnet::metadata($srcf,$key.'.name');
                     }                      }
                     $display.='<br>'.$key;                      $display.='<br>'.$key;
                     $allkeys{$key}=$display;                      $parameter_labels{$key}='parameter:'.$display;
                 } # end of foreach                  } # end of foreach
             }              }
         } # end of foreach (keys(%bighash))          } # end of foreach (keys(%bighash))
         untie(%bighash);          untie(%bighash);
         #          #
         # %allkeys has a list of storage and parameter displays by unikey          # %parameter_labels has a list of storage and parameter displays by 
         # %allassess has a list of all resource displays by symb          # unikey
           # %assesslist has a list of all resource, by symb
         #          #
         if ($stype eq 'assesscalc') {          if ($stype eq 'assesscalc') {
             %current=%allkeys;              $sheet->{'rowlabel'} = \%parameter_labels;
         } elsif ($stype eq 'studentcalc') {          } elsif ($stype eq 'studentcalc') {
             %current=%allassess;              $sheet->{'rowlabel'} = \%assesslist;
         }          }
         $updatedata{$ENV{'request.course.fn'}.'_'.$stype}=          $updatedata{$sheet->{'coursefilename'}.'_'.$stype.'_'
             join('___;___',%current);                          .$uname.'_'.$udom}=
                               join('___;___',%{$sheet->{'rowlabel'}});
         # Get current from cache          # Get current from cache
     }      }
     # Find discrepancies between the course row table and this      # Find discrepancies between the course row table and this
     #      #
     my %f=&getformulas($safeeval);      my %f=&getformulas($sheet);
     my $changed=0;      my $changed=0;
           
     my $maxrow=0;      $sheet->{'maxrow'} = 0;
     my %existing=();      my %existing=();
     # Now obsolete rows      # Now obsolete rows
     foreach (keys(%f)) {      foreach (keys(%f)) {
         next if ($_!~/^A(\d+)/);          next if ($_!~/^A(\d+)/);
         $maxrow=($1>$maxrow)?$1:$maxrow;          if ($1 > $sheet->{'maxrow'}) {
         my ($usy,$ufn)=split(/\_\_\&\&\&\_\_/,$f{$_});              $sheet->{'maxrow'} = $1;
           }
           my ($usy,$ufn)=split(/__&&&\__/,$f{$_});
         $existing{$usy}=1;          $existing{$usy}=1;
         unless ((defined($current{$usy})) || (!$1) ||          unless ((exists($sheet->{'rowlabel'}->{$usy}) && 
                 ($f{$_}=~/^(\~\~\~|\-\-\-)/)){                   (defined($sheet->{'rowlabel'}->{$usy})) || (!$1) ||
                   ($f{$_}=~/^(~~~|---)/))){
             $f{$_}='!!! Obsolete';              $f{$_}='!!! Obsolete';
             $changed=1;              $changed=1;
         } elsif ($ufn) {          } elsif ($ufn) {
             $current{$usy}              $sheet->{'rowlabel'}->{$usy}
             =~s/assesscalc\?usymb\=/assesscalc\?ufn\=$ufn\&usymb\=/;                  =~s/assesscalc\?usymb\=/assesscalc\?ufn\=$ufn\&usymb\=/;
         }          }
     }      }
     # New and unknown keys      # New and unknown keys
     foreach (keys(%current)) {      foreach (keys(%{$sheet->{'rowlabel'}})) {
         unless ($existing{$_}) {          unless ($existing{$_}) {
             $changed=1;              $changed=1;
             $maxrow++;              $sheet->{'maxrow'}++;
             $f{'A'.$maxrow}=$_;              $f{'A'.$sheet->{'maxrow'}}=$_;
         }          }
     }      }
     if ($changed) { &setformulas($safeeval,%f); }      if ($changed) { 
     &setmaxrow($safeeval,$maxrow);          $sheet->{'f'} = \%f;
     &setrowlabels($safeeval,%current);          &setformulas($sheet); 
       }
     #      #
     undef %current;  
     undef %existing;      undef %existing;
 }  }
   
 # ------------------------------------------------ Load data for one assessment  # ------------------------------------------------ Load data for one assessment
   
 sub loadstudent {  sub loadstudent{
     my ($safeeval,$sheetdata)=@_;      my ($sheet)=@_;
     my %c=();      my %c=();
     my %f=&getformulas($safeeval);      my %f=&getformulas($sheet);
     $cachedassess=$sheetdata->{'uname'}.':'.$sheetdata->{'udom'};      $cachedassess=$sheet->{'uname'}.':'.$sheet->{'udom'};
     # Get ALL the student preformance data      # Get ALL the student preformance data
     my @tmp = &Apache::lonnet::dump($sheetdata->{'cid'},      my @tmp = &Apache::lonnet::dump($sheet->{'cid'},
                                     $sheetdata->{'udom'},                                      $sheet->{'udom'},
                                     $sheetdata->{'uname'},                                      $sheet->{'uname'},
                                     undef);                                      undef);
     if ($tmp[0] !~ /^error:/) {      if ($tmp[0] !~ /^error:/) {
         %cachedstores = @tmp;          %cachedstores = @tmp;
Line 1926  sub loadstudent { Line 2181  sub loadstudent {
         my $row=$1;          my $row=$1;
         next if (($f{$_}=~/^[\!\~\-]/) || ($row==0));          next if (($f{$_}=~/^[\!\~\-]/) || ($row==0));
         my ($usy,$ufn)=split(/__&&&\__/,$f{$_});          my ($usy,$ufn)=split(/__&&&\__/,$f{$_});
         @assessdata=&exportsheet($sheetdata->{'uname'},          @assessdata=&exportsheet($sheet,$sheet->{'uname'},
                                  $sheetdata->{'udom'},                                   $sheet->{'udom'},
                                  'assesscalc',$usy,$ufn);                                   'assesscalc',$usy,$ufn);
         my $index=0;          my $index=0;
         foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',          foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',
Line 1948  sub loadstudent { Line 2203  sub loadstudent {
     }      }
     $cachedassess='';      $cachedassess='';
     undef %cachedstores;      undef %cachedstores;
     &setformulas($safeeval,%f);      $sheet->{'f'} = \%f;
     &setconstants($safeeval,%c);      &setformulas($sheet);
       &setconstants($sheet,\%c);
 }  }
   
 # --------------------------------------------------- Load data for one student  # --------------------------------------------------- Load data for one student
   #
 sub loadcourse {  sub loadcourse {
     my ($safeeval,$sheetdata,$r)=@_;      my ($sheet,$r)=@_;
       #
     my %c=();      my %c=();
     my %f=&getformulas($safeeval);      my %f=&getformulas($sheet);
       #
     my $total=0;      my $total=0;
     foreach (keys(%f)) {      foreach (keys(%f)) {
  if ($_=~/^A(\d+)/) {   if ($_=~/^A(\d+)/) {
Line 1982  ENDPOP Line 2240  ENDPOP
  next if ($_!~/^A(\d+)/);   next if ($_!~/^A(\d+)/);
         my $row=$1;          my $row=$1;
         next if (($f{$_}=~/^[\!\~\-]/)  || ($row==0));          next if (($f{$_}=~/^[\!\~\-]/)  || ($row==0));
         my @studentdata=&exportsheet(split(/\:/,$f{$_}),          my ($sname,$sdom) = split(':',$f{$_});
                                      'studentcalc');          my @studentdata=&exportsheet($sheet,$sname,$sdom,'studentcalc');
         undef %userrdatas;          undef %userrdatas;
         $now++;          $now++;
         $r->print('<script>popwin.document.popremain.remaining.value="'.          $r->print('<script>popwin.document.popremain.remaining.value="'.
Line 1994  ENDPOP Line 2252  ENDPOP
         my $index=0;          my $index=0;
         foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',          foreach ('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') {                   'N','O','P','Q','R','S','T','U','V','W','X','Y','Z') {
             if ($studentdata[$index]) {              if (defined($studentdata[$index])) {
                 my $col=$_;                  my $col=$_;
                 if ($studentdata[$index]=~/\D/) {                  if ($studentdata[$index]=~/\D/) {
                     $c{$col.$row}="'".$studentdata[$index]."'";                      $c{$col.$row}="'".$studentdata[$index]."'";
Line 2004  ENDPOP Line 2262  ENDPOP
                 unless ($col eq 'A') {                   unless ($col eq 'A') { 
                     $f{$col.$row}='import';                      $f{$col.$row}='import';
                 }                  }
                 $index++;              } 
             }              $index++;
         }          }
     }      }
     &setformulas($safeeval,%f);      $sheet->{'f'}=\%f;
     &setconstants($safeeval,%c);      &setformulas($sheet);
       &setconstants($sheet,\%c);
     $r->print('<script>popwin.close()</script>');      $r->print('<script>popwin.close()</script>');
     $r->rflush();       $r->rflush(); 
 }  }
   
 # ------------------------------------------------ Load data for one assessment  # ------------------------------------------------ Load data for one assessment
   #
 sub loadassessment {  sub loadassessment {
     my ($safeeval,$sheetdata)=@_;      my ($sheet)=@_;
   
     my $uhome = $sheetdata->{'uhome'};      my $uhome = $sheet->{'uhome'};
     my $uname = $sheetdata->{'uname'};      my $uname = $sheet->{'uname'};
     my $udom  = $sheetdata->{'udom'};      my $udom  = $sheet->{'udom'};
     my $symb  = $sheetdata->{'usymb'};      my $symb  = $sheet->{'usymb'};
     my $cid   = $sheetdata->{'cid'};      my $cid   = $sheet->{'cid'};
     my $cnum  = $sheetdata->{'cnum'};      my $cnum  = $sheet->{'cnum'};
     my $cdom  = $sheetdata->{'cdom'};      my $cdom  = $sheet->{'cdom'};
     my $chome = $sheetdata->{'chome'};      my $chome = $sheet->{'chome'};
   
     my $namespace;      my $namespace;
     unless ($namespace=$cid) { return ''; }      unless ($namespace=$cid) { return ''; }
Line 2047  sub loadassessment { Line 2306  sub loadassessment {
         #          #
         # restore individual          # restore individual
         #          #
         my $answer=&Apache::lonnet::reply(          %returnhash = &Apache::lonnet::restore($symb,$namespace,$udom,$uname);
                                           "restore:$udom:$uname:".          for (my $version=1;$version<=$returnhash{'version'};$version++) {
                                           &Apache::lonnet::escape($namespace).":".  
                                           &Apache::lonnet::escape($symb),$uhome);  
         foreach (split(/\&/,$answer)) {  
             my ($name,$value)=split(/\=/,$_);  
             $returnhash{&Apache::lonnet::unescape($name)}=  
                 &Apache::lonnet::unescape($value);  
         }  
         my $version;  
         for ($version=1;$version<=$returnhash{'version'};$version++) {  
             foreach (split(/\:/,$returnhash{$version.':keys'})) {              foreach (split(/\:/,$returnhash{$version.':keys'})) {
                 $returnhash{$_}=$returnhash{$version.':'.$_};                  $returnhash{$_}=$returnhash{$version.':'.$_};
             }               } 
         }          }
     }      }
       #
     # returnhash now has all stores for this resource      # returnhash now has all stores for this resource
     # convert all "_" to "." to be able to use libraries, multiparts, etc      # convert all "_" to "." to be able to use libraries, multiparts, etc
       #
       # This is dumb.  It is also necessary :(
     my @oldkeys=keys %returnhash;      my @oldkeys=keys %returnhash;
       #
     foreach (@oldkeys) {      foreach my $name (@oldkeys) {
         my $name=$_;          my $value=$returnhash{$name};
         my $value=$returnhash{$_};          delete $returnhash{$name};
         delete $returnhash{$_};  
         $name=~s/\_/\./g;          $name=~s/\_/\./g;
         $returnhash{$name}=$value;          $returnhash{$name}=$value;
     }      }
Line 2079  sub loadassessment { Line 2331  sub loadassessment {
     undef %useropt;      undef %useropt;
   
     my $userprefix=$uname.'_'.$udom.'_';      my $userprefix=$uname.'_'.$udom.'_';
       
     unless ($uhome eq 'no_host') {       unless ($uhome eq 'no_host') { 
         # Get coursedata          # Get coursedata
         unless ((time-$courserdatas{$cid.'.last_cache'})<240) {          unless ((time-$courserdatas{$cid.'.last_cache'})<240) {
             my $reply=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum.              my %Tmp = &Apache::lonnet::dump('resourcedata',$cdom,$cnum);
                                              ':resourcedata',$chome);              $courserdatas{$cid}=\%Tmp;
             if ($reply!~/^error\:/) {              $courserdatas{$cid.'.last_cache'}=time;
                 $courserdatas{$cid}=$reply;  
                 $courserdatas{$cid.'.last_cache'}=time;  
             }  
         }          }
         foreach (split(/\&/,$courserdatas{$cid})) {          while (my ($name,$value) = each(%{$courserdatas{$cid}})) {
             my ($name,$value)=split(/\=/,$_);              $courseopt{$userprefix.$name}=$value;
             $courseopt{$userprefix.&Apache::lonnet::unescape($name)}=  
                 &Apache::lonnet::unescape($value);    
         }          }
         # Get userdata (if present)          # Get userdata (if present)
         unless          unless ((time-$userrdatas{$uname.'@'.$udom.'.last_cache'})<240) {
             ((time-$userrdatas{$uname.'___'.$udom.'.last_cache'})<240) {              my %Tmp = &Apache::lonnet::dump('resourcedata',$udom,$uname);
                 my $reply=              $userrdatas{$cid} = \%Tmp;
                     &Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome);              # Most of the time the user does not have a 'resourcedata.db' 
                 if ($reply!~/^error\:/) {              # file.  We need to cache that we got nothing instead of bothering
                     $userrdatas{$uname.'___'.$udom}=$reply;              # with requesting it every time.
                     $userrdatas{$uname.'___'.$udom.'.last_cache'}=time;              $userrdatas{$uname.'@'.$udom.'.last_cache'}=time;
                 }          }
             }          while (my ($name,$value) = each(%{$userrdatas{$cid}})) {
         foreach (split(/\&/,$userrdatas{$uname.'___'.$udom})) {              $useropt{$userprefix.$name}=$value;
             my ($name,$value)=split(/\=/,$_);  
             $useropt{$userprefix.&Apache::lonnet::unescape($name)}=  
                 &Apache::lonnet::unescape($value);  
         }          }
     }      }
     # now courseopt, useropt initialized for this user and course      # now courseopt, useropt initialized for this user and course
Line 2126  sub loadassessment { Line 2370  sub loadassessment {
     #      #
     my %c=();      my %c=();
     if (tie(%parmhash,'GDBM_File',      if (tie(%parmhash,'GDBM_File',
             &getcfn($safeeval).'_parms.db',&GDBM_READER(),0640)) {              $sheet->{'coursefilename'}.'_parms.db',&GDBM_READER(),0640)) {
         my %f=&getformulas($safeeval);          my %f=&getformulas($sheet);
         foreach (keys(%f))  {          foreach my $cell (keys(%f))  {
             next if ($_!~/^A/);              next if ($cell !~ /^A/);
             next if  ($f{$_}=~/^[\!\~\-]/);              next if  ($f{$cell} =~/^[\!\~\-]/);
             if ($f{$_}=~/^parameter/) {              if ($f{$cell}=~/^parameter/) {
                 if ($thisassess{$f{$_}}) {                  if (defined($thisassess{$f{$cell}})) {
                     my $val=&parmval($f{$_},$safeeval,$sheetdata);                      my $val       = &parmval($f{$cell},$sheet);
                     $c{$_}=$val;                      $c{$cell}     = $val;
                     $c{$f{$_}}=$val;                      $c{$f{$cell}} = $val;
                 }                  }
             } else {              } else {
                 my $key=$f{$_};                  my $key=$f{$cell};
                 my $ckey=$key;                  my $ckey=$key;
                 $key=~s/^stores\_/resource\./;                  $key=~s/^stores\_/resource\./;
                 $key=~s/\_/\./g;                  $key=~s/\_/\./g;
                 $c{$_}=$returnhash{$key};                  $c{$cell}=$returnhash{$key};
                 $c{$ckey}=$returnhash{$key};                  $c{$ckey}=$returnhash{$key};
             }              }
         }          }
         untie(%parmhash);          untie(%parmhash);
     }      }
     &setconstants($safeeval,%c);      &setconstants($sheet,\%c);
 }  }
   
 # --------------------------------------------------------- Various form fields  # --------------------------------------------------------- Various form fields
Line 2181  sub selectbox { Line 2425  sub selectbox {
 #  #
   
 sub updatesheet {  sub updatesheet {
     my ($safeeval,$sheetdata)=@_;      my ($sheet)=@_;
     my $stype=$sheetdata->{'sheettype'};      my $stype=$sheet->{'sheettype'};
     if ($stype eq 'classcalc') {      if ($stype eq 'classcalc') {
  return &updateclasssheet($safeeval);   return &updateclasssheet($sheet);
     } else {      } else {
         return &updatestudentassesssheet($safeeval);          return &updatestudentassesssheet($sheet);
     }      }
 }  }
   
Line 2196  sub updatesheet { Line 2440  sub updatesheet {
 #  #
   
 sub loadrows {  sub loadrows {
     my ($safeeval,$sheetdata,$r)=@_;      my ($sheet,$r)=@_;
     my $stype=$sheetdata->{'sheettype'};      my $stype=$sheet->{'sheettype'};
     if ($stype eq 'classcalc') {      if ($stype eq 'classcalc') {
  &loadcourse($safeeval,$sheetdata,$r);   &loadcourse($sheet,$r);
     } elsif ($stype eq 'studentcalc') {      } elsif ($stype eq 'studentcalc') {
         &loadstudent($safeeval,$sheetdata);          &loadstudent($sheet);
     } else {      } else {
         &loadassessment($safeeval,$sheetdata);          &loadassessment($sheet);
     }      }
 }  }
   
Line 2221  sub forcedrecalc { Line 2465  sub forcedrecalc {
     if ($ENV{'form.forcerecalc'}) { return 1; }      if ($ENV{'form.forcerecalc'}) { return 1; }
     unless ($time) { return 1; }      unless ($time) { return 1; }
     if ($stype eq 'assesscalc') {      if ($stype eq 'assesscalc') {
         my $map=(split(/\_\_\_/,$usymb))[0];          my $map=(split(/___/,$usymb))[0];
         if (&checkthis('::assesscalc:',$time) ||          if (&checkthis('::assesscalc:',$time) ||
             &checkthis('::assesscalc:'.$map,$time) ||              &checkthis('::assesscalc:'.$map,$time) ||
             &checkthis('::assesscalc:'.$usymb,$time) ||              &checkthis('::assesscalc:'.$usymb,$time) ||
Line 2240  sub forcedrecalc { Line 2484  sub forcedrecalc {
 }  }
   
 # ============================================================== Export handler  # ============================================================== Export handler
   # exportsheet
   # returns the export row for a spreadsheet.
 #  #
 # Non-interactive call from with program  
 #  
   
 sub exportsheet {  sub exportsheet {
     my ($uname,$udom,$stype,$usymb,$fn)=@_;      my ($sheet,$uname,$udom,$stype,$usymb,$fn)=@_;
       $uname = $uname || $sheet->{'uname'};
       $udom  = $udom  || $sheet->{'udom'};
       $stype = $stype || $sheet->{'sheettype'};
     my @exportarr=();      my @exportarr=();
     if (($usymb=~/^\_(\w+)/) && (!$fn)) {      if (defined($usymb) && ($usymb=~/^\_(\w+)/) && 
           (!defined($fn) || $fn eq '')) {
         $fn='default_'.$1;          $fn='default_'.$1;
     }      }
     #      #
Line 2256  sub exportsheet { Line 2503  sub exportsheet {
     my $key=$uname.':'.$udom.':'.$stype.':'.$usymb;      my $key=$uname.':'.$udom.':'.$stype.':'.$usymb;
     my $found='';      my $found='';
     if ($oldsheets{$key}) {      if ($oldsheets{$key}) {
         foreach (split(/\_\_\_\&\_\_\_/,$oldsheets{$key})) {          foreach (split(/___&\___/,$oldsheets{$key})) {
             my ($name,$value)=split(/\_\_\_\=\_\_\_/,$_);              my ($name,$value)=split(/___=___/,$_);
             if ($name eq $fn) {              if ($name eq $fn) {
                 $found=$value;                  $found=$value;
             }              }
         }          }
     }      }
     unless ($found) {      unless ($found) {
         &cachedssheets($uname,$udom,&Apache::lonnet::homeserver($uname,$udom));          &cachedssheets($sheet,$uname,$udom);
         if ($oldsheets{$key}) {          if ($oldsheets{$key}) {
             foreach (split(/\_\_\_\&\_\_\_/,$oldsheets{$key})) {              foreach (split(/___&\___/,$oldsheets{$key})) {
                 my ($name,$value)=split(/\_\_\_\=\_\_\_/,$_);                  my ($name,$value)=split(/___=___/,$_);
                 if ($name eq $fn) {                  if ($name eq $fn) {
                     $found=$value;                      $found=$value;
                 }                  }
Line 2286  sub exportsheet { Line 2533  sub exportsheet {
         #          #
         # Return what was cached          # Return what was cached
         #          #
         @exportarr=split(/\_\_\_\;\_\_\_/,$found);          @exportarr=split(/___;___/,$found);
     } else {          return @exportarr;
         #      }
         # Not cached      #
         #              # Not cached
         my ($thissheet,$sheetdata)=&makenewsheet($uname,$udom,$stype,$usymb);      #
         &readsheet($thissheet,$fn);      my ($newsheet)=&makenewsheet($uname,$udom,$stype,$usymb);
         &updatesheet($thissheet,$sheetdata);      &readsheet($newsheet,$fn);
         &loadrows($thissheet,$sheetdata);      &updatesheet($newsheet);
         &calcsheet($thissheet,$sheetdata);       &loadrows($newsheet);
         @exportarr=&exportdata($thissheet,$sheetdata);      &calcsheet($newsheet); 
         #      @exportarr=&exportdata($newsheet);
         # Store now      ##
         #      ## Store now
         my $cid=$ENV{'request.course.id'};       ##
         my $current='';      #
         if ($stype eq 'studentcalc') {      # load in the old value
             $current=&Apache::lonnet::reply('get:'.      #
                                             $ENV{'course.'.$cid.'.domain'}.':'.      my %currentlystored=();
                                             $ENV{'course.'.$cid.'.num'}.      if ($stype eq 'studentcalc') {
                                             ':nohist_calculatedsheets:'.          my @tmp = &Apache::lonnet::get('nohist_calculatedsheets',
                                             &Apache::lonnet::escape($key),                                         [$key],
                                             $ENV{'course.'.$cid.'.home'});                                         $sheet->{'cdom'},$sheet->{'cnum'});
         } else {          if ($tmp[0]!~/^error/) {
             $current=&Apache::lonnet::reply('get:'.$sheetdata->{'udom'}.':'.              %currentlystored = @tmp;
                                             $sheetdata->{'uname'}.  
                                             ':nohist_calculatedsheets_'.  
                                             $ENV{'request.course.id'}.':'.  
                                             &Apache::lonnet::escape($key),  
                                             $sheetdata->{'uhome'});  
         }  
         my %currentlystored=();  
         unless ($current=~/^error\:/) {  
             foreach (split(/___&\___/,&Apache::lonnet::unescape($current))) {  
                 my ($name,$value)=split(/___=___/,$_);  
                 $currentlystored{$name}=$value;  
             }  
         }          }
         $currentlystored{$fn}=join('___;___',@exportarr);      } else {
         #          my @tmp = &Apache::lonnet::get('nohist_calculatedsheets_'.
         my $newstore='';                                         $sheet->{'cid'},[$key],
         foreach (keys(%currentlystored)) {                                         $sheet->{'udom'},$sheet->{'uname'});
             if ($newstore) { $newstore.='___&___'; }          if ($tmp[0]!~/^error/) {
             $newstore.=$_.'___=___'.$currentlystored{$_};              %currentlystored = @tmp;
         }  
         my $now=time;  
         if ($stype eq 'studentcalc') {  
             &Apache::lonnet::reply('put:'.  
                                    $ENV{'course.'.$cid.'.domain'}.':'.  
                                    $ENV{'course.'.$cid.'.num'}.  
                                    ':nohist_calculatedsheets:'.  
                                    &Apache::lonnet::escape($key).'='.  
                                    &Apache::lonnet::escape($newstore).'&'.  
                                    &Apache::lonnet::escape($key).'.time='.$now,  
                                    $ENV{'course.'.$cid.'.home'});  
         } else {  
             &Apache::lonnet::reply('put:'.  
                                    $sheetdata->{'udom'}.':'.  
                                    $sheetdata->{'uname'}.  
                                    ':nohist_calculatedsheets_'.  
                                    $ENV{'request.course.id'}.':'.  
                                    &Apache::lonnet::escape($key).'='.  
                                    &Apache::lonnet::escape($newstore).'&'.  
                                    &Apache::lonnet::escape($key).'.time='.$now,  
                                    $sheetdata->{'uhome'});  
         }          }
     }      }
       #
       # Add the new line
       #
       $currentlystored{$fn}=join('___;___',@exportarr);
       #
       # Stick everything back together
       #
       my $newstore='';
       foreach (keys(%currentlystored)) {
           if ($newstore) { $newstore.='___&___'; }
           $newstore.=$_.'___=___'.$currentlystored{$_};
       }
       my $now=time;
       #
       # Store away the new value
       #
       if ($stype eq 'studentcalc') {
           &Apache::lonnet::put('nohist_calculatedsheets',
                                { $key => $newstore,
                                  $key.time => $now },
                                $sheet->{'cdom'},$sheet->{'cnum'});
       } else {
           &Apache::lonnet::put('nohist_calculatedsheets_'.$sheet->{'cid'},
                                { $key => $newstore,
                                  $key.time => $now },
                                $sheet->{'udom'},
                                $sheet->{'uname'})
       }
     return @exportarr;      return @exportarr;
 }  }
   
Line 2363  sub exportsheet { Line 2605  sub exportsheet {
 sub expirationdates {  sub expirationdates {
     undef %expiredates;      undef %expiredates;
     my $cid=$ENV{'request.course.id'};      my $cid=$ENV{'request.course.id'};
     my $reply=&Apache::lonnet::reply('dump:'.      my @tmp = &Apache::lonnet::dump('nohist_expirationdates',
      $ENV{'course.'.$cid.'.domain'}.':'.                                      $ENV{'course.'.$cid.'.domain'},
                                      $ENV{'course.'.$cid.'.num'}.                                      $ENV{'course.'.$cid.'.num'});
      ':nohist_expirationdates',      if (lc($tmp[0])!~/^error/){
                                      $ENV{'course.'.$cid.'.home'});          %expiredates = @tmp;
     unless ($reply=~/^error\:/) {  
  foreach (split(/\&/,$reply)) {  
             my ($name,$value)=split(/\=/,$_);  
             $expiredates{&Apache::lonnet::unescape($name)}  
                         =&Apache::lonnet::unescape($value);  
         }  
     }      }
 }  }
   
Line 2384  sub expirationdates { Line 2620  sub expirationdates {
   
 sub cachedcsheets {  sub cachedcsheets {
     my $cid=$ENV{'request.course.id'};      my $cid=$ENV{'request.course.id'};
     my $reply=&Apache::lonnet::reply('dump:'.      my @tmp = &Apache::lonnet::dump('nohist_calculatedsheets',
      $ENV{'course.'.$cid.'.domain'}.':'.                                      $ENV{'course.'.$cid.'.domain'},
                                      $ENV{'course.'.$cid.'.num'}.                                      $ENV{'course.'.$cid.'.num'});
      ':nohist_calculatedsheets',      if ($tmp[0] !~ /^error/) {
                                      $ENV{'course.'.$cid.'.home'});          my %StupidTempHash = @tmp;
     unless ($reply=~/^error\:/) {          while (my ($key,$value) = each %StupidTempHash) {
  foreach ( split(/\&/,$reply)) {              $oldsheets{$key} = $value;
             my ($name,$value)=split(/\=/,$_);  
             $oldsheets{&Apache::lonnet::unescape($name)}  
                       =&Apache::lonnet::unescape($value);  
         }          }
     }      }
 }  }
Line 2404  sub cachedcsheets { Line 2637  sub cachedcsheets {
 #  #
   
 sub cachedssheets {  sub cachedssheets {
   my ($sname,$sdom,$shome)=@_;      my ($sheet,$uname,$udom) = @_;
   unless (($loadedcaches{$sname.'_'.$sdom}) || ($shome eq 'no_host')) {      $uname = $uname || $sheet->{'uname'};
     my $cid=$ENV{'request.course.id'};      $udom  = $udom  || $sheet->{'udom'};
     my $reply=&Apache::lonnet::reply('dump:'.$sdom.':'.$sname.      if (! $loadedcaches{$sheet->{'uname'}.'_'.$sheet->{'udom'}}) {
              ':nohist_calculatedsheets_'.          my @tmp = &Apache::lonnet::dump('nohist_calculatedsheets',
                                       $ENV{'request.course.id'},                                          $sheet->{'udom'},
                                      $shome);                                          $sheet->{'uname'});
     unless ($reply=~/^error\:/) {          if ($tmp[0] !~ /^error/) {
  foreach ( split(/\&/,$reply)) {              my %StupidTempHash = @tmp;
             my ($name,$value)=split(/\=/,$_);              while (my ($key,$value) = each %StupidTempHash) {
             $oldsheets{&Apache::lonnet::unescape($name)}                  $oldsheets{$key} = $value;
                       =&Apache::lonnet::unescape($value);              }
               $loadedcaches{$sheet->{'uname'}.'_'.$sheet->{'udom'}}=1;
         }          }
     }      }
     $loadedcaches{$sname.'_'.$sdom}=1;  
   }  
 }  }
   
 # ===================================================== Calculated sheets cache  # ===================================================== Calculated sheets cache
Line 2432  sub cachedssheets { Line 2664  sub cachedssheets {
 # Interactive call to screen  # Interactive call to screen
 #  #
 #  #
   
   
 sub handler {  sub handler {
     my $r=shift;      my $r=shift;
   
       my ($sheettype) = ($r->uri=~/\/(\w+)$/);
   
       if (! exists($ENV{'form.Status'})) {
           $ENV{'form.Status'} = 'Active';
       }
       if ( ! exists($ENV{'form.output'}) || 
                ($sheettype ne 'classcalc' && 
                 lc($ENV{'form.output'}) eq 'recursive excel')) {
           $ENV{'form.output'} = 'HTML';
       }
       # Check this server
       my $loaderror=&Apache::lonnet::overloaderror($r);
       if ($loaderror) { return $loaderror; }
       # Check the course homeserver
       $loaderror= &Apache::lonnet::overloaderror($r,
                         $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
       if ($loaderror) { return $loaderror; } 
       
     if ($r->header_only) {      if ($r->header_only) {
         $r->content_type('text/html');          $r->content_type('text/html');
         $r->send_http_header;          $r->send_http_header;
Line 2454  sub handler { Line 2703  sub handler {
     # Get query string for limited number of parameters      # Get query string for limited number of parameters
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                             ['uname','udom','usymb','ufn']);                                              ['uname','udom','usymb','ufn']);
       if ($ENV{'request.role'} =~ /^st\./) {
           delete $ENV{'form.unewfield'}   if (exists($ENV{'form.unewfield'}));
           delete $ENV{'form.unewformula'} if (exists($ENV{'form.unewformula'}));
       }
     if (($ENV{'form.usymb'}=~/^\_(\w+)/) && (!$ENV{'form.ufn'})) {      if (($ENV{'form.usymb'}=~/^\_(\w+)/) && (!$ENV{'form.ufn'})) {
         $ENV{'form.ufn'}='default_'.$1;          $ENV{'form.ufn'}='default_'.$1;
     }      }
Line 2480  sub handler { Line 2733  sub handler {
     $r->send_http_header;      $r->send_http_header;
     # Screen output      # Screen output
     $r->print('<html><head><title>LON-CAPA Spreadsheet</title>');      $r->print('<html><head><title>LON-CAPA Spreadsheet</title>');
     $r->print(<<ENDSCRIPT);      if ($ENV{'request.role'} !~ /^st\./) {
           $r->print(<<ENDSCRIPT);
 <script language="JavaScript">  <script language="JavaScript">
   
     function celledit(cn,cf) {      function celledit(cn,cf) {
Line 2506  sub handler { Line 2760  sub handler {
   
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
       }
     $r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').      $r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').
               '<form action="'.$r->uri.'" name=sheet method=post>');                '<form action="'.$r->uri.'" name=sheet method=post>');
     $r->print(&hiddenfield('uname',$ENV{'form.uname'}).      $r->print(&hiddenfield('uname',$ENV{'form.uname'}).
Line 2525  ENDSCRIPT Line 2780  ENDSCRIPT
         undef %updatedata;          undef %updatedata;
     }      }
     # Read new sheet or modified worksheet      # Read new sheet or modified worksheet
     $r->uri=~/\/(\w+)$/;      my ($sheet)=&makenewsheet($aname,$adom,$sheettype,$ENV{'form.usymb'});
     my ($asheet,$asheetdata)=&makenewsheet($aname,$adom,$1,$ENV{'form.usymb'});  
     #      #
     # If a new formula had been entered, go from work copy      # If a new formula had been entered, go from work copy
     if ($ENV{'form.unewfield'}) {      if ($ENV{'form.unewfield'}) {
Line 2534  ENDSCRIPT Line 2788  ENDSCRIPT
         $ENV{'form.unewformula'}=~s/\'/\"/g;          $ENV{'form.unewformula'}=~s/\'/\"/g;
         $r->print('<p>New formula: '.$ENV{'form.unewfield'}.'='.          $r->print('<p>New formula: '.$ENV{'form.unewfield'}.'='.
                   $ENV{'form.unewformula'}.'<p>');                    $ENV{'form.unewformula'}.'<p>');
         &setfilename($asheet,$ENV{'form.ufn'});          $sheet->{'filename'} = $ENV{'form.ufn'};
         &tmpread($asheet,$ENV{'form.unewfield'},$ENV{'form.unewformula'});          &tmpread($sheet,$ENV{'form.unewfield'},$ENV{'form.unewformula'});
     } elsif ($ENV{'form.saveas'}) {      } elsif ($ENV{'form.saveas'}) {
         &setfilename($asheet,$ENV{'form.ufn'});          $sheet->{'filename'} = $ENV{'form.ufn'};
         &tmpread($asheet);          &tmpread($sheet);
     } else {      } else {
         &readsheet($asheet,$ENV{'form.ufn'});          &readsheet($sheet,$ENV{'form.ufn'});
     }      }
     # Print out user information      # Print out user information
     unless ($asheetdata->{'sheettype'} eq 'classcalc') {      if ($sheet->{'sheettype'} ne 'classcalc') {
         $r->print('<p><b>User:</b> '.$asheetdata->{'uname'}.          $r->print('<p><b>User:</b> '.$sheet->{'uname'}.
                   '<br><b>Domain:</b> '.$asheetdata->{'udom'});                    '<br><b>Domain:</b> '.$sheet->{'udom'});
         if (&getcsec($asheet) eq '-1') {          $r->print('<br><b>Section/Group:</b> '.$sheet->{'csec'});
             $r->print('<h3><font color=red>'.  
                       'Not a student in this course</font></h3>');  
         } else {  
             $r->print('<br><b>Section/Group:</b> '.$asheetdata->{'csec'});  
         }  
         if ($ENV{'form.usymb'}) {          if ($ENV{'form.usymb'}) {
             $r->print('<br><b>Assessment:</b> <tt>'.              $r->print('<br><b>Assessment:</b> <tt>'.
                       $ENV{'form.usymb'}.'</tt>');                        $ENV{'form.usymb'}.'</tt>');
Line 2559  ENDSCRIPT Line 2808  ENDSCRIPT
     }      }
     #      #
     # Check user permissions      # Check user permissions
     if (($asheetdata->{'sheettype'} eq 'classcalc'       ) ||       if (($sheet->{'sheettype'} eq 'classcalc'       ) || 
         ($asheetdata->{'uname'}     ne $ENV{'user.name'} ) ||          ($sheet->{'uname'}     ne $ENV{'user.name'} ) ||
         ($asheetdata->{'udom'}      ne $ENV{'user.domain'})) {          ($sheet->{'udom'}      ne $ENV{'user.domain'})) {
         unless (&Apache::lonnet::allowed('vgr',$asheetdata->{'cid'})) {          unless (&Apache::lonnet::allowed('vgr',$sheet->{'cid'})) {
             $r->print('<h1>Access Permission Denied</h1>'.              $r->print('<h1>Access Permission Denied</h1>'.
                       '</form></body></html>');                        '</form></body></html>');
             return OK;              return OK;
Line 2572  ENDSCRIPT Line 2821  ENDSCRIPT
     $r->print('<br />'.      $r->print('<br />'.
               '<input type="submit" name="forcerecalc" '.                '<input type="submit" name="forcerecalc" '.
               'value="Completely Recalculate Sheet"><p>');                'value="Completely Recalculate Sheet"><p>');
     if ($asheetdata->{'sheettype'} eq 'assesscalc') {      if ($sheet->{'sheettype'} eq 'assesscalc') {
         $r->print('<p><font size=+2>'.          $r->print('<p><font size=+2>'.
                   '<a href="/adm/studentcalc?'.                    '<a href="/adm/studentcalc?'.
                   'uname='.$asheetdata->{'uname'}.                    'uname='.$sheet->{'uname'}.
                   '&udom='.$asheetdata->{'udom'}.'">'.                    '&udom='.$sheet->{'udom'}.'">'.
                   'Level up: Student Sheet</a></font><p>');                    'Level up: Student Sheet</a></font><p>');
     }      }
     if (($asheetdata->{'sheettype'} eq 'studentcalc') &&       if (($sheet->{'sheettype'} eq 'studentcalc') && 
         (&Apache::lonnet::allowed('vgr',$asheetdata->{'cid'}))) {          (&Apache::lonnet::allowed('vgr',$sheet->{'cid'}))) {
         $r->print ('<p><font size=+2><a href="/adm/classcalc">'.          $r->print ('<p><font size=+2><a href="/adm/classcalc">'.
                    'Level up: Course Sheet</a></font><p>');                     'Level up: Course Sheet</a></font><p>');
     }      }
Line 2593  ENDSCRIPT Line 2842  ENDSCRIPT
                   '<input type=text size=20 name=newfn value="'.$fname.'">'.                    '<input type=text size=20 name=newfn value="'.$fname.'">'.
                   'make default: <input type=checkbox name="makedefufn"><p>');                    'make default: <input type=checkbox name="makedefufn"><p>');
     }      }
     $r->print(&hiddenfield('ufn',&getfilename($asheet)));      $r->print(&hiddenfield('ufn',$sheet->{'filename'}));
     # Load dialog      # Load dialog
     if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {      if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {
         $r->print('<p><input type=submit name=load value="Load ...">'.          $r->print('<p><input type=submit name=load value="Load ...">'.
                   '<select name="loadthissheet">'.                    '<select name="loadthissheet">'.
                   '<option name="default">Default</option>');                    '<option name="default">Default</option>');
         foreach (&othersheets($asheet,$asheetdata->{'sheettype'})) {          foreach (&othersheets($sheet)) {
             $r->print('<option name="'.$_.'"');              $r->print('<option name="'.$_.'"');
             if ($ENV{'form.ufn'} eq $_) {              if ($ENV{'form.ufn'} eq $_) {
                 $r->print(' selected');                  $r->print(' selected');
Line 2607  ENDSCRIPT Line 2856  ENDSCRIPT
             $r->print('>'.$_.'</option>');              $r->print('>'.$_.'</option>');
         }           } 
         $r->print('</select><p>');          $r->print('</select><p>');
         if (&gettype($asheet) eq 'studentcalc') {          if ($sheet->{'sheettype'} eq 'studentcalc') {
             &setothersheets($asheet,&othersheets($asheet,'assesscalc'));              &setothersheets($sheet,
                               &othersheets($sheet,'assesscalc'));
         }          }
     }      }
     # Cached sheets      # Cached sheets
     &expirationdates();      &expirationdates();
     undef %oldsheets;      undef %oldsheets;
     undef %loadedcaches;      undef %loadedcaches;
     if ($asheetdata->{'sheettype'} eq 'classcalc') {      if ($sheet->{'sheettype'} eq 'classcalc') {
         $r->print("Loading previously calculated student sheets ...\n");          $r->print("Loading previously calculated student sheets ...\n");
         $r->rflush();          $r->rflush();
         &cachedcsheets();          &cachedcsheets();
     } elsif ($asheetdata->{'sheettype'} eq 'studentcalc') {      } elsif ($sheet->{'sheettype'} eq 'studentcalc') {
         $r->print("Loading previously calculated assessment sheets ...\n");          $r->print("Loading previously calculated assessment sheets ...\n");
         $r->rflush();          $r->rflush();
         &cachedssheets($asheetdata->{'uname'},$asheetdata->{'udom'},          &cachedssheets($sheet);
                        $asheetdata->{'uhome'});  
     }      }
     # Update sheet, load rows      # Update sheet, load rows
     $r->print("Loaded sheet(s), updating rows ...<br>\n");      $r->print("Loaded sheet(s), updating rows ...<br>\n");
     $r->rflush();      $r->rflush();
     #      #
     &updatesheet($asheet,$asheetdata);      &updatesheet($sheet);
     $r->print("Updated rows, loading row data ...\n");      $r->print("Updated rows, loading row data ...\n");
     $r->rflush();      $r->rflush();
     #      #
     &loadrows($asheet,$asheetdata,$r);      &loadrows($sheet,$r);
     $r->print("Loaded row data, calculating sheet ...<br>\n");      $r->print("Loaded row data, calculating sheet ...<br>\n");
     $r->rflush();      $r->rflush();
     #      #
     my $calcoutput=&calcsheet($asheet);      my $calcoutput=&calcsheet($sheet);
     $r->print('<h3><font color=red>'.$calcoutput.'</h3></font>');      $r->print('<h3><font color=red>'.$calcoutput.'</h3></font>');
     # See if something to save      # See if something to save
     if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {      if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {
Line 2645  ENDSCRIPT Line 2894  ENDSCRIPT
         if ($ENV{'form.saveas'} && ($fname=$ENV{'form.newfn'})) {          if ($ENV{'form.saveas'} && ($fname=$ENV{'form.newfn'})) {
             $fname=~s/\W/\_/g;              $fname=~s/\W/\_/g;
             if ($fname eq 'default') { $fname='course_default'; }              if ($fname eq 'default') { $fname='course_default'; }
             $fname.='_'.$asheetdata->{'sheettype'};              $fname.='_'.$sheet->{'sheettype'};
             &setfilename($asheet,$fname);              $sheet->{'filename'} = $fname;
             $ENV{'form.ufn'}=$fname;              $ENV{'form.ufn'}=$fname;
             $r->print('<p>Saving spreadsheet: '.              $r->print('<p>Saving spreadsheet: '.
                       &writesheet($asheet,$ENV{'form.makedefufn'}).'<p>');                        &writesheet($sheet,$ENV{'form.makedefufn'}).
                         '<p>');
         }          }
     }      }
     #      #
     #Write the modified worksheet      # Write the modified worksheet
     $r->print('<b>Current sheet:</b> '.&getfilename($asheet).'<p>');      $r->print('<b>Current sheet:</b> '.$sheet->{'filename'}.'<p>');
     &tmpwrite($asheet);      &tmpwrite($sheet);
     if ($asheetdata->{'sheettype'} eq 'studentcalc') {      if ($sheet->{'sheettype'} eq 'studentcalc') {
         $r->print('<br>Show rows with empty A column: ');          $r->print('<br>Show rows with empty A column: ');
     } else {      } else {
         $r->print('<br>Show empty rows: ');          $r->print('<br>Show empty rows: ');
     }       }
     #      #
     $r->print(&hiddenfield('userselhidden','true').      $r->print(&hiddenfield('userselhidden','true').
               '<input type="checkbox" name="showall" onClick="submit()"');                '<input type="checkbox" name="showall" onClick="submit()"');
Line 2670  ENDSCRIPT Line 2920  ENDSCRIPT
     } else {      } else {
         unless ($ENV{'form.userselhidden'}) {          unless ($ENV{'form.userselhidden'}) {
             unless               unless 
                 ($ENV{'course.'.$ENV{'request.course.id'}.'.hideemptyrows'} eq 'yes') {                  ($ENV{'course.'.$sheet->{'cid'}.'.hideemptyrows'} eq 'yes') {
                     $r->print(' checked');                      $r->print(' checked');
                     $ENV{'form.showall'}=1;                      $ENV{'form.showall'}=1;
                 }                  }
Line 2679  ENDSCRIPT Line 2929  ENDSCRIPT
     $r->print('>');      $r->print('>');
     #      #
     # CSV format checkbox (classcalc sheets only)      # CSV format checkbox (classcalc sheets only)
     if ($asheetdata->{'sheettype'} eq 'classcalc') {      $r->print(' Output as <select name="output" size="1" onClick="submit()">'.
         $r->print(' Output CSV format: <input type="checkbox" '.                "\n");
                   'name="showcsv" onClick="submit()"');      foreach my $mode (qw/HTML CSV Excel/) {
         if ($ENV{'form.showcsv'}) { $r->print(' checked'); }          $r->print('<option value="'.$mode.'"');
         $r->print('>');          if ($ENV{'form.output'} eq $mode) {
               $r->print(' selected ');
           } 
           $r->print('>'.$mode.'</option>'."\n");
       }
       if ($sheet->{'sheettype'} eq 'classcalc') {
           $r->print('<option value="recursive excel"');
           if ($ENV{'form.output'} eq 'recursive excel') {
               $r->print(' selected ');
           } 
           $r->print(">Multi-Sheet Excel</option>\n");
       }
       $r->print("</select>\n");
       #
       if ($sheet->{'sheettype'} eq 'classcalc') {
           $r->print('&nbsp;Student Status: '.
                     &Apache::lonhtmlcommon::StatusOptions
                     ($ENV{'form.Status'},'sheet'));
     }      }
     #      #
     # Buttons to insert rows      # Buttons to insert rows
     $r->print('&nbsp;Student Status: '.  #    $r->print(<<ENDINSERTBUTTONS);
               &Apache::lonhtmlcommon::StatusOptions  #<br>
               ($ENV{'form.Status'},'sheet'));  #<input type='button' onClick='insertrow("top");' 
     $r->print(<<ENDINSERTBUTTONS);  #value='Insert Row Top'>
 <br>  #<input type='button' onClick='insertrow("bottom");' 
 <input type='button' onClick='insertrow("top");'   #value='Insert Row Bottom'><br>
 value='Insert Row Top'>  #ENDINSERTBUTTONS
 <input type='button' onClick='insertrow("bottom");'   
 value='Insert Row Bottom'><br>  
 ENDINSERTBUTTONS  
     # Print out sheet      # Print out sheet
     &outsheet($r,$asheet,$asheetdata);      &outsheet($r,$sheet);
     $r->print('</form></body></html>');      $r->print('</form></body></html>');
     #  Done      #  Done
     return OK;      return OK;
Line 2706  ENDINSERTBUTTONS Line 2970  ENDINSERTBUTTONS
   
 1;  1;
 __END__  __END__
   
   
   
   
Removed from v.1.106  
changed lines
  Added in v.1.135

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