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

Diff for /loncom/interface/spreadsheet/studentcalc.pm between versions 1.5 and 1.6

version 1.5, 2003/05/23 14:52:51 version 1.6, 2003/05/23 19:36:04
Line 91  sub clear_package { Line 91  sub clear_package {
   
 sub get_title {  sub get_title {
     my $self = shift;      my $self = shift;
     my $title = '';      my @title = ();
       #
       # Determine the students name
     my %userenv = &Apache::loncoursedata::GetUserName($self->{'name'},      my %userenv = &Apache::loncoursedata::GetUserName($self->{'name'},
                                                       $self->{'domain'});                                                        $self->{'domain'});
     &Apache::lonnet::logthis('userenv = '.join(' ',%userenv));      my $name = join(' ',
     my $name =                    @userenv{'firstname','middlename','lastname','generation'});
         join(' ',@userenv{'firstname','middlename','lastname','generation'});  
     $name =~ s/\s+$//;      $name =~ s/\s+$//;
     $title .= '<h1>'.$name;  
       push (@title,$name);
       push (@title,$self->{'coursedesc'});
       push (@title,scalar(localtime(time)));
       return @title;
   }
   
   sub get_html_title {
       my $self = shift;
       my ($name,$desc,$time) = $self->get_title();
       my $title = '<h1>'.$name;
     if ($ENV{'user.name'} ne $self->{'name'} &&       if ($ENV{'user.name'} ne $self->{'name'} && 
         $ENV{'user.domain'} ne $self->{'domain'}) {          $ENV{'user.domain'} ne $self->{'domain'}) {
         $title .= &Apache::loncommon::aboutmewrapper          $title .= &Apache::loncommon::aboutmewrapper
Line 106  sub get_title { Line 117  sub get_title {
                                      $self->{'name'},$self->{'domain'});                                       $self->{'name'},$self->{'domain'});
     }      }
     $title .= "</h1>\n";      $title .= "</h1>\n";
     $title .= '<h2>'.$self->{'coursedesc'}."</h2>\n";      $title .= '<h2>'.$desc."</h2>\n";
     $title .= '<h3>'.localtime(time).'</h3>';      $title .= '<h3>'.$time.'</h3>';
     return $title;      return $title;
 }  }
   
Line 304  sub modify_cell { Line 315  sub modify_cell {
 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 ('Container','Assessment title') {
           $worksheet->write($rows_output,$cols_output++,$value);
       }
       $rows_output++;    
       #
       # Write each assessments row
       if (scalar(@Sequences)< 1) {
           &initialize_sequence_cache();
       }
       foreach my $Sequence (@Sequences) {
    next if ($Sequence->{'num_assess'} < 1);
    foreach my $resource (@{$Sequence->{'contents'}}) {
       my $rownum = $self->get_row_number_from_key($resource->{'symb'});
               my @assessdata = ($Sequence->{'title'},
                                 $resource->{'title'});
               $self->excel_output_row($worksheet,$rownum,$rows_output++,
                                       @assessdata);
           }
       }
       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();  
     $self->outsheet_html($r);  
     return;  
 }  
   
 sub set_row_sources {  sub set_row_sources {
     my $self = shift;      my $self = shift;
     while (my ($cell,$value) = each(%{$self->{'formulas'}})) {      while (my ($cell,$value) = each(%{$self->{'formulas'}})) {
Removed from v.1.5  
changed lines
  Added in v.1.6

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