Client-side PerlScript Part 2
Sigh.. I got another problem :( And there isn't a lot of info about perlscript...
Consider the following code:
Code:
<HTML>
<HEAD>
<META HTTP-EQUIV="CACHE-CONTROL" CONTENT="NO-CACHE">
<SCRIPT LANGUAGE=PerlScript>
$doc = $window->document;
sub mydynbody {
$objMyBody = $doc->getElementsByTagName("BODY")->item(0);
$objButton = $doc->createElement("INPUT");
$objButton->setAttribute("id","mybutton");
$objButton->setAttribute("value", "Go");
$objButton->setAttribute("type", "button");
$objButton->setAttribute("onclick", "klik()");
$objMyBody->appendChild($objButton);
}
sub klik {
$doc->write("<H1>Klik!</H1>");
}
sub dbg {
$window->alert($doc->body->outerHTML);
}
1;
</SCRIPT>
<TITLE>test</TITLE>
</HEAD>
<BODY onLoad="mydynbody()">
<INPUT TYPE=button VALUE="Debug" onclick="dbg()">
</BODY>
</HTML>
The Debug button works as it should. The dynamicly created klik button doesn't. It shows up but the onclick event doesn't fire up the klik() sub. Digging around I found this article. It seems IE doesn't like it done this way. They've solved this by using new Function("klik()"); in JavaScript.
So what is the PerlScript equivalant of JavaScript's new Function?
