[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.24 and 1.27

version 1.24, 2003/11/17 19:55:41 version 1.27, 2004/12/08 00:56:00
Line 111  sub get_title { Line 111  sub get_title {
     my @title = ();      my @title = ();
     #      #
     # Determine the students name      # Determine the students name
     my %userenv = &Apache::loncoursedata::GetUserName($self->{'name'},      my $name = &Apache::loncommon::plainname($self->{'name'},
                                                       $self->{'domain'});       $self->{'domain'});
     my $name = join(' ',  
                  @userenv{'firstname','middlename','lastname','generation'});  
     $name =~ s/\s+$//;  
   
     push (@title,$name);      push (@title,$name);
     push (@title,$self->{'coursedesc'});      push (@title,$self->{'coursedesc'});
     push (@title,&Apache::lonlocal::locallocaltime(time));      push (@title,&Apache::lonlocal::locallocaltime(time));
Line 147  sub parent_link { Line 143  sub parent_link {
 sub convenience_links {  sub convenience_links {
     my $self = shift;      my $self = shift;
     my ($resource) = @_;      my ($resource) = @_;
     my $symb = &Apache::lonnet::escape($resource->{'symb'});      my $result=&Apache::loncommon::submlink('<img src="/adm/lonMisc/subm_button.gif" border="0" />',$self->{'name'},$self->{'domain'},$resource->{'symb'},'LONcatInfo');
     my $result = <<"END";      $result .= &Apache::loncommon::pgrdlink('<img src="/adm/lonMisc/pgrd_button.gif" border="0" />',$self->{'name'},$self->{'domain'},$resource->{'symb'},'LONcatInfo');
 <a href="/adm/grades?symb=$symb&command=submission" target="LONcatInfo">      $result .= &Apache::loncommon::pprmlink('<img src="/adm/lonMisc/pprm_button.gif" border="0" />',$self->{'name'},$self->{'domain'},$resource->{'symb'},'LONcatInfo');
     <img src="/adm/lonMisc/subm_button.gif" border=0 />  
     </a>  
 <a href="/adm/grades?symb=$symb&command=gradingmenu" target="LONcatInfo">  
     <img src="/adm/lonMisc/pgrd_button.gif" border=0 />  
     </a>  
 <a href="/adm/parmset?symb=$symb" target="LONcatInfo">  
     <img src="/adm/lonMisc/pprm_button.gif" border=0 />  
     </a>  
 END  
     return $result;      return $result;
 }  }
   
Line 363  sub csv_rows { Line 350  sub csv_rows {
     # writes the meat of the spreadsheet to an excel worksheet.  Called      # writes the meat of the spreadsheet to an excel worksheet.  Called
     # by Spreadsheet::outsheet_excel;      # by Spreadsheet::outsheet_excel;
     my $self = shift;      my $self = shift;
     my ($filehandle) = @_;      my ($connection,$filehandle) = @_;
     #      #
     # Write a header row      # Write a header row
     $self->csv_output_row($filehandle,undef,      $self->csv_output_row($filehandle,undef,
Line 389  sub excel_rows { Line 376  sub excel_rows {
     # writes the meat of the spreadsheet to an excel worksheet.  Called      # writes the meat of the spreadsheet to an excel worksheet.  Called
     # by Spreadsheet::outsheet_excel;      # by Spreadsheet::outsheet_excel;
     my $self = shift;      my $self = shift;
     my ($worksheet,$cols_output,$rows_output) = @_;      my ($connection,$worksheet,$cols_output,$rows_output) = @_;
     #      #
     # Write a header row      # Write a header row
     $cols_output = 0;      $cols_output = 0;
Removed from v.1.24  
changed lines
  Added in v.1.27

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