Diff for /rat/lonpage.pm between versions 1.92 and 1.93

version 1.92, 2009/10/26 10:17:58 version 1.93, 2010/03/16 19:56:02
Line 538  sub handler { Line 538  sub handler {
 sub get_buttons {  sub get_buttons {
     my ($hash,$rid) = @_;      my ($hash,$rid) = @_;
   
     # which icons do we use?  
     my $extension='png';  
     if ($env{'environment.icons'} eq 'classic') { $extension='gif'; }  
   
     my $metainfo = '';      my $metainfo = '';
     my $esrc=&Apache::lonnet::declutter($hash->{'src_'.$rid});      my $esrc=&Apache::lonnet::declutter($hash->{'src_'.$rid});
     my ($mapid,$resid)=split(/\./,$rid);      my ($mapid,$resid)=split(/\./,$rid);
Line 558  sub get_buttons { Line 554  sub get_buttons {
     || !$hash->{'encrypted_'.$rid})) {       || !$hash->{'encrypted_'.$rid})) { 
  $metainfo .='<a name="'.&escape($symb).'" />'.   $metainfo .='<a name="'.&escape($symb).'" />'.
     '<a href="'.$hash->{'src_'.$rid}.'.meta'.'" target="LONcatInfo">'.      '<a href="'.$hash->{'src_'.$rid}.'.meta'.'" target="LONcatInfo">'.
     '<img src="/adm/lonMisc/cat_button.'.$extension.'" class="LC_icon" />'.      '<img src="/adm/lonMisc/cat_button.png" class="LC_icon" />'.
     '</a>';      '</a>';
     }      }
     $metainfo .= '<a href="/adm/evaluate?postdata='.      $metainfo .= '<a href="/adm/evaluate?postdata='.
  &escape($esrc).   &escape($esrc).
  '" target="LONcatInfo">'.   '" target="LONcatInfo">'.
  '<img src="/adm/lonMisc/eval_button.'.$extension.'" class="LC_icon" />'.   '<img src="/adm/lonMisc/eval_button.png" class="LC_icon" />'.
  '</a>';   '</a>';
     if (($hash->{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&      if (($hash->{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&
  ($hash->{'src_'.$rid} !~ m-^/uploaded/-)) {   ($hash->{'src_'.$rid} !~ m-^/uploaded/-)) {
Line 574  sub get_buttons { Line 570  sub get_buttons {
  '<a href="/adm/grades?symb='.&escape($symb).   '<a href="/adm/grades?symb='.&escape($symb).
 #               '&command=submission" target="LONcatInfo">'.  #               '&command=submission" target="LONcatInfo">'.
  '&command=submission">'.   '&command=submission">'.
  '<img src="/adm/lonMisc/subm_button.'.$extension.'" class="LC_icon" />'.   '<img src="/adm/lonMisc/subm_button.png" class="LC_icon" />'.
  '</a>'.   '</a>'.
  '<a href="/adm/grades?symb='.&escape($symb).   '<a href="/adm/grades?symb='.&escape($symb).
 #               '&command=gradingmenu" target="LONcatInfo">'.  #               '&command=gradingmenu" target="LONcatInfo">'.
  '&command=gradingmenu">'.   '&command=gradingmenu">'.
  '<img src="/adm/lonMisc/pgrd_button.'.$extension.'" class="LC_icon" />'.   '<img src="/adm/lonMisc/pgrd_button.png" class="LC_icon" />'.
  '</a>';   '</a>';
  }   }
  if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {   if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
Line 587  sub get_buttons { Line 583  sub get_buttons {
  '<a href="/adm/parmset?symb='.&escape($symb).   '<a href="/adm/parmset?symb='.&escape($symb).
 #               '" target="LONcatInfo">'.  #               '" target="LONcatInfo">'.
  '" >'.   '" >'.
  '<img src="/adm/lonMisc/pprm_button.'.$extension.'" class="LC_icon" />'.   '<img src="/adm/lonMisc/pprm_button.png" class="LC_icon" />'.
  '</a>';   '</a>';
  }   }
     }      }

Removed from v.1.92  
changed lines
  Added in v.1.93


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