--- loncom/interface/courseclassifier.pm	2007/10/03 19:57:29	1.2
+++ loncom/interface/courseclassifier.pm	2007/10/06 04:32:49	1.3
@@ -34,10 +34,7 @@ sub retrieve_instcodes {
     my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.','.',                                                undef,undef,'Course');
     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);
+            $$coursecodes{$course} = $courses{$course}{'inst_code'};
             $totcodes ++;
         }
     }