CVS update: AxKit-XSP-PerForm

[matt]

Date:   Friday September 12, 2003 @ 13:47
Author: matt

Update of /home/cvs/AxKit-XSP-PerForm
In directory ted.sergeant.org:/tmp/cvs-serv3677

Modified Files:
        PerForm.pm 
Log Message:
Log: Fix for IE using image buttons
Submitted by: Jonas Oberg
Reviewed by:  Matt Sergeant  
PR:



Index: PerForm.pm
===================================================================
RCS file: /home/cvs/AxKit-XSP-PerForm/PerForm.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -b -u -r1.25 -r1.26
--- PerForm.pm  2003/08/11 15:00:02     1.25
+++ PerForm.pm  2003/09/12 12:47:14     1.26
@@ -1,4 +1,4 @@
-# $Id: PerForm.pm,v 1.25 2003/08/11 15:00:02 matt Exp $
+# $Id: PerForm.pm,v 1.26 2003/09/12 12:47:14 matt Exp $
 
 package AxKit::XSP::PerForm;
 
@@ -126,7 +126,7 @@
 
 if (\$cgi->param('__submitting_$name')) {
     foreach my \$cancel ([EMAIL PROTECTED]) {
-        if (\$cgi->param(\$cancel)) {
+        if (\$cgi->param(\$cancel) || \$cgi->param(\$cancel.'.x')) {
             no strict 'refs';
             my \$redirect;
             \$redirect = \$_cancel_goto{\$cancel};
@@ -142,7 +142,7 @@
 
 if (\$cgi->param('__submitting_$name') && !\$_form_ctxt->{_Failed}) {
      foreach my \$submit ([EMAIL PROTECTED]) {
-        if (\$cgi->param(\$submit)) {
+        if (\$cgi->param(\$submit) || \$cgi->param(\$submit.'.x')) {
             no strict 'refs';
             my \$redirect;
             \$redirect = \$_submit_goto{\$submit};