[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.148 and 1.162

version 1.148, 2002/11/21 19:50:49 version 1.162, 2003/01/13 21:52:11
Line 62  use Safe; Line 62  use Safe;
 use Safe::Hole;  use Safe::Hole;
 use Opcode;  use Opcode;
 use GDBM_File;  use GDBM_File;
   use HTML::Entities();
 use HTML::TokeParser;  use HTML::TokeParser;
 use Spreadsheet::WriteExcel;  use Spreadsheet::WriteExcel;
   
Line 960  ENDDEFS Line 961  ENDDEFS
 sub templaterow {  sub templaterow {
     my $sheet = shift;      my $sheet = shift;
     my @cols=();      my @cols=();
     my $rowlabel = 'Template';      my $rowlabel = 'Template</td><td>&nbsp;';
     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=$sheet->{'f'}->{'template_'.$_};  
         $fm=~s/[\'\"]/\&\#34;/g;  
         push(@cols,{ name    => 'template_'.$_,          push(@cols,{ name    => 'template_'.$_,
                      formula => $fm,                       formula => $sheet->{'f'}->{'template_'.$_},
                      value   => $fm });                       value   => $sheet->{'f'}->{'template_'.$_} });
     }      }
     return ($rowlabel,@cols);      return ($rowlabel,@cols);
 }  }
Line 982  sub outrowassess { Line 981  sub outrowassess {
     if ($n) {      if ($n) {
         my ($usy,$ufn)=split(/__&&&\__/,$sheet->{'f'}->{'A'.$n});          my ($usy,$ufn)=split(/__&&&\__/,$sheet->{'f'}->{'A'.$n});
         if (exists($sheet->{'rowlabel'}->{$usy})) {          if (exists($sheet->{'rowlabel'}->{$usy})) {
             $rowlabel = $sheet->{'rowlabel'}->{$usy};              # This is dumb, but we need the information when we output
               # the html version of the studentcalc spreadsheet for the
               # links to the assesscalc sheets.
               $rowlabel = $sheet->{'rowlabel'}->{$usy}.':'.
                   &Apache::lonnet::escape($ufn);
         } else {           } else { 
             $rowlabel = '';              $rowlabel = '';
         }          }
       } elsif ($ENV{'request.role'} =~ /^st\./) {
           $rowlabel = 'Summary</td><td>0';
     } else {      } else {
         $rowlabel = 'Export';          $rowlabel = 'Export</td><td>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',
      '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=$sheet->{'f'}->{$_.$n};  
         $fm=~s/[\'\"]/\&\#34;/g;  
         push(@cols,{ name    => $_.$n,          push(@cols,{ name    => $_.$n,
                      formula => $fm,                       formula => $sheet->{'f'}->{$_.$n},
                      value   => $sheet->{'values'}->{$_.$n}});                       value   => $sheet->{'values'}->{$_.$n}});
     }      }
     return ($rowlabel,@cols);      return ($rowlabel,@cols);
Line 1010  sub outrow { Line 1013  sub outrow {
         $rowlabel = $sheet->{'rowlabel'}->{$sheet->{'f'}->{'A'.$n}};          $rowlabel = $sheet->{'rowlabel'}->{$sheet->{'f'}->{'A'.$n}};
     } else {      } else {
         if ($sheet->{'sheettype'} eq 'classcalc') {          if ($sheet->{'sheettype'} eq 'classcalc') {
             $rowlabel = 'Summary';              $rowlabel = 'Summary</td><td>0';
         } else {          } else {
             $rowlabel = 'Export';              $rowlabel = 'Export</td><td>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',
      '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=$sheet->{'f'}->{$_.$n};  
         $fm=~s/[\'\"]/\&\#34;/g;  
         push(@cols,{ name    => $_.$n,          push(@cols,{ name    => $_.$n,
                      formula => $fm,                       formula => $sheet->{'f'}->{$_.$n},
                      value   => $sheet->{'values'}->{$_.$n}});                       value   => $sheet->{'values'}->{$_.$n}});
     }      }
     return ($rowlabel,@cols);      return ($rowlabel,@cols);
Line 1203  sub sort_indicies { Line 1204  sub sort_indicies {
         my @sortby2=(undef);          my @sortby2=(undef);
         # Skip row 0          # Skip row 0
         for (my $row=1;$row<=$sheet->{'maxrow'};$row++) {          for (my $row=1;$row<=$sheet->{'maxrow'};$row++) {
             my (undef,$symb,$uname,$udom,$mapid,$resid,$title) =               my ($key,undef) = split(/__&&&\__/,$sheet->{'f'}->{'A'.$row});
                 split(':',$sheet->{'rowlabel'}->{$sheet->{'f'}->{'A'.$row}});              my $rowlabel = $sheet->{'rowlabel'}->{$key};
             $symb = &Apache::lonnet::unescape($symb);              my (undef,$symb,$mapid,$resid,$title,$ufn) = 
                   split(':',$rowlabel);
               $ufn   = &Apache::lonnet::unescape($ufn);
               $symb  = &Apache::lonnet::unescape($symb);
               $title = &Apache::lonnet::unescape($title);
             my ($sequence) = ($symb =~ /\/([^\/]*\.sequence)/);              my ($sequence) = ($symb =~ /\/([^\/]*\.sequence)/);
             if ($sequence eq '') {              if ($sequence eq '') {
                 $sequence = $symb;                  $sequence = $symb;
Line 1253  sub html_editable_cell { Line 1258  sub html_editable_cell {
         if ($formula ne '') {          if ($formula ne '') {
             $value = '<i>undefined value</i>';              $value = '<i>undefined value</i>';
         }          }
     }      } elsif ($value =~ /^\s*$/ ) {
     if ($value =~ /^\s*$/ ) {  
         $value = '<font color="'.$bgcolor.'">#</font>';          $value = '<font color="'.$bgcolor.'">#</font>';
       } else {
           $value = &HTML::Entities::encode($value) if ($value !~/&nbsp;/);
     }      }
       # Make the formula safe for outputting
       $formula =~ s/\'/\"/g;
       # The formula will be parsed by the browser *twice* before being 
       # displayed to the user for editing.
       $formula = &HTML::Entities::encode(&HTML::Entities::encode($formula));
       # Escape newlines so they make it into the edit window
     $formula =~ s/\n/\\n/gs;      $formula =~ s/\n/\\n/gs;
     $result .= '<a href="javascript:celledit(\''.      # Glue everything together
         $name.'\',\''.$formula.'\');">'.$value.'</a>';      $result .= "<a href=\"javascript:celledit(\'".
           $name."','".$formula."');\">".$value."</a>";
     return $result;      return $result;
 }  }
   
 sub html_uneditable_cell {  sub html_uneditable_cell {
     my ($cell,$bgcolor) = @_;      my ($cell,$bgcolor) = @_;
     my $value = (defined($cell) ? $cell->{'value'} : '');      my $value = (defined($cell) ? $cell->{'value'} : '');
       $value = &HTML::Entities::encode($value) if ($value !~/&nbsp;/);
     return '&nbsp;'.$value.'&nbsp;';      return '&nbsp;'.$value.'&nbsp;';
 }  }
   
 sub outsheet_html  {  sub outsheet_html  {
     my ($sheet,$r) = @_;      my ($sheet,$r) = @_;
     my ($num_uneditable,$realm,$row_type);      my ($num_uneditable,$realm,$row_type);
       my $requester_is_student = ($ENV{'request.role'} =~ /^st\./);
     if ($sheet->{'sheettype'} eq 'assesscalc') {      if ($sheet->{'sheettype'} eq 'assesscalc') {
         $num_uneditable = 1;          $num_uneditable = 1;
         $realm = 'Assessment';          $realm = 'Assessment';
Line 1294  sub outsheet_html  { Line 1309  sub outsheet_html  {
     my $tabledata =<<"END";      my $tabledata =<<"END";
 <table border="2">  <table border="2">
 <tr>  <tr>
   <th colspan="1" rowspan="2"><font size="+2">$realm</font></th>    <th colspan="2" rowspan="2"><font size="+2">$realm</font></th>
   <td bgcolor="#FFDDDD" colspan="$num_uneditable">    <td bgcolor="#FFDDDD" colspan="$num_uneditable">
       <b><font size="+1">Import</font></b></td>        <b><font size="+1">Import</font></b></td>
   <td colspan="$num_left">    <td colspan="$num_left">
Line 1316  END Line 1331  END
     ####################################      ####################################
     # Print out template row      # Print out template row
     ####################################      ####################################
     my ($rowlabel,@rowdata) = &get_row($sheet,'-');      my ($num_cols_output,$row_html,$rowlabel,@rowdata);
     my $row_html = '<tr><td>'.&format_html_rowlabel($rowlabel).'</td>';      
     my $num_cols_output = 0;      if (! $requester_is_student) {
     foreach my $cell (@rowdata) {          ($rowlabel,@rowdata) = &get_row($sheet,'-');
         if ($num_cols_output++ < $num_uneditable) {          $row_html = '<tr><td>'.&format_html_rowlabel($sheet,$rowlabel).'</td>';
             $row_html .= '<td bgcolor="#FFDDDD">';          $num_cols_output = 0;
             $row_html .= &html_uneditable_cell($cell,'#FFDDDD');          foreach my $cell (@rowdata) {
         } else {              if ($requester_is_student || 
             $row_html .= '<td bgcolor="#EOFFDD">';                  $num_cols_output++ < $num_uneditable) {
             $row_html .= &html_editable_cell($cell,'#E0FFDD');                  $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 .= '</td>';          $row_html.= "</tr>\n";
           $r->print($row_html);
     }      }
     $row_html.= "</tr>\n";  
     $r->print($row_html);  
     ####################################      ####################################
     # Print out summary/export row      # Print out summary/export row
     ####################################      ####################################
     my ($rowlabel,@rowdata) = &get_row($sheet,'0');      ($rowlabel,@rowdata) = &get_row($sheet,'0');
     $row_html = '<tr><td>'.&format_html_rowlabel($rowlabel).'</td>';      $row_html = '<tr><td>'.&format_html_rowlabel($sheet,$rowlabel).'</td>';
     $num_cols_output = 0;      $num_cols_output = 0;
     foreach my $cell (@rowdata) {      foreach my $cell (@rowdata) {
         if ($num_cols_output++ < 26) {          if ($num_cols_output++ < 26 && ! $requester_is_student) {
             $row_html .= '<td bgcolor="#CCCCFF">';              $row_html .= '<td bgcolor="#CCCCFF">';
             $row_html .= &html_editable_cell($cell,'#CCCCFF');              $row_html .= &html_editable_cell($cell,'#CCCCFF');
         } else {          } else {
             $row_html .= '<td bgcolor="#DDCCFF">';              $row_html .= '<td bgcolor="#DDCCFF">';
             $row_html .= &html_uneditable_cell(undef,'#CCCCFF');              $row_html .= &html_uneditable_cell($cell,'#CCCCFF');
         }          }
         $row_html .= '</td>';          $row_html .= '</td>';
     }      }
Line 1381  END Line 1401  END
             '</font></b></td>';              '</font></b></td>';
         #          #
         if ($sheet->{'sheettype'} eq 'classcalc') {          if ($sheet->{'sheettype'} eq 'classcalc') {
             $row_html.='<td>'.&format_html_rowlabel($rowlabel).'</td>';              $row_html.='<td>'.&format_html_rowlabel($sheet,$rowlabel).'</td>';
             # Output links for each student?              # Output links for each student?
             # Nope, that is already done for us in format_html_rowlabel (for now)              # Nope, that is already done for us in format_html_rowlabel 
               # (for now)
         } elsif ($sheet->{'sheettype'} eq 'studentcalc') {          } elsif ($sheet->{'sheettype'} eq 'studentcalc') {
             $row_html.='<td>'.&format_html_rowlabel($rowlabel);              my $ufn = (split(/:/,$rowlabel))[5];
               $row_html.='<td>'.&format_html_rowlabel($sheet,$rowlabel);
             $row_html.= '<br>'.              $row_html.= '<br>'.
                 '<select name="sel_'.$rownum.'" '.                  '<select name="sel_'.$rownum.'" '.
                     'onChange="changesheet('.$rownum.')">'.                      'onChange="changesheet('.$rownum.')">'.
                         '<option name="default">Default</option>';                          '<option name="default">Default</option>';
   
             foreach (@{$sheet->{'othersheets'}}) {              foreach (@{$sheet->{'othersheets'}}) {
                 $row_html.='<option name="'.$_.'"';                  $row_html.='<option name="'.$_.'"';
                 #if ($ufn eq $_) {                  if ($ufn eq $_) {
                 #    $row_html.=' selected';                      $row_html.=' selected';
                 #}                  }
                 $row_html.='>'.$_.'</option>';                  $row_html.='>'.$_.'</option>';
             }              }
             $row_html.='</select></td>';              $row_html.='</select></td>';
         } elsif ($sheet->{'sheettype'} eq 'assesscalc') {          } elsif ($sheet->{'sheettype'} eq 'assesscalc') {
             $row_html.='<td>'.&format_html_rowlabel($rowlabel).'</td>';              $row_html.='<td>'.&format_html_rowlabel($sheet,$rowlabel).'</td>';
         }          }
         #          #
         my $shown_cells = 0;          my $shown_cells = 0;
Line 1417  END Line 1440  END
             $bgcolor='#FFDDDD' if ($shown_cells < $num_uneditable);              $bgcolor='#FFDDDD' if ($shown_cells < $num_uneditable);
             #              #
             $row_html.='<td bgcolor='.$bgcolor.'>';              $row_html.='<td bgcolor='.$bgcolor.'>';
             if ($shown_cells < $num_uneditable) {              if ($requester_is_student || $shown_cells < $num_uneditable) {
                 $row_html .= &html_uneditable_cell($cell,$bgcolor);                  $row_html .= &html_uneditable_cell($cell,$bgcolor);
             } else {              } else {
                 $row_html .= &html_editable_cell($cell,$bgcolor);                  $row_html .= &html_editable_cell($cell,$bgcolor);
Line 1469  sub outsheet_csv   { Line 1492  sub outsheet_csv   {
     foreach my $rownum (@Rows) {      foreach my $rownum (@Rows) {
         my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);          my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);
         next if ($rowlabel =~ /^\s*$/);          next if ($rowlabel =~ /^\s*$/);
         push (@Values,&format_csv_rowlabel($rowlabel));          push (@Values,&format_csv_rowlabel($sheet,$rowlabel));
         foreach my $cell (@rowdata) {          foreach my $cell (@rowdata) {
             push (@Values,'"'.$cell->{'value'}.'"');              push (@Values,'"'.$cell->{'value'}.'"');
         }          }
Line 1638  sub export_sheet_as_excel { Line 1661  sub export_sheet_as_excel {
     #   Write the summary/export row   #      #   Write the summary/export row   #
     ####################################      ####################################
     my ($rowlabel,@rowdata) = &get_row($sheet,'0');      my ($rowlabel,@rowdata) = &get_row($sheet,'0');
     my $label = &format_excel_rowlabel($rowlabel);      my $label = &format_excel_rowlabel($sheet,$rowlabel);
     $cols_output = 0;      $cols_output = 0;
     $worksheet->write($rows_output,$cols_output++,$label);      $worksheet->write($rows_output,$cols_output++,$label);
     foreach my $cell (@rowdata) {      foreach my $cell (@rowdata) {
Line 1655  sub export_sheet_as_excel { Line 1678  sub export_sheet_as_excel {
         my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);          my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);
         next if ($rowlabel =~ /^[\s]*$/);          next if ($rowlabel =~ /^[\s]*$/);
         $cols_output = 0;          $cols_output = 0;
         my $label = &format_excel_rowlabel($rowlabel);          my $label = &format_excel_rowlabel($sheet,$rowlabel);
         if ( ! $ENV{'form.showall'} &&          if ( ! $ENV{'form.showall'} &&
              $sheet->{'sheettype'} =~ /^(studentcalc|classcalc)$/) {               $sheet->{'sheettype'} =~ /^(studentcalc|classcalc)$/) {
             my $row_is_empty = 1;              my $row_is_empty = 1;
Line 1818  sub readsheet { Line 1841  sub readsheet {
             }              }
             %f=%{&parse_sheet(\$sheetxml)};              %f=%{&parse_sheet(\$sheetxml)};
         } else {          } else {
             my $sheet='';  
             my %tmphash = &Apache::lonnet::dump($fn,$cdom,$cnum);              my %tmphash = &Apache::lonnet::dump($fn,$cdom,$cnum);
             my ($tmp) = keys(%tmphash);              my ($tmp) = keys(%tmphash);
             unless ($tmp =~ /^(con_lost|error|no_such_host)/i) {              if ($tmp !~ /^(con_lost|error|no_such_host)/i) {
                 foreach (keys(%tmphash)) {                  foreach (keys(%tmphash)) {
                     $f{$_}=$tmphash{$_};                      $f{$_}=$tmphash{$_};
                 }                  }
               } else {
                   # Unable to grab the specified spreadsheet,
                   # so we get the default ones instead.
                   $fn = 'default_'.$stype;
                   $sheet->{'filename'} = $fn;
                   my $dfn = $fn;
                   $dfn =~ s/\_/\./g;
                   my $sheetxml;
                   if (my $fh=Apache::File->new($includedir.'/'.$dfn)) {
                       $sheetxml = join('',<$fh>);
                   } else {
                       $sheetxml='<field row="0" col="A">'.
                           '"Unable to load spreadsheet"</field>';
                   }
                   %f=%{&parse_sheet(\$sheetxml)};
             }              }
         }          }
         # Cache and set          # Cache and set
Line 1898  sub writesheet { Line 1935  sub writesheet {
                                           $cdom,$cnum);                                            $cdom,$cnum);
             if ($reply eq 'ok') {              if ($reply eq 'ok') {
                 if ($makedef) {                   if ($makedef) { 
                     return &Apache::lonnet::put('environment',                      $reply = &Apache::lonnet::put('environment',
                                   {'spreadsheet_default_'.$stype => $fn },                                      {'spreadsheet_default_'.$stype => $fn },
                                                 $cdom,$cnum);                                                    $cdom,$cnum);
                       if ($reply eq 'ok' && 
                           ($sheet->{'sheettype'} eq 'studentcalc' ||
                            $sheet->{'sheettype'} eq 'assesscalc')) {
                           # Expire the spreadsheets of the other students.
                           &Apache::lonnet::expirespread('','','studentcalc','');
                       }
                       return $reply;
                 }                   } 
                 return $reply;                  return $reply;
             }               } 
Line 1923  sub tmpwrite { Line 1967  sub tmpwrite {
     $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($sheet));          my %f = &getformulas($sheet);
           while( my ($cell,$formula) = each(%f)) {
               print $fh &Apache::lonnet::escape($cell)."=".&Apache::lonnet::escape($formula)."\n";
           }
     }      }
 }  }
   
Line 1939  sub tmpread { Line 1986  sub tmpread {
     my %fo=();      my %fo=();
     my $countrows=0;      my $countrows=0;
     if ($fh=Apache::File->new($fn)) {      if ($fh=Apache::File->new($fn)) {
         my $name;          while (<$fh>) {
         while ($name=<$fh>) {      chomp;
     chomp($name);              my ($cell,$formula) = split(/=/);
             my $value=<$fh>;              $cell    = &Apache::lonnet::unescape($cell);
             chomp($value);              $formula = &Apache::lonnet::unescape($formula);
             $fo{$name}=$value;              $fo{$cell} = $formula;
             if ($name=~/^A(\d+)$/) {          }
  if ($1>$countrows) {      }
     $countrows=$1;  #            chomp($value);
                 }  #            $fo{$name}=$value;
             }  #            if ($name=~/^A(\d+)$/) {
         }  # if ($1>$countrows) {
     }  #    $countrows=$1;
   #                }
   #            }
   #        }
   #    }
     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};
         }          }
     } elsif ($nfield eq 'insertrow') {  #    } elsif ($nfield eq 'insertrow') {
         $countrows++;  #        $countrows++;
         my $newrow=substr('000000'.$countrows,-7);  #        my $newrow=substr('000000'.$countrows,-7);
         if ($nform eq 'top') {  #        if ($nform eq 'top') {
     $fo{'A'.$countrows}='--- '.$newrow;  #    $fo{'A'.$countrows}='--- '.$newrow;
         } else {  #        } else {
             $fo{'A'.$countrows}='~~~ '.$newrow;  #            $fo{'A'.$countrows}='~~~ '.$newrow;
         }  #        }
     } else {      } else {
        if ($nfield) { $fo{$nfield}=$nform; }         if ($nfield) { $fo{$nfield}=$nform; }
     }      }
Line 2052  sub parmval { Line 2103  sub parmval {
 ##                  Row label formatting routines               ##  ##                  Row label formatting routines               ##
 ##################################################################  ##################################################################
 sub format_html_rowlabel {  sub format_html_rowlabel {
       my $sheet = shift;
     my $rowlabel = shift;      my $rowlabel = shift;
     return '' if ($rowlabel eq '');      return '' if ($rowlabel eq '');
     my ($type,$labeldata) = split(':',$rowlabel,2);      my ($type,$labeldata) = split(':',$rowlabel,2);
     my $result = '';      my $result = '';
     if ($type eq 'symb') {      if ($type eq 'symb') {
         my ($symb,$uname,$udom,$mapid,$resid,$title) = split(':',$labeldata);          my ($symb,$mapid,$resid,$title,$ufn) = split(':',$labeldata);
         $symb = &Apache::lonnet::unescape($symb);          $ufn   = 'default' if (!defined($ufn) || $ufn eq '');
           $ufn   = &Apache::lonnet::unescape($ufn);
           $symb  = &Apache::lonnet::unescape($symb);
           $title = &Apache::lonnet::unescape($title);
         $result = '<a href="/adm/assesscalc?usymb='.$symb.          $result = '<a href="/adm/assesscalc?usymb='.$symb.
             '&uname='.$uname.'&udom='.$udom.              '&uname='.$sheet->{'uname'}.'&udom='.$sheet->{'udom'}.
                 '&mapid='.$mapid.'&resid='.$resid.'">'.$title.'</a>';                  '&ufn='.$ufn.
                       '&mapid='.$mapid.'&resid='.$resid.'">'.$title.'</a>';
     } elsif ($type eq 'student') {      } elsif ($type eq 'student') {
         my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);          my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);
         if ($fullname =~ /^\s*$/) {          if ($fullname =~ /^\s*$/) {
Line 2079  sub format_html_rowlabel { Line 2135  sub format_html_rowlabel {
 }  }
   
 sub format_csv_rowlabel {  sub format_csv_rowlabel {
       my $sheet = shift;
     my $rowlabel = shift;      my $rowlabel = shift;
     return '' if ($rowlabel eq '');      return '' if ($rowlabel eq '');
     my ($type,$labeldata) = split(':',$rowlabel,2);      my ($type,$labeldata) = split(':',$rowlabel,2);
     my $result = '';      my $result = '';
     if ($type eq 'symb') {      if ($type eq 'symb') {
         my ($symb,$uname,$udom,$mapid,$resid,$title) = split(':',$labeldata);          my ($symb,$mapid,$resid,$title,$ufn) = split(':',$labeldata);
         $symb = &Apache::lonnet::unescape($symb);          $ufn   = &Apache::lonnet::unescape($ufn);
           $symb  = &Apache::lonnet::unescape($symb);
           $title = &Apache::lonnet::unescape($title);
         $result = $title;          $result = $title;
     } elsif ($type eq 'student') {      } elsif ($type eq 'student') {
         my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);          my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);
Line 2100  sub format_csv_rowlabel { Line 2159  sub format_csv_rowlabel {
 }  }
   
 sub format_excel_rowlabel {  sub format_excel_rowlabel {
       my $sheet = shift;
     my $rowlabel = shift;      my $rowlabel = shift;
     return '' if ($rowlabel eq '');      return '' if ($rowlabel eq '');
     my ($type,$labeldata) = split(':',$rowlabel,2);      my ($type,$labeldata) = split(':',$rowlabel,2);
     my $result = '';      my $result = '';
     if ($type eq 'symb') {      if ($type eq 'symb') {
         my ($symb,$uname,$udom,$mapid,$resid,$title) = split(':',$labeldata);          my ($symb,$mapid,$resid,$title,$ufn) = split(':',$labeldata);
         $symb = &Apache::lonnet::unescape($symb);          $ufn   = &Apache::lonnet::unescape($ufn);
           $symb  = &Apache::lonnet::unescape($symb);
           $title = &Apache::lonnet::unescape($title);
         $result = $title;          $result = $title;
     } elsif ($type eq 'student') {      } elsif ($type eq 'student') {
         my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);          my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);
Line 2214  sub get_student_rowlabels { Line 2276  sub get_student_rowlabels {
             return 'Could not access course data';              return 'Could not access course data';
         }          }
         #          #
         my %assesslist;          my %assesslist = ();
         foreach ('Feedback','Evaluation','Tutoring','Discussion') {          foreach ('Feedback','Evaluation','Tutoring','Discussion') {
             my $symb = '_'.lc($_);              my $symb = '_'.lc($_);
             $assesslist{$symb} = join(':',('symb',$symb,$uname,$udom,0,0,$_));              $assesslist{$symb} = join(':',('symb',$symb,0,0,
                                              &Apache::lonnet::escape($_)));
         }          }
         #          #
         while (my ($key,$srcf) = each(%course_db)) {          while (my ($key,$srcf) = each(%course_db)) {
Line 2229  sub get_student_rowlabels { Line 2292  sub get_student_rowlabels {
                 my $symb=                  my $symb=
                     &Apache::lonnet::declutter($course_db{'map_id_'.$mapid}).                      &Apache::lonnet::declutter($course_db{'map_id_'.$mapid}).
                         '___'.$resid.'___'.&Apache::lonnet::declutter($srcf);                          '___'.$resid.'___'.&Apache::lonnet::declutter($srcf);
                 $assesslist{$symb}='symb:'.&Apache::lonnet::escape($symb).':'                  $assesslist{$symb} ='symb:'.&Apache::lonnet::escape($symb).':'
                     .$uname.':'.$udom.':'.$mapid.':'.$resid.':'.                      .$mapid.':'.$resid.':'.
                         $course_db{'title_'.$id};                          &Apache::lonnet::escape($course_db{'title_'.$id});
             }              }
         }          }
         untie(%course_db);          untie(%course_db);
Line 2328  sub updatestudentassesssheet { Line 2391  sub updatestudentassesssheet {
         unless ((exists($sheet->{'rowlabel'}->{$usy}) &&           unless ((exists($sheet->{'rowlabel'}->{$usy}) && 
                  (defined($sheet->{'rowlabel'}->{$usy})) || (!$1) ||                   (defined($sheet->{'rowlabel'}->{$usy})) || (!$1) ||
                  ($formula =~ /^(~~~|---)/) )) {                   ($formula =~ /^(~~~|---)/) )) {
             $f{$_}='!!! Obsolete';              $f{$cell}='!!! Obsolete';
             $changed=1;              $changed=1;
         } elsif ($ufn) {  
             # I do not think this works any more  
             $sheet->{'rowlabel'}->{$usy}  
                 =~s/assesscalc\?usymb\=/assesscalc\?ufn\=$ufn&\usymb\=/;  
         }          }
     }      }
     # New and unknown keys      # New and unknown keys
Line 2358  sub loadstudent{ Line 2417  sub loadstudent{
     my %formulas=&getformulas($sheet);      my %formulas=&getformulas($sheet);
     $cachedassess=$sheet->{'uname'}.':'.$sheet->{'udom'};      $cachedassess=$sheet->{'uname'}.':'.$sheet->{'udom'};
     # Get ALL the student preformance data      # Get ALL the student preformance data
     my @tmp = &Apache::lonnet::dump($sheet->{'cid'},      my @tmp = &Apache::lonnet::dumpcurrent($sheet->{'cid'},
                                     $sheet->{'udom'},  #    my @tmp = &Apache::lonnet::dump($sheet->{'cid'},
                                     $sheet->{'uname'},                                             $sheet->{'udom'},
                                     undef);                                             $sheet->{'uname'},
     if ($tmp[0] !~ /^error:/) {                                             undef);
       if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) {
         %cachedstores = @tmp;          %cachedstores = @tmp;
   #        &Apache::lonnet::logthis("-------------------------------------");
   #        foreach (keys(%cachedstores)) {
   #            &Apache::lonnet::logthis("data for ".$_);
   #        }
   #        &Apache::lonnet::logthis("-------------------------------------");
     }      }
     undef @tmp;      undef @tmp;
     #       # 
Line 2492  sub loadassessment { Line 2557  sub loadassessment {
         #          #
         # get data out of the dumped stores          # get data out of the dumped stores
         #           # 
         my $version=$cachedstores{'version:'.$symb};  #        my $version=$cachedstores{'version:'.$symb};
         my $scope;  #        my $scope;
         for ($scope=1;$scope<=$version;$scope++) {  #        for ($scope=1;$scope<=$version;$scope++) {
             foreach (split(/\:/,$cachedstores{$scope.':keys:'.$symb})) {  #            foreach (split(/\:/,$cachedstores{$scope.':keys:'.$symb})) {
                 $returnhash{$_}=$cachedstores{$scope.':'.$symb.':'.$_};  #                $returnhash{$_}=$cachedstores{$scope.':'.$symb.':'.$_};
             }   #            } 
   #        }
           if (exists($cachedstores{$symb})) {
               %returnhash = %{$cachedstores{$symb}};
           } else {
   #            &Apache::lonnet::logthis("No data for ".$symb);
               %returnhash = ();
         }          }
     } else {      } else {
         #          #
         # restore individual          # restore individual
         #          #
         %returnhash = &Apache::lonnet::restore($symb,$namespace,$udom,$uname);          %returnhash = &Apache::lonnet::restore($symb,$namespace,$udom,$uname);
         for (my $version=1;$version<=$returnhash{'version'};$version++) {  
             foreach (split(/\:/,$returnhash{$version.':keys'})) {  
                 $returnhash{$_}=$returnhash{$version.':'.$_};  
             }   
         }  
     }      }
     #      #
     # returnhash now has all stores for this resource      # returnhash now has all stores for this resource
Line 2674  sub forcedrecalc { Line 2740  sub forcedrecalc {
             &checkthis($uname.':'.$udom.':assesscalc:'.$map,$time) ||              &checkthis($uname.':'.$udom.':assesscalc:'.$map,$time) ||
             &checkthis($uname.':'.$udom.':assesscalc:'.$usymb,$time)) {              &checkthis($uname.':'.$udom.':assesscalc:'.$usymb,$time)) {
             return 1;              return 1;
         }           }
     } else {      } else {
         if (&checkthis('::studentcalc:',$time) ||           if (&checkthis('::studentcalc:',$time) || 
             &checkthis($uname.':'.$udom.':studentcalc:',$time)) {              &checkthis($uname.':'.$udom.':studentcalc:',$time)) {
Line 2695  sub exportsheet { Line 2761  sub exportsheet {
     $udom  = $udom  || $sheet->{'udom'};      $udom  = $udom  || $sheet->{'udom'};
     $stype = $stype || $sheet->{'sheettype'};      $stype = $stype || $sheet->{'sheettype'};
     my @exportarr=();      my @exportarr=();
       # This handles the assessment sheets for '_feedback', etc
     if (defined($usymb) && ($usymb=~/^\_(\w+)/) &&       if (defined($usymb) && ($usymb=~/^\_(\w+)/) && 
         (!defined($fn) || $fn eq '')) {          (!defined($fn) || $fn eq '')) {
         $fn='default_'.$1;          $fn='default_'.$1;
Line 2855  sub cachedssheets { Line 2922  sub cachedssheets {
     $uname = $uname || $sheet->{'uname'};      $uname = $uname || $sheet->{'uname'};
     $udom  = $udom  || $sheet->{'udom'};      $udom  = $udom  || $sheet->{'udom'};
     if (! $loadedcaches{$uname.'_'.$udom}) {      if (! $loadedcaches{$uname.'_'.$udom}) {
         my @tmp = &Apache::lonnet::dump('nohist_calculatedsheets',          my @tmp = &Apache::lonnet::dump('nohist_calculatedsheets_'.
                                           $ENV{'request.course.id'},
                                         $sheet->{'udom'},                                          $sheet->{'udom'},
                                         $sheet->{'uname'});                                          $sheet->{'uname'});
         if ($tmp[0] !~ /^error/) {          if ($tmp[0] !~ /^error/) {
Line 2940  sub handler { Line 3008  sub handler {
         delete $ENV{'form.unewformula'} if (exists($ENV{'form.unewformula'}));          delete $ENV{'form.unewformula'} if (exists($ENV{'form.unewformula'}));
     }      }
     #      #
     # Clean up symb and spreadsheet filename      # Look for special assessment spreadsheets - '_feedback', etc.
     #      #
     if (($ENV{'form.usymb'}=~/^\_(\w+)/) && (!$ENV{'form.ufn'})) {      if (($ENV{'form.usymb'}=~/^\_(\w+)/) && (!$ENV{'form.ufn'} || 
                                                $ENV{'form.ufn'} eq '' || 
                                                $ENV{'form.ufn'} eq 'default')) {
         $ENV{'form.ufn'}='default_'.$1;          $ENV{'form.ufn'}='default_'.$1;
     }      }
       if (!$ENV{'form.ufn'} || $ENV{'form.ufn'} eq 'default') {
           $ENV{'form.ufn'}='course_default_'.$sheettype;
       }
     #      #
     # Interactive loading of specific sheet?      # Interactive loading of specific sheet?
     #      #
Line 2986  sub handler { Line 3059  sub handler {
   
     function celledit(cellname,cellformula) {      function celledit(cellname,cellformula) {
         var edit_text = '';          var edit_text = '';
           // cellformula may contain less-than and greater-than symbols, so
           // we need to escape them?  
         edit_text +='<html><head><title>Cell Edit Window</title></head><body>';          edit_text +='<html><head><title>Cell Edit Window</title></head><body>';
         edit_text += '<form name="editwinform">';          edit_text += '<form name="editwinform">';
         edit_text += '<center><h3>Cell '+cellname+'</h3>';          edit_text += '<center><h3>Cell '+cellname+'</h3>';
Line 3078  ENDSCRIPT Line 3153  ENDSCRIPT
     # 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'}) {
         $r->print('<h2>Modified Workcopy</h2>');          $r->print('<h2>Modified Workcopy</h2>');
         $ENV{'form.unewformula'}=~s/\'/\"/g;          #$ENV{'form.unewformula'}=~s/\'/\"/g;
         $r->print('<p>New formula: '.$ENV{'form.unewfield'}.'='.          $r->print('<p>Cell '.$ENV{'form.unewfield'}.' = <pre>');
                   $ENV{'form.unewformula'}.'<p>');          $r->print(&HTML::Entities::encode($ENV{'form.unewformula'}).
                     '</pre></p>');
         $sheet->{'filename'} = $ENV{'form.ufn'};          $sheet->{'filename'} = $ENV{'form.ufn'};
         &tmpread($sheet,$ENV{'form.unewfield'},$ENV{'form.unewformula'});          &tmpread($sheet,$ENV{'form.unewfield'},$ENV{'form.unewformula'});
     } elsif ($ENV{'form.saveas'}) {      } elsif ($ENV{'form.saveas'}) {
Line 3209  ENDSCRIPT Line 3285  ENDSCRIPT
     }      }
     $r->print('>');      $r->print('>');
     #      #
     # CSV format checkbox (classcalc sheets only)      # output format select box 
     $r->print(' Output as <select name="output" size="1" onClick="submit()">'.      $r->print(' Output as <select name="output" size="1" onChange="submit()">'.
               "\n");                "\n");
     foreach my $mode (qw/HTML CSV Excel/) {      foreach my $mode (qw/HTML CSV Excel/) {
         $r->print('<option value="'.$mode.'"');          $r->print('<option value="'.$mode.'"');
Line 3219  ENDSCRIPT Line 3295  ENDSCRIPT
         }           } 
         $r->print('>'.$mode.'</option>'."\n");          $r->print('>'.$mode.'</option>'."\n");
     }      }
     if ($sheet->{'sheettype'} eq 'classcalc') {  #
         $r->print('<option value="recursive excel"');  #    Mulit-sheet excel takes too long and does not work at all for large
         if ($ENV{'form.output'} eq 'recursive excel') {  #    classes.  Future inclusion of this option may be possible with the
             $r->print(' selected ');  #    Spreadsheet::WriteExcel::Big and speed improvements.
         }   #
         $r->print(">Multi-Sheet Excel</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");      $r->print("</select>\n");
     #      #
     if ($sheet->{'sheettype'} eq 'classcalc') {      if ($sheet->{'sheettype'} eq 'classcalc') {
Line 3251  ENDSCRIPT Line 3332  ENDSCRIPT
   
 1;  1;
 __END__  __END__
   
   
Removed from v.1.148  
changed lines
  Added in v.1.162

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