use Win32;
Win32::MsgBox("How are you?");
into the subroutine. It seems to me it does get called (IE 6.0.2800.1106), but the code doesn't do anything.
I tried to fix it but I can't find the contentFrame.
I tried to use
sub displayObj {
my $obj = shift();
Win32::MsgBox("Keys: " . join(', ', map { "$_ => $obj->{$_}" } sor
+t keys %$obj ));
}
...
displayObj( $window);
displayObj( $window->{document});
...
, but I can't find anything.
Quite possibly it would be best to use JavaScript for most of the "client-side" stuff and only call some PerlScript subroutines from the JavaScript.:
<SCRIPT LANGUAGE="PerlScript">
sub DoSelectSite {
$window->{document}->{Location} = $window->{document}->Forms( 0 )-
+>{SiteSelector}->{Value};
}
</SCRIPT>
<script language="JavaScript">
function SelectSite () {
DoSelectSite();
}
</script>
<BODY>
<P>Select a site to browse.</P>
<HR>
<FORM>
<SELECT NAME="SiteSelector" SIZE = "1" onChange="JavaScript:SelectSite
+()">
<OPTION VALUE="">--select one--
<OPTION VALUE="http://www.ncat.edu">North Carolina A and T State Unive
+rsity</OPTION>
<OPTION VALUE = "http://www.uncg.edu">University of North Carolina at
+Greensboro</OPTION>
</SELECT>
</FORM>
</BODY>
Jenda
Always code as if the guy who ends up maintaining your code
will be a violent psychopath who knows where you live.
-- Rick Osborne
Edit by castaway: Closed small tag in signature |