--- loncom/lonnet/perl/lonnet.pm	2009/07/17 13:55:10	1.1004
+++ loncom/lonnet/perl/lonnet.pm	2009/07/20 23:33:11	1.1005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1004 2009/07/17 13:55:10 droeschl Exp $
+# $Id: lonnet.pm,v 1.1005 2009/07/20 23:33:11 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5703,7 +5703,7 @@ sub auto_instcode_defaults {
 }
 
 sub auto_possible_instcodes {
-    my ($domain,$codetitles,$cat_titles,$cat_order) = @_;
+    my ($domain,$codetitles,$cat_titles,$cat_orders) = @_;
     my (@homeservers,$uhome);
     if (defined(&domain($domain,'primary'))) {
         $uhome=&domain($domain,'primary');
@@ -5723,12 +5723,12 @@ sub auto_possible_instcodes {
         my ($codetitlestr,$cat_title,$cat_order) = split(':',$response);
         @{$codetitles} = map { &unescape($_); } (split('&',$codetitlestr));  
         foreach my $item (split('&',$cat_title)) {   
-            my ($name,$value)=split('&',$item);
-            $cat_titles->{&unescape($name)}=&unescape($value);
+            my ($name,$value)=split('=',$item);
+            $cat_titles->{&unescape($name)}=&thaw_unescape($value);
         }
         foreach my $item (split('&',$cat_order)) {
-            my ($name,$value)=split('&',$item);
-            $cat_order->{&unescape($name)}=&unescape($value);
+            my ($name,$value)=split('=',$item);
+            $cat_orders->{&unescape($name)}=&thaw_unescape($value);
         }
         return 'ok';
     }