--- loncom/interface/lonevaluate.pm	2002/08/09 19:49:30	1.9
+++ loncom/interface/lonevaluate.pm	2002/08/26 12:47:28	1.10
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Evaluate
 #
-# $Id: lonevaluate.pm,v 1.9 2002/08/09 19:49:30 albertel Exp $
+# $Id: lonevaluate.pm,v 1.10 2002/08/26 12:47:28 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -40,6 +40,7 @@ package Apache::lonevaluate;
 use strict;
 use Apache::lonnet;
 use Apache::Constants qw(:common);
+use Apache::loncommon;
 
 sub handler {
     my $r = shift;
@@ -75,6 +76,8 @@ sub handler {
 
     my $warning='';
 
+    my $bodytag=&Apache::loncommon::bodytag('Evaluate Resource');
+
     if ($ENV{'form.submiteval'} eq 'true') {
 # ------------------------------------------------ User is submitting something
         my $complete=1;
@@ -99,7 +102,7 @@ sub handler {
 </script>
 <meta http-equiv="pragma" content="no-cache"></meta>
 </head>
-<body bgcolor="#FFFFFF">
+$bodytag
 <h1>Thank you for your input!</h1>
 ENDHEADER
        $r->print('Storing feedback: '.
@@ -147,8 +150,7 @@ ENDOPTIONS
 <head>
 <title>The LearningOnline Network with CAPA</title>
 </head>
-<body bgcolor="#FFFFFF">
-<h1>Evaluate Resource</h1>
+$bodytag
 <tt>$feedurl</tt><p>
 <h3><font color="red">$warning</font></h3>
 Please rank the following criteria:
