[LON-CAPA-cvs] cvs: loncom /homework lonhomework.pm

www lon-capa-cvs@mail.lon-capa.org
Mon, 22 Dec 2003 22:15:27 -0000


www		Mon Dec 22 17:15:27 2003 EDT

  Modified files:              
    /loncom/homework	lonhomework.pm 
  Log:
  Get style set for "New Problem" page
  
  
Index: loncom/homework/lonhomework.pm
diff -u loncom/homework/lonhomework.pm:1.158 loncom/homework/lonhomework.pm:1.159
--- loncom/homework/lonhomework.pm:1.158	Mon Dec  8 15:33:30 2003
+++ loncom/homework/lonhomework.pm	Mon Dec 22 17:15:27 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.158 2003/12/08 20:33:30 albertel Exp $
+# $Id: lonhomework.pm,v 1.159 2003/12/22 22:15:27 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -24,11 +24,7 @@
 # /home/httpd/html/adm/gpl.txt
 #
 # http://www.lon-capa.org/
-#
-# Guy Albertelli
-# 11/30 Gerd Kortemeyer
-# 6/1,8/17,8/18 Gerd Kortemeyer
-# 7/18 Jeremy Bowers
+
 
 package Apache::lonhomework;
 use strict;
@@ -652,6 +648,7 @@
 	    $errormsg='<p><font color="red">'.&mt('You did not select a template.').'</font></p>'."\n";
 	}
 	my $instructions;
+	my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1);
 	if ($templatelist) { $instructions=&mt(", select a template from the pull-down menu below.").'<br />'.&mt("Then");}
 	my %lt=&Apache::lonlocal::texthash( 'create' => 'Creating a new',
 			  'resource' => 'resource',
@@ -662,7 +659,7 @@
 			  'Create' => 'Create',
 			  'button' => 'button');
 	$request->print(<<ENDNEWPROBLEM);
-<body bgcolor="#FFFFFF">
+$bodytag
 <h1>$lt{'create'} $extension $lt{'resource'}</h1>
 $errormsg
 $lt{'requested'} <tt>$shownurl</tt> $lt{'not exist'}.