--- loncom/interface/courseclassifier.pm	2006/10/12 22:47:31	1.1
+++ loncom/interface/courseclassifier.pm	2007/10/03 19:57:29	1.2
@@ -29,10 +29,14 @@ use Apache::lonnet;
 use LONCAPA;
 
 sub retrieve_instcodes {
-    my ($coursecodes,$codedom,$totcodes) = @_;
+    my ($coursecodes,$codedom) = @_;
+    my $totcodes;
     my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.','.',                                                undef,undef,'Course');
-    foreach my $course (keys %courses) {
-        if ($courses{$course} =~ m/^[^:]*:([^:]+)/) {
+    foreach my $course (keys(%courses)) {
+        if (ref($courses{$course}) eq 'HASH') {
+            $$coursecodes{$course} = $courses{$course}{'instcode'};
+            $totcodes ++;
+        } elsif ($courses{$course} =~ m/^[^:]*:([^:]+)/) {
             $$coursecodes{$course} = &unescape($1);
             $totcodes ++;
         }