+
+
+% my $plink = "pkgnum=$pkgnum";
+% my $reg_recur_cond = sub { $part_pkg->freq ne '0'
+% && ! $change_from
+% && ! $supplemental
+% && ! $cust_pkg->get('cancel')
+% };
+
+ <& /elements/dropdown-menu.html,
+ id => 'cust_pkg'. $cust_pkg->pkgnum. '_menu',
+ bgcolor => $opt{row} % 2 ? '#ffffff' : '#eeeeee',
+ menu => [
+ [
+
+ #TODO: order/group these better
+
+ { label => 'Package actions',
+ content => 'Package actions ',
+ },
+
+ { label => 'Modify one-time charge',
+ acl => 'Modify one-time charge',
+ condition => sub { $part_pkg->freq eq '0' },
+ url => "edit/quick-charge.html?change_$plink",
+ },
+
+ { label => 'Change package',
+ acl => 'Change customer package',
+ condition => $reg_recur_cond,
+ popup => "misc/change_pkg.cgi?$plink".
+ ';locationnum='. $cust_pkg->locationnum.
+ actionlabel => emt('Change package'),
+ #width => 768,
+ width => 960,
+ height => 538,
+ },
+
+ { label => 'Discount package',
+ condition => sub { $part_pkg->freq ne '0'
+ && ! $change_from
+ && ! $supplemental
+ && ! $cust_pkg->get('cancel')
+ && $can_discount_pkg
+ },
+ popup => "edit/cust_pkg_discount.html?$plink".
+ actionlabel => emt('Discount package'),
+ width => 616,
+ },
+
+ { label => 'Customize package',
+ acl => 'Customize customer package',
+ condition => $reg_recur_cond,
+ url => "edit/part_pkg.cgi?$plink".
+ ';clone='. $part_pkg->pkgpart,
+ },
+
+ { label => 'View package events',
+ acl => [ 'Billing event reports',
+ 'View customer billing events', ],
+ condition => sub { $cust_pkg->exists_cust_event },
+ url => "search/cust_event.html?$plink",
+ },
+
+ { label => 'Change quantity',
+ acl => 'Change customer package',
+ condition => sub { $part_pkg->freq ne '0'
+ && ! $change_from
+ && ! $supplemental
+ && ! $cust_pkg->get('cancel')
+ && $opt{'invoice-unitprice'}
+ },
+ popup => "edit/cust_pkg_quantity.html?$plink",
+
+ actionlabel => emt('Change quantity'),
+ width => 390,
+ height => 220,
+ },
+
+ { label => 'Change sales person',
+ acl => 'Change customer package',
+ condition => sub { ! $change_from
+ && ! $supplemental
+ && ! $cust_pkg->get('cancel')
+ },
+ popup => "edit/cust_pkg_salesnum.html?$plink",
+ actionlabel => emt('Change sales persion'),
+ width => 390,
+ height => 220,
+ },
+
+ { label => (@invoice_detail ? 'Edit' : 'Add').
+ ' invoice details',
+ acl => 'Edit customer package invoice details',
+ condition => sub { ! $cust_pkg->get('cancel') },
+ popup => "edit/cust_pkg_detail.html?$plink".
+ ';detailtype=I',
+ actionlabel => emt( (@invoice_detail ? 'Edit' : 'Add').
+ ' invoice details'
+ ),
+ width => 768,
+ },
+
+ { label => (@comments ? 'Edit' : 'Add'). ' comments',
+ acl => 'Edit customer package comments',
+ popup => "edit/cust_pkg_detail.html?$plink".
+ ';detailtype=C',
+ actionlabel => emt( (@comments ? 'Edit' : 'Add').
+ ' comments'
+ ),
+ width => 768,
+ },
+
+ { label => '-',
+ content => '-',
+ },
+
+
+ ],
+ ],
+ &>
+
+ |
+
+