From 9e63b5144bb776a769ad4bb425c45cb7883d2c0c Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 25 Jan 2008 15:57:14 +0000
Subject: [PATCH] Changed call to HTML::Form->parse() function to Click
 "OK/Cancel" - Line #597

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

diff --git a/perl-xCAT-2.0/xCAT/PPCfsp.pm b/perl-xCAT-2.0/xCAT/PPCfsp.pm
index 89afdb50b..2268457f2 100644
--- a/perl-xCAT-2.0/xCAT/PPCfsp.pm
+++ b/perl-xCAT-2.0/xCAT/PPCfsp.pm
@@ -590,8 +590,12 @@ sub clear {
     if ( !$res->is_success() ) {
         return( $res->status_line );
     }
-    my $form = HTML::Form->parse( $res );
-
+    ##################################
+    # Clear all error/event log entries:
+    # Are you sure? (OK/Cancel)
+    ##################################
+    my $form = HTML::Form->parse( $res->content, $res->base );
+ 
     ##################################
     # Return error
     ##################################