summaryrefslogtreecommitdiff
path: root/httemplate/elements/order_pkg_link.html
blob: d8aa8fd4eaf1a5a7607ccf0f3f82d4c7f52c33b0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
<& /elements/popup_link-cust_main.html,
          'action'        => $p. 'misc/order_pkg.html',
          'label'         => $opt{'label'}       || emt('Order new package'),
          'actionlabel'   => $opt{'actionlabel'} || emt('Order new package'),
          'color'         => '#333399',
          'cust_main'     => $opt{cust_main},
          'prospect_main' => $opt{prospect_main},
          'custnum'       => $opt{custnum},
          'prospectnum'   => $opt{prospectnum},
          'closetext'     => emt('Close'),
          'width'         => 960, #763,
          'height'        => $height,
          %optional,
&>
<%init>

my(%opt) = @_;

my %optional =
  map { $_ => $opt{$_} }
    grep $opt{$_},
      qw( lock_pkgpart lock_locationnum qualnum quotationnum svcpart );

my $height = $opt{'lock_locationnum'} ? 336 : 576;

</%init>