blob: e6abbd13c402840ec0b89dbe605cae39862aeaf9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
<& /elements/popup_link-cust_main.html,
'action' => $p. 'misc/order_pkg.html',
'label' => $opt{'label'} || mt('Order new package'),
'actionlabel' => mt('Order new package'),
'color' => '#333399',
'cust_main' => $cust_main,
'closetext' => mt('Close'),
'width' => 763,
'height' => $height,
%optional,
&>
<%init>
my($cust_main, %opt) = @_;
my %optional = map { $_ => $opt{$_} }
grep $opt{$_},
qw( lock_pkgpart lock_locationnum qualnum svcpart );
my $height = $opt{'lock_locationnum'} ? 296 : 538;
</%init>
|