5 <SCRIPT TYPE="text/javascript" SRC="overlibmws.js"></SCRIPT>
6 <SCRIPT TYPE="text/javascript" SRC="iframecontentmws.js"></SCRIPT>
8 include( '/elements/popup_link.html', {
11 'action' => 'content.html', # uri for content of popup
12 'label' => 'click me', # text of <A> tag
15 'actionlabel => 'You clicked', # popup title
20 'closetext' => 'Go Away', # the value '' removes the link
25 my($params, $action, $label, $actionlabel, $width, $color);
26 my $closetext = 'Close';
27 if (ref(@_[0]) eq 'HASH') {
29 foreach (qw(action label actionlabel width color)) {
30 $action = $params->{'action'} if exists $params->{'action'};
31 $label = $params->{'label'} if exists $params->{'label'};
32 $actionlabel = $params->{'actionlabel'} if exists $params->{'actionlabel'};
33 $width = $params->{'width'} if exists $params->{'width'};
34 $color = $params->{'color'} if exists $params->{'color'};
35 $closetext = $params->{'closetext'} if exists $params->{'closetext'};
38 ($action, $label, $actionlabel, $width) = @_;
45 %if ($action && $label) {
46 <A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('<% "$action" %>', <% $width %>, 336, 'pkg_or_svc_action_popup' ), CAPTION, '<% $actionlabel %>', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK, BGCOLOR, '<% $color %>', CGCOLOR, '<% $color %>', CLOSETEXT, '<% $closetext %>' ); return false;"><% $label %></A>