From 2a4a0631693792d39876c52d74b3ea1e113077a6 Mon Sep 17 00:00:00 2001
From: lissav <lissav@us.ibm.com>
Date: Wed, 9 Oct 2013 12:28:09 -0400
Subject: [PATCH]  defect 3760

---
 xCAT-server/lib/xcat/plugins/pxe.pm    | 5 +++--
 xCAT-server/lib/xcat/plugins/yaboot.pm | 5 +++--
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/xCAT-server/lib/xcat/plugins/pxe.pm b/xCAT-server/lib/xcat/plugins/pxe.pm
index 92f004fbe..1247b76ec 100644
--- a/xCAT-server/lib/xcat/plugins/pxe.pm
+++ b/xCAT-server/lib/xcat/plugins/pxe.pm
@@ -129,7 +129,7 @@ sub setstate {
             $kcmdlinehack =~ s/#TABLE:([^:#]+):([^:#]+):([^:#]+)#/$naval/;
         } else {
             my $msg =  "Table key of $2 not yet supported by boottarget mini-template";
-            $callback->({
+            $::callback->({
                 error => ["$msg"],
                 errorcode => [1]
             });
@@ -148,7 +148,7 @@ sub setstate {
       unless ($ipfn) {
         my @myself = xCAT::NetworkUtils->determinehostname();
         my $myname = $myself[(scalar @myself)-1];
-         $callback->(
+         $::callback->(
                 {
                  error => [
                      "$myname: Unable to determine or reasonably guess the image server for $node"
@@ -357,6 +357,7 @@ sub process_request {
   $request = shift;
   $callback = shift;
   my $sub_req = shift;
+  $::callback=$callback;
   my @args;
   my @nodes;
   my @rnodes;
diff --git a/xCAT-server/lib/xcat/plugins/yaboot.pm b/xCAT-server/lib/xcat/plugins/yaboot.pm
index 5f56a39c4..b68699dd3 100644
--- a/xCAT-server/lib/xcat/plugins/yaboot.pm
+++ b/xCAT-server/lib/xcat/plugins/yaboot.pm
@@ -104,7 +104,7 @@ sub setstate {
                   if (xCAT::InstUtils->is_me($sn)) {
                       my @myself = xCAT::NetworkUtils->determinehostname();
                       my $myname = $myself[(scalar @myself)-1];
-                      $callback->(
+                      $::callback->(
                           {
                           error => [
                           "$myname: Unable to determine the image server for $node on service node $sn"
@@ -116,7 +116,7 @@ sub setstate {
                   }
               }
           } else {
-              $callback->(
+              $::callback->(
                           {
                           error => [
                           "$myname: Unable to determine the image server for $node"
@@ -409,6 +409,7 @@ sub process_request {
   $request = shift;
   $callback = shift;
   $sub_req = shift;
+  $::callback=$callback;
   my $command  = $request->{command}->[0];
   %breaknetbootnodes=();
   %normalnodes=();