--- loncom/interface/lonsupportreq.pm 2005/10/13 17:18:14 1.29 +++ loncom/interface/lonsupportreq.pm 2006/03/15 19:41:26 1.30 @@ -1,5 +1,5 @@ # -# $Id: lonsupportreq.pm,v 1.29 2005/10/13 17:18:14 raeburn Exp $ +# $Id: lonsupportreq.pm,v 1.30 2006/03/15 19:41:26 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -195,16 +195,18 @@ function initialize_codes() { } } } + my $html=&Apache::lonxml::xmlbegin(); + my $head = &Apache::loncommon::headtag('LON-CAPA support request'); + my $end_head = &Apache::loncommon::endheadtag(); $r->print(< - LON-CAPA support request +$head - +$end_head $bodytag ENDHEAD if ($r->uri eq '/adm/helpdesk') { @@ -595,6 +597,7 @@ END END } + $r->print(< @@ -631,9 +634,8 @@ END - - END + $r->print(&Apache::loncommon::end_page()); return; } @@ -696,11 +698,10 @@ Date/Time: $reporttime Date/Time: $reporttime
|; my $html=&Apache::lonxml::xmlbegin(); + my $head = &Apache::loncommon::head('LON-CAPA support request recorded'); $r->print(<<"END"); $html - - LON-CAPA support request recorded - +$head $bodytag
@@ -891,9 +892,8 @@ END - - "); + $r->print(&Apache::loncommon::end_page()); } sub print_header {