[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.18 and 1.21

version 1.18, 2003/09/05 01:57:54 version 1.21, 2003/09/16 15:39:36
Line 129  sub get_html_title { Line 129  sub get_html_title {
     my $title = '<h1>'.$name;      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
                                     ($self->{'name'}.'@'.$self->{'domain'},                                      ($self->{'name'}.'@'.$self->{'domain'},
                                      $self->{'name'},$self->{'domain'});                                       $self->{'name'},$self->{'domain'});
     }      }
Line 141  sub get_html_title { Line 141  sub get_html_title {
   
 sub parent_link {  sub parent_link {
     my $self = shift;      my $self = shift;
     my $link .= '<p><a href="/adm/classcalc?'.      return '<p><a href="/adm/classcalc">Course level sheet</a></p>'."\n";
         'sname='.$self->{'name'}.  
             '&sdomain='.$self->{'domain'}.'">'.  
                 'Course level sheet</a></p>'."\n";  
     return $link;  
 }  }
   
 sub convenience_links {  sub convenience_links {
Line 589  Writes the export data for this student Line 585  Writes the export data for this student
 #############################################  #############################################
 sub save_export_data {  sub save_export_data {
     my $self = shift;      my $self = shift;
       &Apache::assesscalc::save_cached_export_rows($self->{'name'},
                                                    $self->{'domain'});
     return if ($self->temporary());      return if ($self->temporary());
     my $student = $self->{'name'}.':'.$self->{'domain'};      my $student = $self->{'name'}.':'.$self->{'domain'};
     return if (! exists($Exportrows{$student}));      return if (! exists($Exportrows{$student}));
Removed from v.1.18  
changed lines
  Added in v.1.21

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