[LON-CAPA-cvs] cvs: rat / lonpage.pm

[www]

www		Tue Mar 19 10:09:17 2002 EDT

  Modified files:              
    /rat	lonpage.pm 
  Log:
  Trying to implement individual eval button - cannot test here.
  
  
Index: rat/lonpage.pm
diff -u rat/lonpage.pm:1.32 rat/lonpage.pm:1.33
--- rat/lonpage.pm:1.32	Wed Mar  6 10:00:55 2002
+++ rat/lonpage.pm	Tue Mar 19 10:09:17 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Page Handler
 #
-# $Id: lonpage.pm,v 1.32 2002/03/06 15:00:55 matthew Exp $
+# $Id: lonpage.pm,v 1.33 2002/03/19 15:09:17 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -34,6 +34,8 @@
 # YEAR=2001
 # 08/13/01,08/30,10/1 Gerd Kortemeyer
 # 12/16 Scott Harrison
+# YEAR=2002
+# 03/19 Gerd Kortemeyer
 #
 ###
 
@@ -373,7 +375,10 @@
                               my $metainfo='<a href="'.
                                     $metalink{$rid}.'" target="LONcatInfo">'.
                           '<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 (
  ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&
  (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) {