[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

raeburn raeburn at source.lon-capa.org
Mon Aug 10 11:18:22 EDT 2015


raeburn		Mon Aug 10 15:18:22 2015 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Bug 5596.
    Use = as separator between outcome and results hashref to 
    accommodate split(/:/) in lond::reply_query_handler().
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1290 loncom/lonnet/perl/lonnet.pm:1.1291
--- loncom/lonnet/perl/lonnet.pm:1.1290	Wed Aug  5 18:47:25 2015
+++ loncom/lonnet/perl/lonnet.pm	Mon Aug 10 15:18:21 2015
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1290 2015/08/05 18:47:25 raeburn Exp $
+# $Id: lonnet.pm,v 1.1291 2015/08/10 15:18:21 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1974,11 +1974,10 @@
                         $uname = $key;
                     }
                     my ($resp,%info) = &get_instuser($udom,$uname,$id);
+                    $outcome = $resp;
                     if ($resp eq 'ok') {
                         %{$results} = (%{$results}, %info);
-                        $outcome = 'ok';
                     } else {
-                        $outcome = $resp;
                         last;
                     }
                 }
@@ -1986,7 +1985,7 @@
                 if (($response eq 'unavailable') || ($response eq 'invalid') || ($response eq 'timeout')) {
                     $outcome = $response;
                 } else {
-                    ($outcome,my $userdata) = split(/:/,$response,2);
+                    ($outcome,my $userdata) = split(/=/,$response,2);
                     if ($outcome eq 'ok') {
                         $results = &thaw_unescape($userdata); 
                     }




More information about the LON-CAPA-cvs mailing list