[LON-CAPA-cvs] cvs: loncom /interface lonhelpmenu.pm lonsupportreq.pm

[albertel]

albertel		Sat Jul  3 15:05:12 2004 EDT

  Modified files:              
    /loncom/interface	lonhelpmenu.pm lonsupportreq.pm 
  Log:
  - don=t uset $r->content_type or locale won't work
  
  
Index: loncom/interface/lonhelpmenu.pm
diff -u loncom/interface/lonhelpmenu.pm:1.1 loncom/interface/lonhelpmenu.pm:1.2
--- loncom/interface/lonhelpmenu.pm:1.1	Sat Jul  3 14:49:42 2004
+++ loncom/interface/lonhelpmenu.pm	Sat Jul  3 15:05:12 2004
@@ -31,11 +31,10 @@
 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) {
Index: loncom/interface/lonsupportreq.pm
diff -u loncom/interface/lonsupportreq.pm:1.1 loncom/interface/lonsupportreq.pm:1.2
--- loncom/interface/lonsupportreq.pm:1.1	Sat Jul  3 14:49:42 2004
+++ loncom/interface/lonsupportreq.pm	Sat Jul  3 15:05:12 2004
@@ -3,8 +3,8 @@
 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 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) {