--- loncom/interface/lonsupportreq.pm 2004/07/03 18:49:42 1.1 +++ loncom/interface/lonsupportreq.pm 2004/07/03 19:05:12 1.2 @@ -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) {