loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.836, 2007/02/23 15:49:23
+version 1.837, 2007/03/01 17:51:56
  Line 766  sub put_dom {
      }
  }
+ sub retrieve_inst_usertypes {
+     my ($udom) = @_;
+     my (%returnhash,@order);
+     if (exists($domain_primary{$udom})) {
+         my $uhome=$domain_primary{$udom};
+         my $rep=&reply("inst_usertypes:$udom",$uhome);
+         my ($hashitems,$orderitems) = split(/:/,$rep);
+         my @pairs=split(/\&/,$hashitems);
+         foreach my $item (@pairs) {
+             my ($key,$value)=split(/=/,$item,2);
+             $key = &unescape($key);
+             next if ($key =~ /^error: 2 /);
+             $returnhash{$key}=&thaw_unescape($value);
+         }
+         my @esc_order = split(/\&/,$orderitems);
+         foreach my $item (@esc_order) {
+             push(@order,&unescape($item));
+         }
+     } else {
+         &logthis("get_dom failed - no primary domain server for $udom");
+     }
+     return (\%returnhash,\@order);
+ }
  # --------------------------------------------------- Assign a key to a student
  sub assign_access_key {