http://qs321.pair.com?node_id=109575

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

i try to include two external javascript files with the following code into the output html file, but it always just prints the last one, and not both... any clue how i could solve this 
print $query->start_html(-script=>{
                          -src=>'../assets/bwcheck.js',
                          -src=>'../assets/scroller.js'},
                          );

[download]

Replies are listed 'Best First'.
Re: how to set two script sources with cgi.pm start_html
by wog (Curate) on Sep 01, 2001 at 03:47 UTC
    To do this correctly you need to do something pass an arrayref for the -script argument like this: 

    print $query->start_html(-script=>[
                          {-src=>'../assests/bwcheck.js'},
                          {-src=>'../assests/scroller.js'},
                         ]);

    [download]

    This is well documented in the CGI.pm documentation for start_html.

[reply]
[d/l]
[select]
      unfortunately this is also not working, now it outputs even no script src, i already tried it this way. really dont know out of this problem
[reply]
        Which version of CGI do you have installed? What does it print? Here's what I get, on Perl 5.5.3, with CGI version 2.752. 
        $ perl
use CGI;
my $query = CGI->new();
print $query->start_html(-script=>[
                          {-src=>'../assests/bwcheck.js'},
                          {-src=>'../assests/scroller.js'},
                         ]);
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html
        PUBLIC "-//W3C//DTD XHTML Basic 1.0//EN"
        "http://www.w3.org/TR/xhtml-basic/xhtml-basic10.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US"><head><title>U
+ntitled Document</title>
<script src="../assests/bwcheck.js" type="text/javascript" language="J
+avaScript"></script>
<script src="../assests/scroller.js" type="text/javascript" language="
+JavaScript"></script>
</head><body>

        [download]
[reply]
[d/l]

Back to Seekers of Perl Wisdom