--- loncom/interface/lonhelpmenu.pm	2004/07/03 18:49:42	1.1
+++ loncom/interface/lonhelpmenu.pm	2004/07/03 19:05:12	1.2
@@ -31,11 +31,10 @@ use lib qw(/home/httpd/lib/perl);
 use Apache::Constants qw(:common);
 use Apache::loncommon();
 
-sub handler
-{
-    my $r = shift;
+sub handler {
+    my ($r) = @_;
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['page','color','function','faq','bug','topic','component_help','origurl']);
-    $r->content_type('text/html');
+    &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
 
     if ($r->header_only) {