burningicarus
Programmer
Hi,
I'm constructing a page in Perl, and would like clicking on thumbnail images on the parent window to result in a daughter popup displaying the full size image.
I can achieve this using the following (messy) javascript.
However, for database management reasons, I like to find the equivalent code in Perl. After 5 days of hacking away at this, I'm not really getting anywhere. Any help would be great
$link = "<a href=\"javascript:$unique_javascript_name();\"><img src=\"popupButton4.jpg\"</a>";
$popup_script ="
<script>
var newwindow;
function $unique_javascript_name(url)
{
var generator=window.open(\'\',\'$unique_link_name\',\' scrollbars=yes resizable=yes\');
generator.document.write(\'<html><head><title>My Webpage! </title></head>$html_body2<img src = $picture></body></html>\');
generator.document.close();
}
</script>
I'm constructing a page in Perl, and would like clicking on thumbnail images on the parent window to result in a daughter popup displaying the full size image.
I can achieve this using the following (messy) javascript.
However, for database management reasons, I like to find the equivalent code in Perl. After 5 days of hacking away at this, I'm not really getting anywhere. Any help would be great
$link = "<a href=\"javascript:$unique_javascript_name();\"><img src=\"popupButton4.jpg\"</a>";
$popup_script ="
<script>
var newwindow;
function $unique_javascript_name(url)
{
var generator=window.open(\'\',\'$unique_link_name\',\' scrollbars=yes resizable=yes\');
generator.document.write(\'<html><head><title>My Webpage! </title></head>$html_body2<img src = $picture></body></html>\');
generator.document.close();
}
</script>
