summaryrefslogtreecommitdiff
path: root/httemplate/view/cust_main/order_pkg_link.html
blob: 7bc5eef31488cc387bf2e7ddfb4ca43ac8e38cdf (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'} || emt('Order new package'),
          'actionlabel' => emt('Order new package'),
          'color'       => '#333399',
          'cust_main'   => $cust_main,
          'closetext'   => emt('Close'),
          'width'       => 960, #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'} ? 336 : 576;

</%init>