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

version 1.25, 2003/12/08 19:58:39 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;
 }  }
   
Removed from v.1.25  
changed lines
  Added in v.1.27

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