loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.1441, 2021/02/08 14:10:17
+version 1.1442, 2021/02/08 14:50:53
  Line 2164  sub get_dom {
      }
      if ($udom && $uhome && ($uhome ne 'no_host')) {
          my $rep;
-         if ($namespace =~ /^enc/) {
+         if (grep { $_ eq $uhome } &current_machine_ids()) {
-             $rep=&reply("encrypt:egetdom:$udom:$namespace:$items",$uhome);
+             # domain information is hosted on this machine
+             my $cmd = 'getdom';
+             if ($namespace =~ /^enc/) {
+                 $cmd = 'egetdom';
+             }
+             $rep = &LONCAPA::Lond::get_dom("$cmd:$udom:$namespace:$items");
          } else {
-             $rep=&reply("getdom:$udom:$namespace:$items",$uhome);
+             if ($namespace =~ /^enc/) {
+                 $rep=&reply("encrypt:egetdom:$udom:$namespace:$items",$uhome);
+             } else {
+                 $rep=&reply("getdom:$udom:$namespace:$items",$uhome);
+             }
          }
          my %returnhash;
          if ($rep eq '' || $rep =~ /^error: 2 /) {