From 3e28a9305693b3fdd204502336c6b0d257625385 Mon Sep 17 00:00:00 2001
From: wanghuaz <wanghuaz@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 10 Sep 2009 02:57:36 +0000
Subject: [PATCH] fxied one issue in the change of setting the frame num

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4114 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/PPCcfg.pm | 4 ++--
 perl-xCAT/xCAT/PPCcli.pm | 3 ++-
 perl-xCAT/xCAT/PPCvm.pm  | 4 ++--
 3 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/perl-xCAT/xCAT/PPCcfg.pm b/perl-xCAT/xCAT/PPCcfg.pm
index 97da9e070..953de1332 100644
--- a/perl-xCAT/xCAT/PPCcfg.pm
+++ b/perl-xCAT/xCAT/PPCcfg.pm
@@ -388,7 +388,7 @@ sub frame {
                     if ( !defined($ent) or !defined($ent->{id}) ) {
                         return( [[$node,"Cannot find frame num in database",RC_ERROR]] );
                     }
-                    $data = xCAT::PPCcli::chsyscfg( $exp, $d, $ent->{id} );
+                    $data = xCAT::PPCcli::chsyscfg( $exp, "frame", $d, $ent->{id} );
                     $Rc = shift(@$data);
 
                     #################################
@@ -405,7 +405,7 @@ sub frame {
                     # Set frame number
                     # Read the frame number from opt
                     #################################
-                    $data = xCAT::PPCcli::chsyscfg( $exp, $d, $value );
+                    $data = xCAT::PPCcli::chsyscfg( $exp, "frame", $d, $value );
                     $Rc = shift(@$data);
 
                     #################################
diff --git a/perl-xCAT/xCAT/PPCcli.pm b/perl-xCAT/xCAT/PPCcli.pm
index 01e8328d0..17d62ec6f 100644
--- a/perl-xCAT/xCAT/PPCcli.pm
+++ b/perl-xCAT/xCAT/PPCcli.pm
@@ -305,13 +305,14 @@ sub lssyscfg {
 sub chsyscfg {
 
     my $exp     = shift;
+    my $res     = shift;
     my $d       = shift;
     my $cfgdata = shift;
 
     #####################################
     # Select command
     #####################################
-    my $cmd = sprintf( $chsyscfg{@$d[4]}, @$d[2], $cfgdata); 
+    my $cmd = sprintf( $chsyscfg{$res}, @$d[2], $cfgdata ); 
 
     #####################################
     # Send command
diff --git a/perl-xCAT/xCAT/PPCvm.pm b/perl-xCAT/xCAT/PPCvm.pm
index bbfb814e2..e13d20a2d 100644
--- a/perl-xCAT/xCAT/PPCvm.pm
+++ b/perl-xCAT/xCAT/PPCvm.pm
@@ -788,7 +788,7 @@ sub modify_by_attr {
                     push @values, [$lpar, $err_msg, $Rc];
                     next;
                 }
-                my $result = xCAT::PPCcli::chsyscfg( $exp, $d, $cfgdata );
+                my $result = xCAT::PPCcli::chsyscfg( $exp, "prof", $d, $cfgdata );
                 $Rc = shift(@$result);
                 push @values, [$lpar,@$result[0],$Rc];
             }
@@ -999,7 +999,7 @@ sub modify_by_prof {
                push @values, [$lpar,@$result[0],$Rc];
             }
             else {
-               my $result = xCAT::PPCcli::chsyscfg( $exp, $d, $cfg );
+               my $result = xCAT::PPCcli::chsyscfg( $exp, "prof", $d, $cfg );
                my $Rc = shift(@$result);
                push @values, [$lpar,@$result[0],$Rc];
             }