5 include('/elements/init_overlib.html')
7 include( '/elements/popup_link-cust_main.html', { #hashref or a list, either way
10 'action' => 'content.html', # uri for content of popup which should
11 # be suitable for appending keywords
12 'label' => 'click me', # text of <A> tag
13 'cust_main' => $cust_main # a FS::cust_main object
15 #strongly recommended (you want a title, right?)
16 'actionlabel => 'You clicked', # popup title
21 'closetext' => 'Go Away', # the value '' removes the link
25 % if ( $params->{'cust_main'} ) {
26 <% include('/elements/popup_link.html', $params ) %>\
30 my $params = { 'closetext' => emt('Close') };
32 if (ref($_[0]) eq 'HASH') {
33 $params = { %$params, %{ $_[0] } };
35 $params = { %$params, @_ };
38 $params->{'action'} .=
39 ( $params->{'action'} =~ /\?/ ? ';' : '?' ).
40 'custnum='. $params->{'cust_main'}->custnum;
42 $params->{'action'} .= ";$_=".$params->{$_}
43 foreach grep $params->{$_},
44 qw( lock_pkgpart lock_locationnum qualnum svcpart );