--- loncom/interface/lonsupportreq.pm	2006/03/15 19:41:26	1.30
+++ loncom/interface/lonsupportreq.pm	2006/03/23 22:01:57	1.31
@@ -1,5 +1,5 @@
 #
-# $Id: lonsupportreq.pm,v 1.30 2006/03/15 19:41:26 albertel Exp $
+# $Id: lonsupportreq.pm,v 1.31 2006/03/23 22:01:57 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -63,7 +63,6 @@ sub handler {
 sub print_request_form {
     my ($r,$origurl,$function) = @_;
     my ($os,$browser,$bversion,$uhost,$uname,$udom,$uhome,$urole,$usec,$email,$cid,$cdom,$cnum,$ctitle,$ccode,$sectionlist,$lastname,$firstname,$server,$formname);
-    my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0" marginheight="0" onLoad="initialize_codes()"',1);
     my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg');
     if (($tablecolor eq '') || ($tablecolor eq '#FFFFFF')) {
         $tablecolor = '#EEEE99';
@@ -98,7 +97,7 @@ function validmail(field) {
     var str = field.value;
     if (window.RegExp) {
         var reg1str = "(@.*@)|(\\.\\.)|(@\\.)|(\\.@)|(^\\.)";
-        var reg2str = "^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}|[0-9]{1,3})(\\]?)$";
+        var reg2str = "^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}|[0-9]{1,3})(\\]?)$"; //"
         var reg1 = new RegExp(reg1str);
         var reg2 = new RegExp(reg2str);
         if (!reg1.test(str) && reg2.test(str)) {
@@ -115,7 +114,7 @@ function validmail(field) {
     }
 }
 END
-    #" stupid emacs
+
     if ($cid =~ m/_/) {
         ($cdom,$cnum) = split/_/,$cid;
     }
@@ -196,19 +195,17 @@ 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(<<ENDHEAD);
-$html
-$head
-<script type"text/javascript">
-$scripttag
-$jscript
-</script>
-$end_head
-$bodytag
-ENDHEAD
+    my $js = '<script type"text/javascript">'."\n$scripttag\n$jscript\n".
+	'</script>';
+    my $add_entries =
+	'topmargin="0" marginheight="0" onLoad="initialize_codes()"',
+    my $start_page =
+	&Apache::loncommon::start_page('Support Request',$js,
+				       { 'function'    => $function,
+					 'add_entries' => $add_entries,
+					 'only_body'   => 1,});
+    $r->print($start_page);
+
     if ($r->uri eq '/adm/helpdesk') {
         &print_header($r,$origurl);
     }