loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

-version 1.8, 2003/05/23 19:36:04
+version 1.9, 2003/05/23 21:03:29
  Line 446  sub assess_html_row {
      return $row_html;
  }
- sub outsheet_csv {
+ sub csv_rows {
+     # writes the meat of the spreadsheet to an excel worksheet.  Called
+     # by Spreadsheet::outsheet_excel;
      my $self = shift;
-     my ($r) = @_;
+     my ($filehandle) = @_;
-     $r->print('<h1>csv output is not supported yet</h1>');
+     #
+     # Write a header row
+     $self->csv_output_row($filehandle,undef,
+                           ('Parameter','Description','Value'));
+     #
+     # Write each row
+     foreach my $rownum (sort {$a <=> $b} ($self->rows())) {
+         my $parameter_name = $self->{'formulas'}->{'A'.$rownum};
+         my $description = '';
+         if (exists($nice_parameter_name{$parameter_name})) {
+             $description = $nice_parameter_name{$parameter_name};
+         }
+         $self->csv_output_row($filehandle,$rownum,
+                               $parameter_name,$description);
+     }
+     return;
  }
  sub excel_rows {