Item1721: Fix pattern to avoid warnings when there is no javascript: …

…in a onsubmit

git-svn-id: http://svn.foswiki.org/trunk@4141 0b4bb1d4-4e5a-0410-9cc4-b2b747904278

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)">/;
     }