[BACK]Return to classcalc.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / spreadsheet

Diff for /loncom/interface/spreadsheet/classcalc.pm between versions 1.2 and 1.3

version 1.2, 2003/05/19 14:30:31 version 1.3, 2003/05/23 19:36:04
Line 58  use Time::HiRes; Line 58  use Time::HiRes;
   
 @Apache::classcalc::ISA = ('Apache::Spreadsheet');  @Apache::classcalc::ISA = ('Apache::Spreadsheet');
   
   sub html_header {
       my $self = shift;
       my ($toprow,$bottomrow);
       foreach (['Sections','Section selector goes here'],
                ['Enrollment Status',&Apache::lonhtmlcommon::StatusOptions(undef,undef,3)],
                ['Output Format',&Apache::Spreadsheet::output_selector()]) {
           my ($name,$selector) = @{$_};
           $toprow .= '<th align="center"><b>'.$name.'</b></th>';
           $bottomrow .= '<td>'.$selector.'</td>';
       }
       return "<p>\n<table>\n".
           "<tr>".$toprow."</tr>\n".
           "<tr>".$bottomrow."</tr>\n".
           "</table>\n</p>";
   }
   
 sub get_classlist {  sub get_classlist {
     my $self = shift;      my $self = shift;
     # Retrieve the classlist      # Retrieve the classlist
Line 80  sub get_classlist { Line 96  sub get_classlist {
   
 sub get_title {  sub get_title {
     my $self = shift;      my $self = shift;
     my $title = '<h1>'.$self->{'coursedesc'}."</h1>\n";  
     # Section info should be included      # Section info should be included
       my @title = ($self->{'coursedesc'}, scalar(localtime(time)) );
       return @title;
   }
   
   sub get_html_title {
       my $self = shift;
       my ($classcalc_title,$time) = $self->get_title();
       my $title = '<h1>'.$classcalc_title."</h1>\n".'<h3>'.$time."</h3>\n";
     return $title;      return $title;
 }  }
   
Line 172  END Line 195  END
 sub outsheet_csv {  sub outsheet_csv {
     my $self = shift;      my $self = shift;
     my ($r) = @_;      my ($r) = @_;
       $r->print('<h1>csv output is not supported yet</h1>');
 }  }
   
 sub outsheet_excel {  
   sub excel_rows {
       # writes the meat of the spreadsheet to an excel worksheet.  Called
       # by Spreadsheet::outsheet_excel;
     my $self = shift;      my $self = shift;
     my ($r) = @_;      my ($worksheet,$cols_output,$rows_output) = @_;
       #
       # Write a header row
       $cols_output = 0;
       foreach my $value ('fullname','username','domain','section','status') {
           $worksheet->write($rows_output,$cols_output++,$value);
       }
       $rows_output++;    
       #
       # Write each students row
       foreach my $student ($self->get_classlist()) {
           $cols_output = 0;
    my $rownum = $self->get_row_number_from_key
       ($student->{'username'}.':'.$student->{'domain'});
           $student->{'section'} = 'none' if ($student->{'section'} eq '-1');
           my @studentdata = ($student->{'fullname'},
                              $student->{'username'},
                              $student->{'domain'},
                              $student->{'section'},
                              $student->{'status'});
           $self->excel_output_row($worksheet,$rownum,$rows_output++,
                                   @studentdata);
       }
       return;
 }  }
   
   
 sub outsheet_recursive_excel {  sub outsheet_recursive_excel {
     my $self = shift;      my $self = shift;
     my ($r) = @_;      my ($r) = @_;
 }   } 
   
 sub display {  
     my $self = shift;  
     my ($r) = @_;  
     $self->compute($r);  
     # display as html/csv/excel/etc....  
     $self->outsheet_html($r);  
     return;  
 }  
   
 sub compute {  sub compute {
     my $self = shift;      my $self = shift;
     my ($r) = @_;      my ($r) = @_;
Removed from v.1.2  
changed lines
  Added in v.1.3

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