From 356fed4785514d53e7e0af87c182ec0a0cbe98e3 Mon Sep 17 00:00:00 2001
From: OlivierRaginel <OlivierRaginel@0b4bb1d4-4e5a-0410-9cc4-b2b747904278>
Date: Mon, 15 Jun 2009 15:04:03 +0000
Subject: [PATCH] Item1721: Fix pattern to avoid warnings when there is no
 javascript: in a onsubmit

git-svn-id: http://svn.foswiki.org/branches/Release01x00@4142 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
---
 core/lib/Foswiki/Validation.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/lib/Foswiki/Validation.pm b/core/lib/Foswiki/Validation.pm
index 28251871df..d99d4cf596 100644
--- a/core/lib/Foswiki/Validation.pm
+++ b/core/lib/Foswiki/Validation.pm
@@ -116,7 +116,7 @@ onsubmit in the form tag.
 sub addOnSubmit {
     my ($form) = @_;
     unless ( $form =~
-        s/\bonsubmit=(["'])(\s*javascript:)?(.*)\1/onsubmit=${1}${2}foswikiStrikeOne(this);$3$1/i )
+        s/\bonsubmit=(["'])((?:\s*javascript:)?)(.*)\1/onsubmit=${1}${2}foswikiStrikeOne(this);$3$1/i )
     {
         $form =~ s/>$/ onsubmit="foswikiStrikeOne(this)">/;
     }