Diff for /rat/lonpage.pm between versions 1.94 and 1.94.2.1

version 1.94, 2010/07/13 00:16:23 version 1.94.2.1, 2010/07/30 22:40:53
Line 553  sub handler { Line 553  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 569  sub get_buttons { Line 573  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.png" class="LC_icon" />'.      '<img src="/adm/lonMisc/cat_button.'.$extension.'" 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.png" class="LC_icon" />'.   '<img src="/adm/lonMisc/eval_button.'.$extension.'" 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 585  sub get_buttons { Line 589  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.png" class="LC_icon" />'.   '<img src="/adm/lonMisc/subm_button.'.$extension.'" 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.png" class="LC_icon" />'.   '<img src="/adm/lonMisc/pgrd_button.'.$extension.'" class="LC_icon" />'.
  '</a>';   '</a>';
  }   }
  if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {   if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
Line 598  sub get_buttons { Line 602  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.png" class="LC_icon" />'.   '<img src="/adm/lonMisc/pprm_button.'.$extension.'" class="LC_icon" />'.
  '</a>';   '</a>';
  }   }
     }      }

Removed from v.1.94  
changed lines
  Added in v.1.94.2.1


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