blob: ba731ae111c294a9d798a5f366e173cbceac7613 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
<% include( '/elements/popup_link-cust_main.html',
'action' => $p. 'misc/order_pkg.html',
'label' => $opt{'label'} || 'Order new package',
'actionlabel' => 'Order new package',
'color' => '#333399',
'cust_main' => $cust_main,
'closetext' => '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>
|
