loncom/interface/spreadsheet/studentcalc.pm - diff

Return to studentcalc.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

-version 1.26, 2004/11/02 20:48:02
+version 1.27, 2004/12/08 00:56:00
  Line 143  sub parent_link {
  sub convenience_links {
      my $self = shift;
      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;
  }