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

[raeburn]

raeburn		Sat Dec 18 17:21:52 2004 EDT

  Modified files:              
    /loncom/interface	lonsupportreq.pm 
  Log:
  Get posted form params for case where lonsupportreq.pm is called from link on log-in page, i.e., without use of lonacc.
  
  
Index: loncom/interface/lonsupportreq.pm
diff -u loncom/interface/lonsupportreq.pm:1.11 loncom/interface/lonsupportreq.pm:1.12
--- loncom/interface/lonsupportreq.pm:1.11	Sat Nov 27 12:23:09 2004
+++ loncom/interface/lonsupportreq.pm	Sat Dec 18 17:21:52 2004
@@ -17,11 +17,14 @@
     if ($r->header_only) {
         return OK;
     }
-
-    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['action','origurl','function']);
-    my $action = $ENV{'form.action'};
+    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['origurl','function']);
+    if ($r->uri eq '/adm/helpdesk') {
+        &Apache::loncommon::get_posted_cgi($r);
+    }
     my $function = $ENV{'form.function'};
     my $origurl = &Apache::lonnet::unescape($ENV{'form.origurl'});
+    my $action = $ENV{'form.action'};
+
     if ($action eq 'process') {
         &print_request_receipt($r,$origurl,$function);
     } else {