working with JScript in Perl

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I am a beginner in Perl & JScript. I have to validate a form. I am using the following code. I have javascript in different file and in different directory.


print start_html(
   -title=>'People Data',
   -script=>[
      {
        -language => 'JavaScript',
        -src => '/javascript/ValidateForm.js'
      }
]
);
   print table({-border=>0,-cellpadding=>4,-cellspacing=>5},
           Tr({-align=>LEFT,-valign=>TOP},
            [
             td('Sun Id:&nbsp;',textfield(-name=>'Sunid',-value=>"$sun
+id",-size=>20),submit(-name=>'Load',-value=>'Get Details',-onClick=>V
+alidateForm())),
              td({-bgcolor=>chocolate},font({-color=>white},'Enter Sun
+ ID and click Get Details'))
            ]
           ));
print end_form;
print end_html;
[download]

Javascript file contains the following code


function ValidateForm(){
       var Phone=document.inFOrm.Mobile
       alert("In JS")

        return true
 }
[download]

I am getting compilation error. Please help me out. thanks in advance.

Comment on working with JScript in Perl Select or Download Code

Replies are listed 'Best First'.
Re: working with JScript in Perl by gellyfish (Monsignor) on Oct 08, 2006 at 08:28 UTC
You omitted the quotes around the `ValidateForm()` in your Perl code, consequently it is being interpreted as a call to an (undefined) Perl subroutine. /J\	[reply] [d/l]
Re^2: working with JScript in Perl by Anonymous Monk on Oct 08, 2006 at 08:50 UTC
Thanks. Now I am able to compile. But when i click the button alert msg is not coming. Am I missing anything?.	[reply]
Re^3: working with JScript in Perl by Joost (Canon) on Oct 08, 2006 at 15:26 UTC
You don't have a `<form>` tag with name "inFOrm" anywhere. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l]
Re^3: working with JScript in Perl by Hue-Bond (Priest) on Oct 08, 2006 at 08:56 UTC
Not sure, but I think you need a semicolon at the end of every javascript statement. -- David Serrano	[reply]
Re^4: working with JScript in Perl by Errto (Vicar) on Oct 09, 2006 at 04:31 UTC
Re: working with JScript in Perl by McDarren (Abbot) on Oct 08, 2006 at 08:27 UTC
This compilation error you are getting - are we allowed to see it, or is it a secret? Is it Perl complaining, or the Javascript? If the former, you could try showing us the error and we might be able to help. If the latter, then you are asking in the wrong place. Cheers, Darren :)	[reply]
Re^2: working with JScript in Perl by Anonymous Monk on Oct 08, 2006 at 08:54 UTC
Sorry . I was getting undefined function error. I corrected the mistake highlighted by gellyfish and now its compiling but its not working. ie. Alert msg is coming when clicking the button.	[reply]