--- loncom/interface/lonsupportreq.pm 2004/11/27 17:23:09 1.11 +++ loncom/interface/lonsupportreq.pm 2004/12/18 22:30:28 1.13 @@ -17,11 +17,14 @@ sub handler { 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 { @@ -50,14 +53,35 @@ sub print_request_form { $usec = $ENV{'request.course.sec'}; $cid = $ENV{'request.course.id'}; $server = $ENV{'SERVER_NAME'}; - my $scripttag = (<= 0) { + return true; + } + return false; + } +} END if ($cid =~ m/_/) { ($cdom,$cnum) = split/_/,$cid;