--- loncom/interface/lonsupportreq.pm	2005/04/10 23:45:57	1.27
+++ loncom/interface/lonsupportreq.pm	2005/04/12 00:20:00	1.28
@@ -1,5 +1,5 @@
 #
-# $Id: lonsupportreq.pm,v 1.27 2005/04/10 23:45:57 raeburn Exp $
+# $Id: lonsupportreq.pm,v 1.28 2005/04/12 00:20:00 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -967,7 +967,7 @@ Please review the information in "Log-in
 
 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/^[^:]*:([^:]+)/) {
             $$coursecodes{$course} = &Apache::lonnet::unescape($1);