Item1721: Let the foswikiStrikeOne also work in onsubmit with javascr…

…ipt: prefix

git-svn-id: http://svn.foswiki.org/trunk@4120 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=(["'])(.*)\1/onsubmit=${1}foswikiStrikeOne(this);$2$1/i )
+        s/\bonsubmit=(["'])(\s*javascript:)?(.*)\1/onsubmit=${1}${2}foswikiStrikeOne(this);$3$1/i )
     {
         $form =~ s/>$/ onsubmit="foswikiStrikeOne(this)">/;
     }