--- loncom/interface/lonsupportreq.pm	2004/11/04 00:57:25	1.10
+++ loncom/interface/lonsupportreq.pm	2004/12/18 22:21:52	1.12
@@ -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 {
@@ -765,9 +768,9 @@ END
 
 sub retrieve_instcodes {
     my ($coursecodes,$codedom,$totcodes) = @_;
-    my %courses = &Apache::lonnet::courseiddump($codedom,'.',1);
+    my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.');
     foreach my $course (keys %courses) {
-        if ($courses{$course} =~ m/^[^:]*:([^:]+)$/) {
+        if ($courses{$course} =~ m/^[^:]*:([^:]+)/) {
             $$coursecodes{$course} = &Apache::lonnet::unescape($1);
             $totcodes ++;
         }