--- loncom/interface/lonhelp.pm	2006/03/18 13:22:07	1.23
+++ loncom/interface/lonhelp.pm	2006/03/19 23:09:20	1.24
@@ -53,16 +53,15 @@ sub processLabelName {
 # Serve out the text
 sub servetext {
     my ($r,$text) = @_;
-    my $html=&Apache::lonxml::xmlbegin();
-    my $htmlend=&Apache::lonxml::xmlend();
     my $bugs=&Apache::loncommon::help_open_bug('Documentation');
+    my $start_page=
+	&Apache::loncommon::start_page('LON-CAPA Help',undef,
+				       {'only_body' => 1,});
+    my $end_page=
+	&Apache::loncommon::end_page();
     my $header=&mt('LON-CAPA Help');
     $r->print(<<HEADER);
-$html
-    <head>
-        <title>LON-CAPA Help</title>
-    </head>
-    <body bgcolor="#FFFFFF">
+    $start_page
     <h3 style="font: sans-serif"><img align="right"
     src="/adm/help/gif/lonhelpheader.gif"/>$header<hr />$bugs</h3>
     <!-- BEGIN -->
@@ -73,21 +72,20 @@ HEADER
     if (&Apache::lonnavmaps::advancedUser()) {
 	my $search=&mt('Search LON-CAPA help');
 	my $about=&mt('About LON-CAPA help and More Help');
+
 	$r->print(<<FOOTER);
-    <!-- END -->
     <hr /><form method="post">
 $search: <input type="text" name="searchterm" size="40" /><br />
 <a href="/adm/help/abouthelp.html">$about</a>
-    </body>
-$htmlend
 FOOTER
-   } else {
-       $r->print(<<ENDBODY);
+ 
+    }
+
+    $r->print(<<ENDBODY);
     <!-- END -->
-    </body>
-$htmlend
+    $end_page
 ENDBODY
-   }
+
 }
 
 # Render takes a tex fragment, transforms it for TtH, and returns the
