From a1a51b5b5f744f66461b4087fe32a56bd9f19cc6 Mon Sep 17 00:00:00 2001
From: yinle <yinle@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 4 Aug 2011 08:07:55 +0000
Subject: [PATCH] fix bug  3386076: lsvm fail to get all the profiles of the
 LPAR

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@10222 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/PPCvm.pm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/perl-xCAT/xCAT/PPCvm.pm b/perl-xCAT/xCAT/PPCvm.pm
index 6f8505cc8..ae3e0f225 100644
--- a/perl-xCAT/xCAT/PPCvm.pm
+++ b/perl-xCAT/xCAT/PPCvm.pm
@@ -1217,7 +1217,24 @@ sub list {
                         $count++;
                     }
                 } else {
-                    $pprofile .= "@$prof[0]\n\n";
+                    #$pprofile .= "@$prof[0]\n\n";
+                    my $lparprof = xCAT::PPCcli::lssyscfg(
+                                      $exp,
+                                      "lpar2",
+                                      $mtms,
+                                      "lpar_ids=$id" );
+                    my $Rc = shift(@$lparprof);
+                    if ( $Rc != SUCCESS ) {
+                        $pprofile .= "@$lparprof[0]\n\n";
+                    } else {
+                        @$lparprof[0] =~ /curr_profile=(\w+)/;
+                        my $pname = $1;
+                        foreach my $pr (@$prof) {
+                            if ($pr =~ /name=$pname/) {
+                                $pprofile .= "$pr\n\n";
+                            }    
+                        }
+                    }                   
                 }
             }                
             $values->{$lpar} = [$lpar, $pprofile, SUCCESS];