--- loncom/interface/lonsupportreq.pm	2006/03/23 22:01:57	1.31
+++ loncom/interface/lonsupportreq.pm	2006/03/23 22:32:11	1.32
@@ -1,5 +1,5 @@
 #
-# $Id: lonsupportreq.pm,v 1.31 2006/03/23 22:01:57 albertel Exp $
+# $Id: lonsupportreq.pm,v 1.32 2006/03/23 22:32:11 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -643,7 +643,6 @@ sub print_request_receipt {
     my @loncvars = ('user.name','user.domain','request.course.sec','request.course.id');
     my @cookievars = ('lonID');
 
-    my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0" marginheight="0"',1);
     my $admin = $Apache::lonnet::perlvar{'lonAdminMail'};
     my $to =  $Apache::lonnet::perlvar{'lonSupportEMail'};
     my $from = $admin;
@@ -694,12 +693,16 @@ Date/Time: $reporttime
 <font color="$fontcolor">URL: </font><font color="$vlinkcolor">$env{'form.sourceurl'}</font><br />
 <font color="$fontcolor">Date/Time: </font><font color="$vlinkcolor">$reporttime</font><br />
     |;
-    my $html=&Apache::lonxml::xmlbegin();
-    my $head = &Apache::loncommon::head('LON-CAPA support request recorded');
+
+    my $start_page = 
+	&Apache::loncommon::start_page('Support request recorded',undef,
+				       {'function'   => $function,
+					'addentries' => 
+					    'topmargin="0" marginheight="0"',
+					'only_body' => 1,});
+
     $r->print(<<"END");
-$html
-$head
-$bodytag
+$start_page
 <form name="logproblem">
 <input type="hidden" name="action" value="result" />
 </form>