http://qs1969.pair.com?node_id=575516

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

Hi, I am having a seperate Jscript file called ValidateForm and it has a function ValidateForm(). I have included the code below and the Error I am getting.
$JSCRIPT=<<END; var cal = new CalendarPopup("testdiv"); cal.setCssPrefix("TEST"); cal.showYearNavigation(); END $JSCRIPT2=<<END2; writeSource("jscal1"); END2 print start_html(-style=>{-src=>['/styles/print.css','/styles/yreg_lit +e_v5.css'],-media => 'all'},-title=>'MIS - People Data', -script=>[ {-language => 'JavaScript',-src => i '/javascript/ValidateForm +.js'}, {-language => 'JavaScript',-src => '/javascript/CalendarPopup.js'}, {-language => 'JavaScript',-src => '/javascript/AnchorPosition.js'}, {-language => 'JavaScript',-src => '/javascript/date.js'}, {-language => 'JavaScript',-src => '/javascript/PopupWindow.js'},{ -id +=>'jscal1',-code=>$JSCRIPT},$JSCRIPT2]); print table({-width=>'97%',-cellpadding=>4,-cellspacing=>5}, Tr({-align=>RIGHT,-valign=>TOP}, td( submit(-name=>'Update',-value=>'Update',-onClick(Validat +eForm(this.form)))) ) );
Error Message Software error: Undefined subroutine &main::ValidateForm Help me