--- loncom/interface/lonsupportreq.pm 2004/07/03 18:49:42 1.1 +++ loncom/interface/lonsupportreq.pm 2004/07/03 20:57:05 1.3 @@ -3,8 +3,8 @@ package Apache::lonsupportreq; use strict; use lib qw(/home/httpd/lib/perl); use Apache::Constants qw(:common); -use Apache::loncommon; -use Apache::lonnet; +use Apache::loncommon(); +use Apache::lonnet(); use localenroll; use Apache::lonlocal; @@ -13,8 +13,8 @@ use Mail::Send; # use MIME::Types; sub handler { - my $r = shift; - $r->content_type('text/html'); + my ($r) = @_; + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; if ($r->header_only) { @@ -163,7 +163,7 @@ END -
+
@@ -187,7 +187,7 @@ END -
+
@@ -233,7 +233,7 @@ END -
+
@@ -257,7 +257,7 @@ END -
+
@@ -281,7 +281,7 @@ END -
+
@@ -321,7 +321,7 @@ END -
+
@@ -359,7 +359,7 @@ END -
+
@@ -383,7 +383,7 @@ END -
+
@@ -407,7 +407,7 @@ END -
+