From af7639dcf805043cd6566a6cc419b658db775620 Mon Sep 17 00:00:00 2001
From: jjhua <jjhua@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 6 Jan 2009 11:03:50 +0000
Subject: [PATCH] Mofied it to support getting firmware information of CEC
 where the Lpar is located(When noderange is Lpar)

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

diff --git a/perl-xCAT/xCAT/PPCinv.pm b/perl-xCAT/xCAT/PPCinv.pm
index 5a23a14c5..5bfbf6a2f 100644
--- a/perl-xCAT/xCAT/PPCinv.pm
+++ b/perl-xCAT/xCAT/PPCinv.pm
@@ -435,14 +435,20 @@ sub firmware {
         while (my ($name,$d) = each(%$h) ) {
 
             #####################################
-            # Command only supported on FSP/BPAs 
+            # Command only supported on FSP/BPA/LPARs 
             #####################################
-            if ( @$d[4] !~ /^(fsp|bpa)$/ ) {
+            if ( @$d[4] !~ /^(fsp|bpa|lpar)$/ ) {
                 push @result, 
-                    [$name,"Information only available for CEC/BPA",RC_ERROR];
+                    [$name,"Information only available for CEC/BPA/LPAR",RC_ERROR];
                 next; 
             }
-            my $values = xCAT::PPCcli::lslic( $exp, $d );
+	   #################
+	   #For support on  Lpars, the flag need to be changed.
+	   ##########
+	   if(@$d[4] eq "lpar")	{
+		@$d[4] = "fsp";
+	   }
+           my $values = xCAT::PPCcli::lslic( $exp, $d );
             my $Rc = shift(@$values);
     
             #####################################