[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.22 and 1.25

version 1.22, 2005/03/10 17:33:57 version 1.25, 2006/04/06 16:43:49
Line 285  sub output_options { Line 285  sub output_options {
     my $self = shift();      my $self = shift();
     return  ({value       => 'htmlclasslist',      return  ({value       => 'htmlclasslist',
               description => 'Student Sheet Links'},                description => 'Student Sheet Links'},
                {value       => 'source',
                 description => 'Show Source'},
              {value       => 'html',               {value       => 'html',
               description => 'HTML'},                description => 'HTML'},
              {value       => 'excel',               {value       => 'excel',
Line 307  sub outsheet_htmlclasslist { Line 309  sub outsheet_htmlclasslist {
     #      #
     # Determine if we should output expire caches links...      # Determine if we should output expire caches links...
     my $show_expire_link = 0;      my $show_expire_link = 0;
     if (exists($ENV{'user.role.dc./'.$ENV{'request.role.domain'}.'/'})){      if (exists($env{'user.role.dc./'.$env{'request.role.domain'}.'/'})){
         $show_expire_link = 1;          $show_expire_link = 1;
     }      }
     #      #
Line 404  sub compute { Line 406  sub compute {
         if ($connection->aborted()) { $self->cleanup(); return; }          if ($connection->aborted()) { $self->cleanup(); return; }
         my $sname = $student->{'username'}.':'.$student->{'domain'};          my $sname = $student->{'username'}.':'.$student->{'domain'};
  my $studentsheet = Apache::studentcalc->new   my $studentsheet = Apache::studentcalc->new
     ($student->{'username'},$student->{'domain'},undef);      ($student->{'username'},$student->{'domain'},undef,undef,
        $student->{'section'} );
         if ($connection->aborted()) { $self->cleanup(); return; }          if ($connection->aborted()) { $self->cleanup(); return; }
  my @exportdata = $studentsheet->export_data($r);   my @exportdata = $studentsheet->export_data($r);
         if ($studentsheet->badcalc()) {          if ($studentsheet->badcalc()) {
Removed from v.1.22  
changed lines
  Added in v.1.25

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