summaryrefslogtreecommitdiff
path: root/httemplate/view/cust_main/order_pkg_link.html
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>