From c4128bec5a8da2e28a9238ebdf860c0915a7c0b9 Mon Sep 17 00:00:00 2001
From: jjhua <jjhua@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 5 May 2010 02:37:09 +0000
Subject: [PATCH] support getmacs cb4lpar01 -D -f in hierachy env

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5963 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/perl/xCAT/PPC.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/xCAT-server/lib/perl/xCAT/PPC.pm b/xCAT-server/lib/perl/xCAT/PPC.pm
index 0d77a6166..dc406f39e 100644
--- a/xCAT-server/lib/perl/xCAT/PPC.pm
+++ b/xCAT-server/lib/perl/xCAT/PPC.pm
@@ -1459,6 +1459,16 @@ sub process_request {
     $request->{stdin}   = $req->{stdin}->[0];
     $request->{method} = $req->{method}->[0];
     $request->{op}   = $req->{op}->[0];
+    #support more options in hierachy
+    if( ref( $req->{opt}) eq 'ARRAY' ) {
+        my $h = $req->{opt}->[0];
+        my %t = ();
+        foreach my $k(keys %$h){
+            $t{$k} = $h->{$k}->[0];
+        }
+        $request->{opt} = \%t;
+     }
+
 #    $request->{hwtype}  = $package;
     $request->{callback}= $callback;
     $request->{subreq}  = $subreq;