Diff for /rat/lonpage.pm between versions 1.32 and 1.33

version 1.32, 2002/03/06 15:00:55 version 1.33, 2002/03/19 15:09:17
Line 34 Line 34
 # YEAR=2001  # YEAR=2001
 # 08/13/01,08/30,10/1 Gerd Kortemeyer  # 08/13/01,08/30,10/1 Gerd Kortemeyer
 # 12/16 Scott Harrison  # 12/16 Scott Harrison
   # YEAR=2002
   # 03/19 Gerd Kortemeyer
 #  #
 ###  ###
   
Line 373  sub handler { Line 375  sub handler {
                               my $metainfo='<a href="'.                                my $metainfo='<a href="'.
                                     $metalink{$rid}.'" target="LONcatInfo">'.                                      $metalink{$rid}.'" target="LONcatInfo">'.
                           '<img src="/adm/lonMisc/cat_button.gif" border=0>'.                            '<img src="/adm/lonMisc/cat_button.gif" border=0>'.
   '</img></a>';    '</img></a><a href="/adm/evaluate?feedurl='.
         &Apache::lonnet::declutter($hash{'src_'.$rid}).'" target="LONcatInfo">'.
                             '<img src="/adm/lonMisc/eval_button.gif" border=0>'.
                             '</img></a>';
                               if (                                if (
  ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&   ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&
  (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) {   (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) {

Removed from v.1.32  
changed lines
  Added in v.1.33


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