From 5b10614e202b4a9a1c471f87ec4b22dfebb540a8 Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 24 Mar 2008 19:42:01 +0000
Subject: [PATCH] Handle radio->menu being hash or scalar - Line #1339

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@879 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT-2.0/xCAT/PPCfsp.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-xCAT-2.0/xCAT/PPCfsp.pm b/perl-xCAT-2.0/xCAT/PPCfsp.pm
index 1f64c370b..92579e933 100644
--- a/perl-xCAT-2.0/xCAT/PPCfsp.pm
+++ b/perl-xCAT-2.0/xCAT/PPCfsp.pm
@@ -1336,7 +1336,7 @@ sub readdecfg {
         ##################################
         # Select radio button
         ##################################
-        my $value = %$_->{value};
+        my $value = ( ref($_) eq 'HASH' ) ? %$_->{value} : $_;
         $radio->value( $value );
 
         ##################################