Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/lonspreadsheet.pm between versions 1.125 and 1.140

-version 1.125, 2002/10/24 14:34:07
+version 1.140, 2002/11/15 18:19:10
  Line 53  built-in functions.
  package Apache::lonspreadsheet;
  use strict;
+ use Apache::Constants qw(:common :http);
+ use Apache::lonnet;
+ use Apache::lonhtmlcommon;
+ use Apache::loncoursedata;
+ use Apache::File();
  use Safe;
  use Safe::Hole;
  use Opcode;
- use Apache::lonnet;
- use Apache::Constants qw(:common :http);
  use GDBM_File;
  use HTML::TokeParser;
- use Apache::lonhtmlcommon;
+ use Spreadsheet::WriteExcel;
- use Apache::loncoursedata;
  #
  # Caches for coursewide information
  #
- Line 91  my %spreadsheets;
+ Line 94  my %spreadsheets;
  my %courserdatas;
  my %userrdatas;
  my %defaultsheets;
- my %updatedata;
+ my %rowlabel_cache;
  #
  # These global hashes are dependent on user, course and resource,
- Line 122  my $tmpdir;
+ Line 125  my $tmpdir;
  ##
  sub mask {
      my ($lower,$upper)=@_;
+     $upper = $lower if (! defined($upper));
      #
      my ($la,$ld) = ($lower=~/([A-Za-z]|\*)(\d+|\*)/);
      my ($ua,$ud) = ($upper=~/([A-Za-z]|\*)(\d+|\*)/);
- Line 130  sub mask {
+ Line 134  sub mask {
      my $num='';
      #
      if (($la eq '*') || ($ua eq '*')) {
-        $alpha='[A-Za-z]';
+         $alpha='[A-Za-z]';
      } else {
         if (($la=~/[A-Z]/) && ($ua=~/[A-Z]/) ||
             ($la=~/[a-z]/) && ($ua=~/[a-z]/)) {
            $alpha='['.$la.'-'.$ua.']';
- Line 194  sub mask {
+ Line 197  sub mask {
      return '^'.$alpha.$num."\$";
  }
  sub initsheet {
      my $safeeval = new Safe(shift);
      my $safehole = new Safe::Hole;
- Line 238  undef @os;  # Holds the names of other s
+ Line 239  undef @os;  # Holds the names of other s
      # 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 = '';
- Line 591  compute the average of the items in the
+ Line 593  compute the average of the items in the
  #-------------------------------------------------------
  sub MEAN {
      my $mask=mask(@_);
-     my $sum=0; my $num=0;
+     my $sum=0;
+     my $num=0;
      foreach (grep /$mask/,keys(%sheet_values)) {
          $sum+=$sheet_values{$_};
          $num++;
- Line 828  sub expandnamed {
+ Line 831  sub expandnamed {
          foreach $parameter (keys(%c)) {
              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].'\'}';
-         } elsif ($#matches > 0) {
+         } elsif (scalar(@matches) > 0) {
              # more than one match.  Look for a concise one
              $returnvalue =  "'non-unique parameter name : $expression'";
              foreach (@matches) {
- Line 839  sub expandnamed {
+ Line 844  sub expandnamed {
                  }
              }
          } 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;
      }
- Line 922  sub calc {
+ Line 929  sub calc {
      while ($notfinished) {
  	$notfinished=0;
          foreach (keys(%t)) {
+             #$errorlog .= "$_:".$t{$_};
              my $old=$sheet_values{$_};
              $sheet_values{$_}=eval $t{$_};
  	    if ($@) {
- Line 929  sub calc {
+ Line 937  sub calc {
                  return $_.': '.$@;
              }
  	    if ($sheet_values{$_} ne $old) { $notfinished=1; $lastcalc=$_; }
+             #$errorlog .= ":".$sheet_values{$_}."\n";
          }
          $depth++;
          if ($depth>100) {
- Line 946  ENDDEFS
+ Line 955  ENDDEFS
  }
  #
- # This is actually used for the student spreadsheet, not the assessment sheet
+ #
- # Do not be fooled by the name!
  #
  sub templaterow {
      my $sheet = shift;
      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',
  	     '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') {
          my $fm=$sheet->{'f'}->{'template_'.$_};
          $fm=~s/[\'\"]/\&\#34;/g;
-         push(@cols,"'template_$_','$fm'".'___eq___'.$fm);
+         push(@cols,{ name    => 'template_'.$_,
+                      formula => $fm,
+                      value   => $fm });
      }
-     return @cols;
+     return ($rowlabel,@cols);
  }
  sub outrowassess {
      # $n is the current row number
-     my $sheet = shift;
+     my ($sheet,$n) = @_;
-     my $n=shift;
-     my $csv = $ENV{'form.showcsv'};
      my @cols=();
+     my $rowlabel='';
      if ($n) {
          my ($usy,$ufn)=split(/__&&&\__/,$sheet->{'f'}->{'A'.$n});
-         if ($sheet->{'rowlabel'}->{$usy}) {
+         if (exists($sheet->{'rowlabel'}->{$usy})) {
-             $cols[0]=&format_rowlabel($sheet->{'rowlabel'}->{$usy});
+             $rowlabel = $sheet->{'rowlabel'}->{$usy};
-             if (! $csv) {
-                 $cols[0].='<br>'.
-                 '<select name="sel_'.$n.'" onChange="changesheet('.$n.')">'.
-                     '<option name="default">Default</option>';
-             }
          } else {
-             $cols[0]='';
+             $rowlabel = '';
-         }
-         if (! $csv) {
-             foreach (@{$sheet->{'othersheets'}}) {
-                 $cols[0].='<option name="'.$_.'"';
-                 if ($ufn eq $_) {
-                     $cols[0].=' selected';
-                 }
-                 $cols[0].='>'.$_.'</option>';
-             }
-             $cols[0].='</select>';
          }
      } 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',
  	     'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
- Line 1002  sub outrowassess {
+ Line 995  sub outrowassess {
  	     'n','o','p','q','r','s','t','u','v','w','x','y','z') {
          my $fm=$sheet->{'f'}->{$_.$n};
          $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 {
-     my $sheet=shift;
+     my ($sheet,$n)=@_;
-     my $n=shift;
      my @cols=();
+     my $rowlabel;
      if ($n) {
-         $cols[0]=&format_rowlabel($sheet->{'rowlabel'}->{$sheet->{'f'}->{'A'.$n}});
+         $rowlabel = $sheet->{'rowlabel'}->{$sheet->{'f'}->{'A'.$n}};
      } 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',
  	     'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
- Line 1022  sub outrow {
+ Line 1021  sub outrow {
  	     'n','o','p','q','r','s','t','u','v','w','x','y','z') {
          my $fm=$sheet->{'f'}->{$_.$n};
          $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);
  }
  # ------------------------------------------------ Add or change formula values
- Line 1042  sub setconstants {
+ Line 1043  sub setconstants {
          $constants = \%tmp;
      }
      $sheet->{'constants'} = $constants;
-     &Apache::lonnet::logthis("----------------------------------");
-     foreach my $c (keys(%{$sheet->{'constants'}})) {
-         &Apache::lonnet::logthis('constant '.$c.' = '.
-                                  $sheet->{'constants'}->{$c});
-     }
      return %{$sheet->{'safe'}->varglob('c')}=%{$sheet->{'constants'}};
  }
- Line 1079  sub calcsheet {
+ Line 1075  sub calcsheet {
  }
  # ---------------------------------------------------------------- Get formulas
+ # Return a copy of the formulas
  sub getformulas {
      my $sheet = shift;
      return %{$sheet->{'safe'}->varglob('f')};
  }
+ sub geterrorlog {
+     my $sheet = shift;
+     return ${$sheet->{'safe'}->varglob('errorlog')};
+ }
+ sub gettitle {
+     my $sheet = shift;
+     if ($sheet->{'sheettype'} eq 'classcalc') {
+         return $sheet->{'coursedesc'};
+     } elsif ($sheet->{'sheettype'} eq 'studentcalc') {
+         return 'Grades for '.$sheet->{'uname'}.'@'.$sheet->{'udom'};
+     } elsif ($sheet->{'sheettype'} eq 'assesscalc') {
+         if (($sheet->{'usymb'} eq '_feedback') ||
+             ($sheet->{'usymb'} eq '_evaluation') ||
+             ($sheet->{'usymb'} eq '_discussion') ||
+             ($sheet->{'usymb'} eq '_tutoring')) {
+             my $title = $sheet->{'usymb'};
+             $title =~ s/^_//;
+             $title = ucfirst($title);
+             return $title;
+         }
+         return if (! defined($sheet->{'mapid'}) ||
+                    $sheet->{'mapid'} !~ /^\d+$/);
+         my $mapid = $sheet->{'mapid'};
+         return if (! defined($sheet->{'resid'}) ||
+                    $sheet->{'resid'} !~ /^\d+$/);
+         my $resid = $sheet->{'resid'};
+         my %course_db;
+         tie(%course_db,'GDBM_File',$sheet->{'coursefilename'}.'.db',
+             &GDBM_READER(),0640);
+         return if (! tied(%course_db));
+         my $key = 'title_'.$mapid.'.'.$resid;
+         my $title = '';
+         if (exists($course_db{$key})) {
+             $title = $course_db{$key};
+         } else {
+             $title = $sheet->{'usymb'};
+         }
+         untie (%course_db);
+         return $title;
+     }
+ }
  # ----------------------------------------------------- Get value of $f{'A'.$n}
  sub getfa {
      my $sheet = shift;
- Line 1097  sub exportdata {
+ Line 1137  sub exportdata {
      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'});
+         if (exists($sheet->{'values'}->{$_.'0'})) {
+             push(@exportarray,$sheet->{'values'}->{$_.'0'});
+         } else {
+             push(@exportarray,'');
+         }
      }
      return @exportarray;
  }
+ sub update_student_sheet{
+     my ($sheet,$c) = @_;
+     # Load in the studentcalc sheet
+     &readsheet($sheet,'default_studentcalc');
+     # Determine the structure (contained assessments, etc) of the sheet
+     &updatesheet($sheet);
+     # Load in the cached sheets for this student
+     &cachedssheets($sheet);
+     # Load in the (possibly cached) data from the assessment sheets
+     &loadstudent($sheet,$c);
+     # Compute the sheet
+     &calcsheet($sheet);
+ }
  # ========================================================== End of Spreadsheet
  # =============================================================================
  #
- # Procedures for screen output
+ # Procedures for spreadsheet output
  #
  # --------------------------------------------- Produce output row n from sheet
- sub rown {
+ sub get_row {
-     my ($sheet,$n)=@_;
+     my ($sheet,$n) = @_;
-     my $defaultbg;
+     my ($rowlabel,@rowdata);
-     my $rowdata='';
+     if ($n eq '-') {
-     my $dataflag=0;
+         ($rowlabel,@rowdata) = &templaterow($sheet);
-     unless ($n eq '-') {
+     } elsif ($sheet->{'sheettype'} eq 'studentcalc') {
-         $defaultbg=((($n-1)/5)==int(($n-1)/5))?'#E0E0':'#FFFF';
+         ($rowlabel,@rowdata) = &outrowassess($sheet,$n);
-     } else {
-         $defaultbg='#E0FF';
-     }
-     unless ($ENV{'form.showcsv'}) {
-         $rowdata.="\n<tr><td><b><font size=+1>$n</font></b></td>";
      } else {
-         $rowdata.="\n".'"'.$n.'"';
+         ($rowlabel,@rowdata) = &outrow($sheet,$n);
      }
-     my $showf=0;
+     return ($rowlabel,@rowdata);
+ }
+ ########################################################################
+ ########################################################################
+ sub sort_indicies {
+     my $sheet = shift;
      #
-     # Determine how many pink (uneditable) cells there are in this sheet.
+     # Sort the rows in some manner
-     my $maxred=1;
-     my $sheettype=$sheet->{'sheettype'};
-     if ($sheettype eq 'studentcalc') {
-         $maxred=26;
-     } elsif ($sheettype eq 'assesscalc') {
-         $maxred=1;
-     } else {
-         $maxred=26;
-     }
-     $maxred=1 if (&getfa($sheet,$n)=~/^[\~\-]/);
      #
-     # Get the proper row
+     my @sortby=();
-     my @rowdata;
+     my @sortidx=();
-     if ($n eq '-') {
+     # Skip row 0
-         @rowdata = &templaterow($sheet);
+     for (my $row=1;$row<=$sheet->{'maxrow'};$row++) {
-         $n=-1;
+         push (@sortby, $sheet->{'safe'}->reval('$f{"A'.$row.'"}'));
-         $dataflag=1;
+         push (@sortidx, $row);
-     } elsif ($sheettype eq 'studentcalc') {
-         @rowdata = &outrowassess($sheet,$n);
-     } else {
-         @rowdata = &outrow($sheet,$n);
-     }
-     #
-     foreach (@rowdata) {
-         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.'>';
-                 if ($ENV{'request.role'} =~ /^st\./) {
-                     $rowdata.=$vl;
-                 } else {
-                     $rowdata.='<a href="javascript:celledit('.$fm.');">'.
-                         $vl.'</a>';
-                 }
-                 $rowdata.='</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 {
-         return '';
      }
+     @sortidx=sort { lc($sortby[$a]) cmp lc($sortby[$b]); } @sortidx;
+     return @sortidx;
  }
- # ------------------------------------------------------------- Print out sheet
+ #############################################################
+ ###                                                       ###
+ ###              Spreadsheet Output Routines              ###
+ ###                                                       ###
+ #############################################################
+ ############################################
+ ##         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>';
+     }
+     $formula =~ s/\n/\\n/gs;
+     $result .= '<a href="javascript:celledit(\''.
+         $name.'\',\''.$formula.'\');">'.$value.'</a>';
+     return $result;
+ }
- sub outsheet {
+ sub html_uneditable_cell {
-     my ($r,$sheet)=@_;
+     my ($cell,$bgcolor) = @_;
-     my $maxred = 26;    # The maximum number of cells to show as
+     my $value = (defined($cell) ? $cell->{'value'} : '');
-                         # red (uneditable)
+     return '&nbsp;'.$value.'&nbsp;';
-                         # To make student sheets uneditable could we
+ }
-                         # set $maxred = 52?
-                         #
+ sub outsheet_html  {
-     my $realm='Course'; # 'assessment', 'user', or 'course' sheet
+     my ($sheet,$r) = @_;
+     my ($num_uneditable,$realm,$row_type);
      if ($sheet->{'sheettype'} eq 'assesscalc') {
-         $maxred=1;
+         $num_uneditable = 1;
-         $realm='Assessment';
+         $realm = 'Assessment';
+         $row_type = 'Item';
      } elsif ($sheet->{'sheettype'} eq 'studentcalc') {
-         $maxred=26;
+         $num_uneditable = 26;
-         $realm='User';
+         $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');
+     $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);
      #
-     # Column label
+     # Loop through the rows and output them one at a time
-     my $tabledata;
+     my $rows_output=0;
-     if ($ENV{'form.showcsv'}) {
+     foreach my $rownum (@Rows) {
-         $tabledata='<pre>';
+         my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);
-     } else {
+         next if ($rowlabel =~ /^\s*$/);
-         $tabledata='<table border=2><tr><th colspan=2 rowspan=2>'.
+         #
-             '<font size=+2>'.$realm.'</font></th>'.
+         my $defaultbg='#E0FF';
-                   '<td bgcolor=#FFDDDD colspan='.$maxred.
+         #
-                   '><b><font size=+1>Import</font></b></td>'.
+         my $row_html ="\n".'<tr><td><b><font size=+1>'.$rownum.
-                   '<td colspan='.(52-$maxred).
+             '</font></b></td>';
- 		  '><b><font size=+1>Calculations</font></b></td></tr><tr>';
+         #
-         my $showf=0;
+         if ($sheet->{'sheettype'} eq 'classcalc') {
-         foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',
+             $row_html.='<td>'.&format_html_rowlabel($rowlabel).'</td>';
-                  'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
+             # Output links for each student?
-                  'a','b','c','d','e','f','g','h','i','j','k','l','m',
+             # Nope, that is already done for us in format_html_rowlabel (for now)
-                  'n','o','p','q','r','s','t','u','v','w','x','y','z') {
+         } elsif ($sheet->{'sheettype'} eq 'studentcalc') {
-             $showf++;
+             $row_html.='<td>'.&format_html_rowlabel($rowlabel);
-             if ($showf<=$maxred) {
+             $row_html.= '<br>'.
-                 $tabledata.='<td bgcolor="#FFDDDD">';
+                 '<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 {
-                 $tabledata.='<td>';
+                 $row_html .= &html_editable_cell($cell,$bgcolor);
              }
-             $tabledata.="<b><font size=+1>$_</font></b></td>";
+             $row_html.='</td>';
+             $shown_cells++;
+         }
+         if ($row_html) {
+             if ($rows_output % 25 == 0) {
+                 $r->print("</table>\n<br>\n");
+                 $r->rflush();
+                 $r->print('<table border=2>'.
+                           '<tr><td>&nbsp;<td>'.$row_type.'</td>'.
+                           '<td>'.
+                           join('</td><td>',
+                                (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.
+                                       'abcdefghijklmnopqrstuvwxyz'))).
+                           "</td></tr>\n");
+             }
+             $rows_output++;
+             $r->print($row_html);
          }
-         $tabledata.='</tr>'.&rown($sheet,'-').
-             &rown($sheet,0);
      }
-     $r->print($tabledata);
      #
+     $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;
+ }
+ ############################################
+ ##         csv output routines            ##
+ ############################################
+ sub outsheet_csv   {
+     my ($sheet,$r) = @_;
+     my $csvdata = '';
+     my @Values;
+     ####################################
      # Prepare to output rows
-     my $row;
+     ####################################
+     my @Rows = &sort_indicies($sheet);
      #
-     my @sortby=();
+     # Loop through the rows and output them one at a time
-     my @sortidx=();
+     my $rows_output=0;
-     for ($row=1;$row<=$sheet->{'maxrow'};$row++) {
+     foreach my $rownum (@Rows) {
-         push (@sortby, $sheet->{'safe'}->reval('$f{"A'.$row.'"}'));
+         my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);
-         push (@sortidx, $row-1);
+         next if ($rowlabel =~ /^\s*$/);
+         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) = @_;
+     my $c = $r->connection;
+     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(<<END);
+ <p>
+ Compiling Excel Workbook with a worksheet for each student.
+ </p><p>
+ This operation may take longer than a complete recalculation of the
+ spreadsheet.
+ </p><p>
+ To abort this operation, hit the stop button on your browser.
+ </p><p>
+ A link to the spreadsheet will be available at the end of this process.
+ </p>
+ <p>
+ END
+     $r->rflush();
+     my $starttime = time;
+     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
+         &update_student_sheet($studentsheet,$c);
+         # Stuff the sheet into excel
+         &export_sheet_as_excel($studentsheet,$student_excel_worksheet);
+         my $totaltime = int((time - $starttime) / $count * $sheet->{'maxrow'});
+         my $timeleft = int((time - $starttime) / $count * ($sheet->{'maxrow'} - $count));
+         if ($count % 5 == 0) {
+             $r->print($count.' students completed.'.
+                       '  Time remaining: '.$timeleft.' sec. '.
+                       '  Estimated total time: '.$totaltime." sec <br />\n");
+             $r->rflush();
+         }
+         if(defined($c) && ($c->aborted())) {
+             last;
+         }
      }
-     @sortidx=sort { lc($sortby[$a]) cmp lc($sortby[$b]); } @sortidx;
      #
-     # Determine the type of child spreadsheets
+     if(! $c->aborted() ) {
-     my $what='Student';
+         $r->print('All students spreadsheets completed!<br />');
-     if ($sheet->{'sheettype'} eq 'assesscalc') {
+         $r->rflush();
-         $what='Item';
+         #
+         # &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");
+     } else {
+         $workbook->close();  # Not sure how necessary this is.
+         #unlink('/home/httpd'.$filename); # No need to keep this around?
+     }
+     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') {
-         $what='Assessment';
+         $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';
+     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;
+     #
+     my $rows_output = 0;
+     my $cols_output = 0;
+     ####################################
+     #    Write an identifying row      #
+     ####################################
+     my @Headerinfo = ($sheet->{'coursedesc'});
+     my $title = &gettitle($sheet);
+     $cols_output = 0;
+     if (defined($title)) {
+         $worksheet->write($rows_output++,$cols_output++,$title);
+     }
+     ####################################
+     #   Write the summary/export row   #
+     ####################################
+     my ($rowlabel,@rowdata) = &get_row($sheet,'0');
+     my $label = &format_excel_rowlabel($rowlabel);
+     $cols_output = 0;
+     $worksheet->write($rows_output,$cols_output++,$label);
+     foreach my $cell (@rowdata) {
+         $worksheet->write($rows_output,$cols_output++,$cell->{'value'});
      }
+     $rows_output+= 2;   # Skip a row, just for fun
+     ####################################
+     # Prepare to output rows
+     ####################################
+     my @Rows = &sort_indicies($sheet);
      #
      # Loop through the rows and output them one at a time
-     my $n=0;
+     foreach my $rownum (@Rows) {
-     for ($row=0;$row<$sheet->{'maxrow'};$row++) {
+         my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);
-         my $thisrow=&rown($sheet,$sortidx[$row]+1);
+         next if ($rowlabel =~ /^\s*$/);
-         if ($thisrow) {
+         $cols_output = 0;
-             if (($n/25==int($n/25)) && (!$ENV{'form.showcsv'})) {
+         my $label = &format_excel_rowlabel($rowlabel);
-                 $r->print("</table>\n<br>\n");
+         $worksheet->write($rows_output,$cols_output++,$label);
-                 $r->rflush();
+         if (ref($label)) {
-                 $r->print('<table border=2><tr><td>&nbsp;<td>'.$what.'</td>');
+             $cols_output = (scalar(@$label));
-                 $r->print('<td>'.
+         }
-                           join('</td><td>',
+         foreach my $cell (@rowdata) {
-                                (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.
+             $worksheet->write($rows_output,$cols_output++,$cell->{'value'});
-                                       'abcdefghijklmnopqrstuvwxyz'))).
-                           "</td></tr>\n");
-             }
-             $n++;
-             $r->print($thisrow);
          }
+         $rows_output++;
      }
-     $r->print($ENV{'form.showcsv'}?'</pre>':'</table>');
+     return;
  }
- #
+ ############################################
- # ----------------------------------------------- Read list of available sheets
+ ##          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 {
      my ($sheet,$stype)=@_;
      $stype = $sheet->{'sheettype'} if (! defined($stype));
- Line 1295  sub othersheets {
+ Line 1677  sub othersheets {
      return @alternatives;
  }
  #
  # -------------------------------------- Parse a spreadsheet
  #
- Line 1408  sub makenewsheet {
+ Line 1789  sub makenewsheet {
      $sheet->{'udom'}  = $udom;
      $sheet->{'sheettype'} = $stype;
      $sheet->{'usymb'} = $usymb;
+     $sheet->{'mapid'} = $ENV{'form.mapid'};
+     $sheet->{'resid'} = $ENV{'form.resid'};
      $sheet->{'cid'}   = $ENV{'request.course.id'};
      $sheet->{'csec'}  = $Section{$uname.':'.$udom};
      $sheet->{'coursefilename'}   = $ENV{'request.course.fn'};
      $sheet->{'cnum'}  = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
      $sheet->{'cdom'}  = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
      $sheet->{'chome'} = $ENV{'course.'.$ENV{'request.course.id'}.'.home'};
+     $sheet->{'coursedesc'} = $ENV{'course.'.$ENV{'request.course.id'}.
+                                       '.description'};
      $sheet->{'uhome'} = &Apache::lonnet::homeserver($uname,$udom);
      #
      #
- Line 1450  sub writesheet {
+ Line 1835  sub writesheet {
          # Cache new sheet
          $spreadsheets{$cnum.'_'.$cdom.'_'.$stype.'_'.$fn}=join('___;___',%f);
          # Write sheet
-         my $sheetdata='';
          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') {
-             $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 ($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;
              }
- Line 1527  sub tmpread {
+ Line 1900  sub tmpread {
          }
      }
      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') {
  	    $fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield};
          }
- Line 1621  sub parmval {
+ Line 1994  sub parmval {
      return &Apache::lonnet::metadata($fn,$rwhat.'.default');
  }
- sub format_rowlabel {
+ ##################################################################
+ ##                  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);
+         my ($symb,$uname,$udom,$mapid,$resid,$title) = split(':',$labeldata);
          $symb = &Apache::lonnet::unescape($symb);
-         if ($ENV{'form.showcsv'}) {
+         $result = '<a href="/adm/assesscalc?usymb='.$symb.
-             $result = $title;
+             '&uname='.$uname.'&udom='.$udom.
-         } else {
+                 '&mapid='.$mapid.'&resid='.$resid.'">'.$title.'</a>';
-             $result = '<a href="/adm/assesscalc?usmb='.$symb.
-                 '&uname='.$uname.'&udom='.$udom.'">'.$title.'</a>';
-         }
      } elsif ($type eq 'student') {
          my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);
-         if ($ENV{'form.showcsv'}) {
+         $result ='<a href="/adm/studentcalc?uname='.$sname.
-             $result = '"'.
+             '&udom='.$sdom.'">';
-                 join('","',($sname,$sdom,$fullname,$section,$id).'"');
+         $result.=$section.'&nbsp;'.$id."&nbsp;".$fullname.'</a>';
-         } else {
-             $result ='<a href="/adm/studentcalc?uname='.$sname.
-                 '&udom='.$sdom.'">';
-             $result.=$section.'&nbsp;'.$id."&nbsp;".$fullname.'</a>';
-         }
      } elsif ($type eq 'parameter') {
-         if ($ENV{'form.showcsv'}) {
+         $result = $labeldata;
-             $result = $labeldata =~ s/<br>//g;
+     } else {
-         } else {
+         $result = '<b><font size=+1>'.$rowlabel.'</font></b>';
-             $result = $labeldata;
+     }
-         }
+     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,$mapid,$resid,$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,$mapid,$resid,$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 {
-         &Apache::lonnet::logthis("lonspreadsheet:bogus rowlabel type: $type");
+         $result = $rowlabel;
      }
      return $result;
  }
- Line 1665  sub updateclasssheet {
+ Line 2076  sub updateclasssheet {
      my $chome =$sheet->{'chome'};
      #
      %Section = ();
      #
      # Read class list and row labels
      my $classlist = &Apache::loncoursedata::get_classlist();
- Line 1677  sub updateclasssheet {
+ Line 2087  sub updateclasssheet {
      foreach my $student (keys(%$classlist)) {
          my ($studentDomain,$studentName,$end,$start,$id,$studentSection,
              $fullname,$status)   =   @{$classlist->{$student}};
+         $Section{$studentName.':'.$studentDomain} = $studentSection;
          if ($ENV{'form.Status'} eq $status || $ENV{'form.Status'} eq 'Any') {
              $currentlist{$student}=join(':',('student',$studentName,
                                               $studentDomain,$fullname,
- Line 1708  sub updateclasssheet {
+ Line 2119  sub updateclasssheet {
      }
      #
      # New and unknown keys
-     foreach (sort keys(%currentlist)) {
+     foreach my $student (sort keys(%currentlist)) {
-         unless ($existing{$_}) {
+         unless ($existing{$student}) {
              $changed=1;
              $sheet->{'maxrow'}++;
-             $f{'A'.$sheet->{'maxrow'}}=$_;
+             $f{'A'.$sheet->{'maxrow'}}=$student;
          }
      }
      if ($changed) {
- Line 1724  sub updateclasssheet {
+ Line 2135  sub updateclasssheet {
  }
  # ----------------------------------- Update rows for student and assess sheets
- sub updatestudentassesssheet {
+ sub get_student_rowlabels {
      my ($sheet) = @_;
-     my %bighash;
+     #
-     my $stype=$sheet->{'sheettype'};
+     my %course_db;
-     my $uname=$sheet->{'uname'};
+     #
-     my $udom =$sheet->{'udom'};
+     my $stype = $sheet->{'sheettype'};
+     my $uname = $sheet->{'uname'};
+     my $udom  = $sheet->{'udom'};
+     #
      $sheet->{'rowlabel'} = {};
-     if  ($updatedata
+     #
-          {$ENV{'request.course.fn'}.'_'.$stype.'_'.$uname.'_'.$udom}) {
+     my $identifier =$sheet->{'coursefilename'}.'_'.$stype;
-         %{$sheet->{'rowlabel'}}=split(/___;___/,
+     if  ($rowlabel_cache{$identifier}) {
-                        $updatedata{$ENV{'request.course.fn'}.
+         %{$sheet->{'rowlabel'}}=split(/___;___/,$rowlabel_cache{$identifier});
-                                        '_'.$stype.'_'.$uname.'_'.$udom});
      } else {
+         # Get the data and store it in the cache
          # Tie hash
-         tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
+         tie(%course_db,'GDBM_File',$sheet->{'coursefilename'}.'.db',
              &GDBM_READER(),0640);
-         if (! tied(%bighash)) {
+         if (! tied(%course_db)) {
              return 'Could not access course data';
          }
-         # Get all assessments
          #
-         # allkeys is used in the assessment sheets to provide labels
+         my %assesslist;
-         # for the parameters.
-         my %allkeys=('timestamp' =>
-                      'parameter:Timestamp of Last Transaction<br>timestamp',
-                      'subnumber' =>
-                      'parameter:Number of Submissions<br>subnumber',
-                      'tutornumber' =>
-                      'parameter:Number of Tutor Responses<br>tutornumber',
-                      'totalpoints' =>
-                      'parameter:Total Points Granted<br>totalpoints');
-         my $adduserstr='';
-         if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})){
-             $adduserstr='&uname='.$uname.'&udom='.$udom;
-         }
-         #
-         # allassess holds the descriptions of all assessments
-         my %allassess;
          foreach ('Feedback','Evaluation','Tutoring','Discussion') {
              my $symb = '_'.lc($_);
-             $allassess{$symb} = join(':',('symb',$symb,$uname,$udom,$_));
+             $assesslist{$symb} = join(':',('symb',$symb,$uname,$udom,0,0,$_));
          }
-         while (($_,undef) = each(%bighash)) {
+         #
-             next if ($_!~/^src\_(\d+)\.(\d+)$/);
+         while (my ($key,$srcf) = each(%course_db)) {
-             my $mapid=$1;
+             next if ($key !~ /^src_(\d+)\.(\d+)$/);
-             my $resid=$2;
+             my $mapid = $1;
-             my $id=$mapid.'.'.$resid;
+             my $resid = $2;
-             my $srcf=$bighash{$_};
+             my $id   = $mapid.'.'.$resid;
              if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) {
                  my $symb=
-                     &Apache::lonnet::declutter($bighash{'map_id_'.$mapid}).
+                     &Apache::lonnet::declutter($course_db{'map_id_'.$mapid}).
                          '___'.$resid.'___'.&Apache::lonnet::declutter($srcf);
-                 $allassess{$symb}='symb:'.&Apache::lonnet::escape($symb).':'
+                 $assesslist{$symb}='symb:'.&Apache::lonnet::escape($symb).':'
-                     .$uname.':'.$udom.':'.$bighash{'title_'.$id};
+                     .$uname.':'.$udom.':'.$mapid.':'.$resid.':'.
-                 next if ($stype ne 'assesscalc');
+                         $course_db{'title_'.$id};
-                 foreach my $key (split(/\,/,
+             }
-                                        &Apache::lonnet::metadata($srcf,'keys')
+         }
-                                        )) {
+         untie(%course_db);
+         # Store away the data
+         $sheet->{'rowlabel'} = \%assesslist;
+         $rowlabel_cache{$identifier}=join('___;___',%{$sheet->{'rowlabel'}});
+     }
+ }
+ sub get_assess_rowlabels {
+     my ($sheet) = @_;
+     #
+     my %course_db;
+     #
+     my $stype = $sheet->{'sheettype'};
+     my $uname = $sheet->{'uname'};
+     my $udom  = $sheet->{'udom'};
+     my $usymb = $sheet->{'usymb'};
+     #
+     $sheet->{'rowlabel'} = {};
+     my $identifier =$sheet->{'coursefilename'}.'_'.$stype.'_'.$usymb;
+     #
+     if  ($rowlabel_cache{$identifier}) {
+         %{$sheet->{'rowlabel'}}=split(/___;___/,$rowlabel_cache{$identifier});
+     } else {
+         # Get the data and store it in the cache
+         # Tie hash
+         tie(%course_db,'GDBM_File',$sheet->{'coursefilename'}.'.db',
+             &GDBM_READER(),0640);
+         if (! tied(%course_db)) {
+             return 'Could not access course data';
+         }
+         #
+         my %parameter_labels=
+             ('timestamp' =>
+                  'parameter:Timestamp of Last Transaction<br>timestamp',
+              'subnumber' =>
+                  'parameter:Number of Submissions<br>subnumber',
+              'tutornumber' =>
+                  'parameter:Number of Tutor Responses<br>tutornumber',
+              'totalpoints' =>
+                  'parameter:Total Points Granted<br>totalpoints');
+         while (my ($key,$srcf) = each(%course_db)) {
+             next if ($key !~ /^src_(\d+)\.(\d+)$/);
+             my $mapid = $1;
+             my $resid = $2;
+             my $id   = $mapid.'.'.$resid;
+             if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) {
+                 # Loop through the metadata for this key
+                 my @Metadata = split(/,/,
+                                      &Apache::lonnet::metadata($srcf,'keys'));
+                 foreach my $key (@Metadata) {
                      next if ($key !~ /^(stores|parameter)_/);
                      my $display=
                          &Apache::lonnet::metadata($srcf,$key.'.display');
- Line 1790  sub updatestudentassesssheet {
+ Line 2237  sub updatestudentassesssheet {
                              &Apache::lonnet::metadata($srcf,$key.'.name');
                      }
                      $display.='<br>'.$key;
-                     $allkeys{$key}='parameter:'.$display;
+                     $parameter_labels{$key}='parameter:'.$display;
                  } # end of foreach
              }
-         } # end of foreach (keys(%bighash))
+         }
-         untie(%bighash);
+         untie(%course_db);
-         #
+         # Store away the results
-         # %allkeys has a list of storage and parameter displays by unikey
+         $sheet->{'rowlabel'} = \%parameter_labels;
-         # %allassess has a list of all resource displays by symb
+         $rowlabel_cache{$identifier}=join('___;___',%{$sheet->{'rowlabel'}});
-         #
-         if ($stype eq 'assesscalc') {
-             $sheet->{'rowlabel'} = \%allkeys;
-         } elsif ($stype eq 'studentcalc') {
-             $sheet->{'rowlabel'} = \%allassess;
-         }
-         $updatedata{$ENV{'request.course.fn'}.'_'.$stype.'_'.$uname.'_'.$udom}=
-             join('___;___',%{$sheet->{'rowlabel'}});
-         # Get current from cache
      }
-     # Find discrepancies between the course row table and this
-     #
+ }
+ sub updatestudentassesssheet {
+     my $sheet = shift;
+     if ($sheet->{'sheettype'} eq 'studentcalc') {
+         &get_student_rowlabels($sheet);
+     } else {
+         &get_assess_rowlabels($sheet);
+     }
+     # Determine if any of the information has changed
      my %f=&getformulas($sheet);
      my $changed=0;
      $sheet->{'maxrow'} = 0;
      my %existing=();
      # Now obsolete rows
-     foreach (keys(%f)) {
+     while (my ($cell, $formula) = each (%f)) {
-         next if ($_!~/^A(\d+)/);
+         next if ($cell !~ /^A(\d+)/);
-         if ($1 > $sheet->{'maxrow'}) {
+         $sheet->{'maxrow'} = $1 if ($1 > $sheet->{'maxrow'});
-             $sheet->{'maxrow'} = $1;
+         my ($usy,$ufn)=split(/__&&&\__/,$formula);
-         }
-         my ($usy,$ufn)=split(/__&&&\__/,$f{$_});
          $existing{$usy}=1;
          unless ((exists($sheet->{'rowlabel'}->{$usy}) &&
                   (defined($sheet->{'rowlabel'}->{$usy})) || (!$1) ||
-                 ($f{$_}=~/^(~~~|---)/))){
+                  ($formula =~ /^(~~~|---)/) )) {
              $f{$_}='!!! Obsolete';
              $changed=1;
          } elsif ($ufn) {
+             # I do not think this works any more
              $sheet->{'rowlabel'}->{$usy}
-                 =~s/assesscalc\?usymb\=/assesscalc\?ufn\=$ufn\&usymb\=/;
+                 =~s/assesscalc\?usymb\=/assesscalc\?ufn\=$ufn&\usymb\=/;
          }
      }
      # New and unknown keys
- Line 1845  sub updatestudentassesssheet {
+ Line 2291  sub updatestudentassesssheet {
          $sheet->{'f'} = \%f;
          &setformulas($sheet);
      }
-     #
-     undef %existing;
  }
  # ------------------------------------------------ Load data for one assessment
- sub loadstudent {
+ sub loadstudent{
-     my ($sheet)=@_;
+     my ($sheet,$r,$c)=@_;
-     my %c=();
+     my %constants=();
-     my %f=&getformulas($sheet);
+     my %formulas=&getformulas($sheet);
      $cachedassess=$sheet->{'uname'}.':'.$sheet->{'udom'};
      # Get ALL the student preformance data
      my @tmp = &Apache::lonnet::dump($sheet->{'cid'},
- Line 1867  sub loadstudent {
+ Line 2311  sub loadstudent {
      undef @tmp;
      #
      my @assessdata=();
-     foreach (keys(%f)) {
+     while (my ($cell,$value) = each (%formulas)) {
- 	next if ($_!~/^A(\d+)/);
+         if(defined($c) && ($c->aborted())) {
+             last;
+         }
+ 	next if ($cell !~ /^A(\d+)/);
          my $row=$1;
-         next if (($f{$_}=~/^[\!\~\-]/) || ($row==0));
+         next if (($value =~ /^[!~-]/) || ($row==0));
-         my ($usy,$ufn)=split(/__&&&\__/,$f{$_});
+         my ($usy,$ufn)=split(/__&&&\__/,$value);
-         @assessdata=&exportsheet($sheet->{'uname'},
+         @assessdata=&exportsheet($sheet,$sheet->{'uname'},
                                   $sheet->{'udom'},
-                                  'assesscalc',$usy,$ufn);
+                                  'assesscalc',$usy,$ufn,$r);
          my $index=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') {
-             if ($assessdata[$index]) {
+             if (defined($assessdata[$index])) {
                  my $col=$_;
                  if ($assessdata[$index]=~/\D/) {
-                     $c{$col.$row}="'".$assessdata[$index]."'";
+                     $constants{$col.$row}="'".$assessdata[$index]."'";
                  } else {
-                     $c{$col.$row}=$assessdata[$index];
+                     $constants{$col.$row}=$assessdata[$index];
                  }
                  unless ($col eq 'A') {
-                     $f{$col.$row}='import';
+                     $formulas{$col.$row}='import';
                  }
              }
              $index++;
- Line 1894  sub loadstudent {
+ Line 2341  sub loadstudent {
      }
      $cachedassess='';
      undef %cachedstores;
-     $sheet->{'f'} = \%f;
+     $sheet->{'f'} = \%formulas;
      &setformulas($sheet);
-     &setconstants($sheet,\%c);
+     &setconstants($sheet,\%constants);
  }
  # --------------------------------------------------- Load data for one student
  #
  sub loadcourse {
-     my ($sheet,$r)=@_;
+     my ($sheet,$r,$c)=@_;
-     my %c=();
+     #
-     my %f=&getformulas($sheet);
+     my %constants=();
+     my %formulas=&getformulas($sheet);
+     #
      my $total=0;
-     foreach (keys(%f)) {
+     foreach (keys(%formulas)) {
  	if ($_=~/^A(\d+)/) {
- 	    unless ($f{$_}=~/^[\!\~\-]/) { $total++; }
+ 	    unless ($formulas{$_}=~/^[\!\~\-]/) { $total++; }
          }
      }
      my $now=0;
- Line 1925  sub loadcourse {
+ Line 2374  sub loadcourse {
  </script>
  ENDPOP
      $r->rflush();
-     foreach (keys(%f)) {
+     foreach (keys(%formulas)) {
+         if(defined($c) && ($c->aborted())) {
+             last;
+         }
  	next if ($_!~/^A(\d+)/);
          my $row=$1;
-         next if (($f{$_}=~/^[\!\~\-]/)  || ($row==0));
+         next if (($formulas{$_}=~/^[\!\~\-]/)  || ($row==0));
-         my @studentdata=&exportsheet(split(/\:/,$f{$_}),
+         my ($sname,$sdom) = split(':',$formulas{$_});
-                                      'studentcalc');
+         my @studentdata=&exportsheet($sheet,$sname,$sdom,'studentcalc',
+                                      undef,undef,$r);
          undef %userrdatas;
          $now++;
          $r->print('<script>popwin.document.popremain.remaining.value="'.
- Line 1941  ENDPOP
+ Line 2394  ENDPOP
          my $index=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') {
-             if ($studentdata[$index]) {
+             if (defined($studentdata[$index])) {
                  my $col=$_;
                  if ($studentdata[$index]=~/\D/) {
-                     $c{$col.$row}="'".$studentdata[$index]."'";
+                     $constants{$col.$row}="'".$studentdata[$index]."'";
                  } else {
-                     $c{$col.$row}=$studentdata[$index];
+                     $constants{$col.$row}=$studentdata[$index];
                  }
                  unless ($col eq 'A') {
-                     $f{$col.$row}='import';
+                     $formulas{$col.$row}='import';
                  }
-                 $index++;
+             }
-             }
+             $index++;
          }
      }
-     $sheet->{'f'}=\%f;
+     $sheet->{'f'}=\%formulas;
      &setformulas($sheet);
-     &setconstants($sheet,\%c);
+     &setconstants($sheet,\%constants);
      $r->print('<script>popwin.close()</script>');
      $r->rflush();
  }
- Line 1965  ENDPOP
+ Line 2418  ENDPOP
  # ------------------------------------------------ Load data for one assessment
  #
  sub loadassessment {
-     my ($sheet)=@_;
+     my ($sheet,$r,$c)=@_;
      my $uhome = $sheet->{'uhome'};
      my $uname = $sheet->{'uname'};
- Line 2115  sub selectbox {
+ Line 2568  sub selectbox {
  sub updatesheet {
      my ($sheet)=@_;
-     my $stype=$sheet->{'sheettype'};
+     if ($sheet->{'sheettype'} eq 'classcalc') {
-     if ($stype eq 'classcalc') {
  	return &updateclasssheet($sheet);
      } else {
          return &updatestudentassesssheet($sheet);
- Line 2130  sub updatesheet {
+ Line 2582  sub updatesheet {
  sub loadrows {
      my ($sheet,$r)=@_;
+     my $c = $r->connection;
      my $stype=$sheet->{'sheettype'};
      if ($stype eq 'classcalc') {
- 	&loadcourse($sheet,$r);
+ 	&loadcourse($sheet,$r,$c);
      } elsif ($stype eq 'studentcalc') {
-         &loadstudent($sheet);
+         &loadstudent($sheet,$r,$c);
      } else {
-         &loadassessment($sheet);
+         &loadassessment($sheet,$r,$c);
      }
  }
- Line 2173  sub forcedrecalc {
+ Line 2626  sub forcedrecalc {
  }
  # ============================================================== Export handler
+ # exportsheet
+ # returns the export row for a spreadsheet.
+ #
  sub exportsheet {
-     my ($uname,$udom,$stype,$usymb,$fn)=@_;
+     my ($sheet,$uname,$udom,$stype,$usymb,$fn,$r)=@_;
+     $uname = $uname || $sheet->{'uname'};
+     $udom  = $udom  || $sheet->{'udom'};
+     $stype = $stype || $sheet->{'sheettype'};
      my @exportarr=();
-     if (defined($usymb) && ($usymb=~/^\_(\w+)/) && (!$fn)) {
+     if (defined($usymb) && ($usymb=~/^\_(\w+)/) &&
+         (!defined($fn) || $fn eq '')) {
          $fn='default_'.$1;
      }
      #
- Line 2193  sub exportsheet {
+ Line 2653  sub exportsheet {
          }
      }
      unless ($found) {
-         &cachedssheets($uname,$udom,&Apache::lonnet::homeserver($uname,$udom));
+         &cachedssheets($sheet,$uname,$udom);
          if ($oldsheets{$key}) {
              foreach (split(/___&\___/,$oldsheets{$key})) {
                  my ($name,$value)=split(/___=___/,$_);
- Line 2220  sub exportsheet {
+ Line 2680  sub exportsheet {
      }
      #
      # Not cached
-     #
-     my ($sheet)=&makenewsheet($uname,$udom,$stype,$usymb);
-     &readsheet($sheet,$fn);
-     &updatesheet($sheet);
-     &loadrows($sheet);
-     &calcsheet($sheet);
-     @exportarr=&exportdata($sheet);
      #
-     # Store now
+     my ($newsheet)=&makenewsheet($uname,$udom,$stype,$usymb);
+     &readsheet($newsheet,$fn);
+     &updatesheet($newsheet);
+     &loadrows($newsheet,$r);
+     &calcsheet($newsheet);
+     @exportarr=&exportdata($newsheet);
+     ##
+     ## Store now
+     ##
+     #
+     # load in the old value
      #
-     my $cid=$ENV{'request.course.id'};
-     my $current='';
-     if ($stype eq 'studentcalc') {
-         $current=&Apache::lonnet::reply('get:'.
-                                         $ENV{'course.'.$cid.'.domain'}.':'.
-                                         $ENV{'course.'.$cid.'.num'}.
-                                         ':nohist_calculatedsheets:'.
-                                         &Apache::lonnet::escape($key),
-                                         $ENV{'course.'.$cid.'.home'});
-     } else {
-         $current=&Apache::lonnet::reply('get:'.$sheet->{'udom'}.':'.
-                                         $sheet->{'uname'}.
-                                         ':nohist_calculatedsheets_'.
-                                         $ENV{'request.course.id'}.':'.
-                                         &Apache::lonnet::escape($key),
-                                         $sheet->{'uhome'});
-     }
      my %currentlystored=();
-     unless ($current=~/^error\:/) {
+     if ($stype eq 'studentcalc') {
-         foreach (split(/___&\___/,&Apache::lonnet::unescape($current))) {
+         my @tmp = &Apache::lonnet::get('nohist_calculatedsheets',
-             my ($name,$value)=split(/___=___/,$_);
+                                        [$key],
-             $currentlystored{$name}=$value;
+                                        $sheet->{'cdom'},$sheet->{'cnum'});
+         if ($tmp[0]!~/^error/) {
+             %currentlystored = @tmp;
+         }
+     } else {
+         my @tmp = &Apache::lonnet::get('nohist_calculatedsheets_'.
+                                        $sheet->{'cid'},[$key],
+                                        $sheet->{'udom'},$sheet->{'uname'});
+         if ($tmp[0]!~/^error/) {
+             %currentlystored = @tmp;
          }
      }
+     #
+     # 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 },
-                              $ENV{'course.'.$cid.'.domain'},
+                              $sheet->{'cdom'},$sheet->{'cnum'});
-                              $ENV{'course.'.$cid.'.num'})
      } else {
          &Apache::lonnet::put('nohist_calculatedsheets_'.$sheet->{'cid'},
                               { $key => $newstore,
- Line 2282  sub exportsheet {
+ Line 2744  sub exportsheet {
  #
  # Load previously cached student spreadsheets for this course
  #
- sub expirationdates {
+ sub load_spreadsheet_expirationdates {
      undef %expiredates;
      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 2306  sub expirationdates {
+ Line 2762  sub expirationdates {
  sub cachedcsheets {
      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 2326  sub cachedcsheets {
+ Line 2779  sub cachedcsheets {
  #
  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{$uname.'_'.$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 %TempHash = @tmp;
-             my ($name,$value)=split(/\=/,$_);
+             my $count = 0;
-             $oldsheets{&Apache::lonnet::unescape($name)}
+             while (my ($key,$value) = each %TempHash) {
-                       =&Apache::lonnet::unescape($value);
+                 $oldsheets{$key} = $value;
+                 $count++;
+             }
+             $loadedcaches{$sheet->{'uname'}.'_'.$sheet->{'udom'}}=1;
          }
      }
-     $loadedcaches{$sname.'_'.$sdom}=1;
-   }
  }
  # ===================================================== Calculated sheets cache
- Line 2357  sub cachedssheets {
+ Line 2812  sub cachedssheets {
  sub handler {
      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';
+     }
+     #
+     # Overload checking
+     #
      # Check this server
      my $loaderror=&Apache::lonnet::overloaderror($r);
      if ($loaderror) { return $loaderror; }
- Line 2367  sub handler {
+ Line 2832  sub handler {
      $loaderror= &Apache::lonnet::overloaderror($r,
                        $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
      if ($loaderror) { return $loaderror; }
+     #
+     # HTML Header
+     #
      if ($r->header_only) {
          $r->content_type('text/html');
          $r->send_http_header;
          return OK;
      }
+     #
      # Global directory configs
+     #
      $includedir = $r->dir_config('lonIncludes');
      $tmpdir = $r->dir_config('lonDaemons').'/tmp/';
+     #
+     # Roles Checking
+     #
      # Needs to be in a course
      if (! $ENV{'request.course.fn'}) {
          # Not in a course, or not allowed to modify parms
- Line 2383  sub handler {
+ Line 2855  sub handler {
              $r->uri.":opa:0:0:Cannot modify spreadsheet";
          return HTTP_NOT_ACCEPTABLE;
      }
+     #
      # Get query string for limited number of parameters
-     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+     #
-                                             ['uname','udom','usymb','ufn']);
+     &Apache::loncommon::get_unprocessed_cgi
+         ($ENV{'QUERY_STRING'},['uname','udom','usymb','ufn','mapid','resid']);
+     #
+     # Deal with restricted student permissions
+     #
      if ($ENV{'request.role'} =~ /^st\./) {
          delete $ENV{'form.unewfield'}   if (exists($ENV{'form.unewfield'}));
          delete $ENV{'form.unewformula'} if (exists($ENV{'form.unewformula'}));
      }
+     #
+     # Clean up symb and spreadsheet filename
+     #
      if (($ENV{'form.usymb'}=~/^\_(\w+)/) && (!$ENV{'form.ufn'})) {
          $ENV{'form.ufn'}='default_'.$1;
      }
+     #
      # Interactive loading of specific sheet?
+     #
      if (($ENV{'form.load'}) && ($ENV{'form.loadthissheet'} ne 'Default')) {
          $ENV{'form.ufn'}=$ENV{'form.loadthissheet'};
      }
- Line 2409  sub handler {
+ Line 2891  sub handler {
          $adom=$ENV{'form.udom'};
      }
      #
-     # Open page
+     # Open page, try to prevent browser cache.
+     #
      $r->content_type('text/html');
      $r->header_out('Cache-control','no-cache');
      $r->header_out('Pragma','no-cache');
      $r->send_http_header;
-     # Screen output
+     #
+     # Header....
+     #
      $r->print('<html><head><title>LON-CAPA Spreadsheet</title>');
+     my $nothing = "''";
+     if ($ENV{'browser.type'} eq 'explorer') {
+         $nothing = "'javascript:void(0);'";
+     }
      if ($ENV{'request.role'} !~ /^st\./) {
          $r->print(<<ENDSCRIPT);
  <script language="JavaScript">
-     function celledit(cn,cf) {
+     var editwin;
-         var cnf=prompt(cn,cf);
-         if (cnf!=null) {
+     function celledit(cellname,cellformula) {
-             document.sheet.unewfield.value=cn;
+         var edit_text = '';
-             document.sheet.unewformula.value=cnf;
+         edit_text +='<html><head><title>Cell Edit Window</title></head><body>';
-             document.sheet.submit();
+         edit_text += '<form name="editwinform">';
+         edit_text += '<center><h3>Cell '+cellname+'</h3>';
+         edit_text += '<textarea name="newformula" cols="40" rows="6"';
+         edit_text += ' wrap="off" >'+cellformula+'</textarea>';
+         edit_text += '</br>';
+         edit_text += '<input type="button" name="accept" value="Accept"';
+         edit_text += ' onClick=\\\'javascript:';
+         edit_text += 'opener.document.sheet.unewfield.value=';
+         edit_text +=     '"'+cellname+'";';
+         edit_text += 'opener.document.sheet.unewformula.value=';
+         edit_text +=     'document.editwinform.newformula.value;';
+         edit_text += 'opener.document.sheet.submit();';
+         edit_text += 'self.close()\\\' />';
+         edit_text += '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;';
+         edit_text += '<input type="button" name="abort" ';
+         edit_text +=     'value="Discard Changes"';
+         edit_text += ' onClick="javascript:self.close()" />';
+         edit_text += '</center></body></html>';
+         if (editwin != null && !(editwin.closed) ) {
+             editwin.close();
          }
+         editwin = window.open($nothing,'CellEditWin','height=200,width=350,scrollbars=no,resizeable=yes,alwaysRaised=yes,dependent=yes',true);
+         editwin.document.write(edit_text);
      }
      function changesheet(cn) {
- Line 2445  sub handler {
+ Line 2958  sub handler {
  ENDSCRIPT
      }
      $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'}).
                &hiddenfield('udom',$ENV{'form.udom'}).
                &hiddenfield('usymb',$ENV{'form.usymb'}).
- Line 2454  ENDSCRIPT
+ Line 2967  ENDSCRIPT
      $r->rflush();
      #
      # Full recalc?
+     #
      if ($ENV{'form.forcerecalc'}) {
          $r->print('<h4>Completely Recalculating Sheet ...</h4>');
          undef %spreadsheets;
          undef %courserdatas;
          undef %userrdatas;
          undef %defaultsheets;
-         undef %updatedata;
+         undef %rowlabel_cache;
      }
      # Read new sheet or modified worksheet
-     $r->uri=~/\/(\w+)$/;
+     my ($sheet)=&makenewsheet($aname,$adom,$sheettype,$ENV{'form.usymb'});
-     my ($sheet)=&makenewsheet($aname,$adom,$1,$ENV{'form.usymb'});
+     #
+     # Check user permissions
+     if (($sheet->{'sheettype'} eq 'classcalc'       ) ||
+         ($sheet->{'uname'}     ne $ENV{'user.name'} ) ||
+         ($sheet->{'udom'}      ne $ENV{'user.domain'})) {
+         unless (&Apache::lonnet::allowed('vgr',$sheet->{'cid'})) {
+             $r->print('<h1>Access Permission Denied</h1>'.
+                       '</form></body></html>');
+             return OK;
+         }
+     }
+     # Print out user information
+     $r->print('<h2>'.$sheet->{'coursedesc'}.'</h2>');
+     if ($sheet->{'sheettype'} ne 'classcalc') {
+         $r->print('<h2>'.&gettitle($sheet).'</h2><p>');
+     }
+     if ($sheet->{'sheettype'} eq 'assesscalc') {
+         $r->print('<b>User:</b> '.$sheet->{'uname'}.
+                   '<br /><b>Domain:</b> '.$sheet->{'udom'}.'<br />');
+     }
+     if ($sheet->{'sheettype'} eq 'studentcalc' ||
+         $sheet->{'sheettype'} eq 'assesscalc') {
+         $r->print('<b>Section/Group:</b>'.$sheet->{'csec'}.'</p>');
+     }
      #
      # If a new formula had been entered, go from work copy
      if ($ENV{'form.unewfield'}) {
- Line 2480  ENDSCRIPT
+ Line 3017  ENDSCRIPT
      } else {
          &readsheet($sheet,$ENV{'form.ufn'});
      }
-     # Print out user information
-     if ($sheet->{'sheettype'} ne 'classcalc') {
-         $r->print('<p><b>User:</b> '.$sheet->{'uname'}.
-                   '<br><b>Domain:</b> '.$sheet->{'udom'});
-         $r->print('<br><b>Section/Group:</b> '.$sheet->{'csec'});
-         if ($ENV{'form.usymb'}) {
-             $r->print('<br><b>Assessment:</b> <tt>'.
-                       $ENV{'form.usymb'}.'</tt>');
-         }
-     }
-     #
-     # Check user permissions
-     if (($sheet->{'sheettype'} eq 'classcalc'       ) ||
-         ($sheet->{'uname'}     ne $ENV{'user.name'} ) ||
-         ($sheet->{'udom'}      ne $ENV{'user.domain'})) {
-         unless (&Apache::lonnet::allowed('vgr',$sheet->{'cid'})) {
-             $r->print('<h1>Access Permission Denied</h1>'.
-                       '</form></body></html>');
-             return OK;
-         }
-     }
      # Additional options
-     $r->print('<br />'.
-               '<input type="submit" name="forcerecalc" '.
-               'value="Completely Recalculate Sheet"><p>');
      if ($sheet->{'sheettype'} eq 'assesscalc') {
          $r->print('<p><font size=+2>'.
                    '<a href="/adm/studentcalc?'.
                    'uname='.$sheet->{'uname'}.
                    '&udom='.$sheet->{'udom'}.'">'.
-                   'Level up: Student Sheet</a></font><p>');
+                   'Level up: Student Sheet</a></font></p>');
      }
      if (($sheet->{'sheettype'} eq 'studentcalc') &&
          (&Apache::lonnet::allowed('vgr',$sheet->{'cid'}))) {
          $r->print ('<p><font size=+2><a href="/adm/classcalc">'.
-                    'Level up: Course Sheet</a></font><p>');
+                    'Level up: Course Sheet</a></font></p>');
      }
+     # Recalc button
+     $r->print('<br />'.
+               '<input type="submit" name="forcerecalc" '.
+               'value="Completely Recalculate Sheet"></p>');
      # Save dialog
      if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {
          my $fname=$ENV{'form.ufn'};
- Line 2545  ENDSCRIPT
+ Line 3062  ENDSCRIPT
                              &othersheets($sheet,'assesscalc'));
          }
      }
-     # Cached sheets
+     #
-     &expirationdates();
+     # Set up caching mechanisms
-     undef %oldsheets;
+     #
-     undef %loadedcaches;
+     &load_spreadsheet_expirationdates();
+     # Clear out old caches if we have not seen this class before.
+     if (exists($oldsheets{'course'}) &&
+         $oldsheets{'course'} ne $sheet->{'cid'}) {
+         undef %oldsheets;
+         undef %loadedcaches;
+     }
+     $oldsheets{'course'} = $sheet->{'cid'};
+     #
      if ($sheet->{'sheettype'} eq 'classcalc') {
          $r->print("Loading previously calculated student sheets ...\n");
          $r->rflush();
- Line 2556  ENDSCRIPT
+ Line 3081  ENDSCRIPT
      } elsif ($sheet->{'sheettype'} eq 'studentcalc') {
          $r->print("Loading previously calculated assessment sheets ...\n");
          $r->rflush();
-         &cachedssheets($sheet->{'uname'},$sheet->{'udom'},$sheet->{'uhome'});
+         &cachedssheets($sheet);
      }
      # Update sheet, load rows
      $r->print("Loaded sheet(s), updating rows ...<br>\n");
- Line 2588  ENDSCRIPT
+ Line 3113  ENDSCRIPT
      }
      #
      # Write the modified worksheet
-     $r->print('<b>Current sheet:</b> '.$sheet->{'filename'}.'<p>');
+     $r->print('<b>Current sheet:</b> '.$sheet->{'filename'}.'</p>');
      &tmpwrite($sheet);
      if ($sheet->{'sheettype'} eq 'studentcalc') {
-         $r->print('<br>Show rows with empty A column: ');
+         $r->print('<p>Show rows with empty A column: ');
      } else {
-         $r->print('<br>Show empty rows: ');
+         $r->print('<p>Show empty rows: ');
      }
      #
      $r->print(&hiddenfield('userselhidden','true').
- Line 2604  ENDSCRIPT
+ Line 3129  ENDSCRIPT
      } else {
          unless ($ENV{'form.userselhidden'}) {
              unless
-                 ($ENV{'course.'.$ENV{'request.course.id'}.'.hideemptyrows'} eq 'yes') {
+                 ($ENV{'course.'.$sheet->{'cid'}.'.hideemptyrows'} eq 'yes') {
                      $r->print(' checked');
                      $ENV{'form.showall'}=1;
                  }
- Line 2613  ENDSCRIPT
+ Line 3138  ENDSCRIPT
      $r->print('>');
      #
      # CSV format checkbox (classcalc sheets only)
-     $r->print(' Output CSV format: <input type="checkbox" '.
+     $r->print(' Output as <select name="output" size="1" onClick="submit()">'.
-               'name="showcsv" onClick="submit()"');
+               "\n");
-     $r->print(' checked') if ($ENV{'form.showcsv'});
+     foreach my $mode (qw/HTML CSV Excel/) {
-     $r->print('>');
+         $r->print('<option value="'.$mode.'"');
+         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
- Line 2624  ENDSCRIPT
+ Line 3163  ENDSCRIPT
      }
      #
      # Buttons to insert rows
-     $r->print(<<ENDINSERTBUTTONS);
+ #    $r->print(<<ENDINSERTBUTTONS);
- <br>
+ #<br>
- <input type='button' onClick='insertrow("top");'
+ #<input type='button' onClick='insertrow("top");'
- value='Insert Row Top'>
+ #value='Insert Row Top'>
- <input type='button' onClick='insertrow("bottom");'
+ #<input type='button' onClick='insertrow("bottom");'
- value='Insert Row Bottom'><br>
+ #value='Insert Row Bottom'><br>
- ENDINSERTBUTTONS
+ #ENDINSERTBUTTONS
      # Print out sheet
      &outsheet($r,$sheet);
      $r->print('</form></body></html>');

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.125
changed lines
	Added in v.1.140