diff options
author | ivan <ivan> | 2008-03-31 23:08:00 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-03-31 23:08:00 +0000 |
commit | ca121e95ebea9fd78f2a06cfdddb159463c8e47c (patch) | |
tree | 66247c721143834f4b823ac88abdd535d07e4b25 /httemplate/elements/popup_link_onclick.html | |
parent | 73f33b4f1198ba1b138c1e6a2bee50631c10e449 (diff) |
clean up overlib usage for customer notes
Diffstat (limited to 'httemplate/elements/popup_link_onclick.html')
-rw-r--r-- | httemplate/elements/popup_link_onclick.html | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/httemplate/elements/popup_link_onclick.html b/httemplate/elements/popup_link_onclick.html index 41383fdf6..d14a2e795 100644 --- a/httemplate/elements/popup_link_onclick.html +++ b/httemplate/elements/popup_link_onclick.html @@ -25,7 +25,7 @@ Example: % } <%init> -my($action, $actionlabel) = ( '', '' ); +my( $action, $actionlabel, $frame ) = ( '', '', '' ); my( $width, $height ) = ( 540, 336 ); my $closetext = 'Close'; my $color = '#333399'; @@ -45,11 +45,18 @@ $width = $params->{'width'} if exists $params->{'width'}; $height = $params->{'height'} if exists $params->{'height'}; $color = $params->{'color'} if exists $params->{'color'}; $closetext = $params->{'closetext'} if exists $params->{'closetext'}; +$frame = $params->{'frame'} if exists $params->{'frame'}; #stupid safari is caching the "location" of popup iframs, and submitting them #instead of displaying them. this should prevent that. my $popup_name = 'popup-'.time. "-$$-". rand() * 2**32; -my $onclick = "overlib( OLiframeContent('$action', $width, $height, '$popup_name' ), CAPTION, '$actionlabel', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK, BGCOLOR, '$color', CGCOLOR, '$color', CLOSETEXT, '$closetext' ); return false;"; +my $onclick = + "overlib( OLiframeContent('$action', $width, $height, '$popup_name' ), ". + "CAPTION, '$actionlabel', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, ". + "DRAGGABLE, CLOSECLICK, ". + "BGCOLOR, '$color', CGCOLOR, '$color', CLOSETEXT, '$closetext'". + ( $frame ? ", FRAME, $frame" : '' ). + "); return false;"; </%init> |