[LON-CAPA-cvs] cvs: loncom /interface lonsupportreq.pm
raeburn
lon-capa-cvs@mail.lon-capa.org
Sat, 18 Dec 2004 22:21:52 -0000
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 {