[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'}.