4 % #my $width = $show_location ? 'WIDTH="25%"' : 'WIDTH="33%"';
5 <TH CLASS="grid" BGCOLOR="#cccccc"><% mt('Package') |h %></TH>
6 <TH CLASS="grid" BGCOLOR="#cccccc"><% mt('Status') |h %></TH>
7 <TH CLASS="grid" BGCOLOR="#cccccc"><% mt('Contact/Location') |h %></TH>
8 % if (!$opt{no_services}) {
9 <TH CLASS="grid" BGCOLOR="#cccccc"><% mt('Services') |h %></TH>
14 % #$FS::cust_pkg::DEBUG = 2;
15 % foreach my $cust_pkg (@$packages) {
16 % # if requested, this can override cust_pkg-group_by_location
17 <& .packagerow, $cust_pkg,
19 ( map { $_ => $opt{$_} } qw(
20 cust_main bgcolor no_links cust_location_cache
21 before_pkg_callback before_svc_callback after_svc_callback
22 cust_pkg-group_by_location
26 'has_cust_payby_auto' => $opt{cust_main}->has_cust_payby_auto,
29 % } else { # there are no packages
34 % my ($cust_pkg, %iopt) = @_;
35 % $iopt{'cust_pkg'} = $cust_pkg;
36 % $iopt{'part_pkg'} = $cust_pkg->part_pkg;
37 % $iopt{'row'} = $row;
38 <!--pkgnum: <% $cust_pkg->pkgnum %>-->
39 <TR CLASS="row<%$row % 2%>">
40 <& package.html, %iopt &>
41 <& status.html, %iopt &>
42 <TD CLASS="inv" BGCOLOR="<% $iopt{bgcolor} %>" WIDTH="20%" VALIGN="top">
43 <& contact.html, %iopt &>
44 <& location.html, %iopt &>
46 % if (!$iopt{no_services}) {
47 <& services.html, %iopt &>
50 % # insert hidden predecessors to this package, if any
51 % # and a rolldown button to show them
52 % # (we'll make it do something later)
53 % if ( $cust_pkg->get('changed_from_pkg') ) {
54 <TR CLASS="row<% $row % 2 %>">
56 <BUTTON CLASS="rolldown_button"
57 ID="rolldown_<% $cust_pkg->change_pkgnum %>">
60 % # the hidden block here has ID="cust_pkgX" where X is the first pkgnum
62 <& hidden.html, $cust_pkg->get('changed_from_pkg'),
64 'next_pkg' => $cust_pkg,
70 % # show the change target, if there is one
71 % if ( $cust_pkg->change_to_pkg ) {
72 <& .packagerow, $cust_pkg->change_to_pkg, %iopt, 'change_from' => 1 &>
74 % # include supplemental packages if any
75 % if ( $cust_pkg->_supplemental ) {
76 % $iopt{'supplemental'} = ($iopt{'supplemental'} || 0) + 1;
77 % foreach my $supp_pkg (@{ $cust_pkg->_supplemental }) {
78 <& .packagerow, $supp_pkg, %iopt &>
88 my $conf = new FS::Conf;
90 my $curuser = $FS::CurrentUser::CurrentUser;
92 my $packages = $opt{'packages'};
94 # Sort order is hardcoded for now, can change this if needed.
96 ( $a->getfield('cancel') <=> $b->getfield('cancel') ) or
97 ( $a->getfield('setup') <=> $b->getfield('setup') ) or
98 ( $a->getfield('pkgnum') <=> $b->getfield('pkgnum') )
101 my %change_custnum = map { $_->change_custnum => 1 }
102 grep { $_->change_custnum }
103 grep { $_->getfield('cancel') }
106 my $pkg_attached = ( scalar(keys %change_custnum) == 1
107 && ! grep { ! $_->getfield('cancel') } @$packages
110 my $countrydefault = scalar($conf->config('countrydefault')) || 'US';
114 'invoice-unitprice' => $conf->exists('invoice-unitprice'),
115 'show_pkgnum' => $curuser->option('show_pkgnum'),
116 'part_pkg-term_discounts' => $conf->exists('part_pkg-term_discounts'),
118 #for services.html and status.html
119 'cust_pkg-display_times' => ($conf->exists('cust_pkg-display_times')
120 || $curuser->option('cust_pkg-display_times')),
122 'cust_pkg-show_autosuspend' => $conf->exists('cust_pkg-show_autosuspend'),
123 'pkg_attached' => $pkg_attached,
124 'part_pkg-delay_cancel-days' => $conf->config('part_pkg-delay_cancel-days') || 1,
125 #for status.html pkg-balances
126 'pkg-balances' => $conf->exists('pkg-balances'),
127 'money_char' => ( $conf->config('money_char') || '$' ),
130 'countrydefault' => $countrydefault,
131 'statedefault' => ( scalar($conf->config('statedefault'))
132 || ($countrydefault eq 'US' ? 'CA' : '') ),
133 'cust_pkg-group_by_location'=> $conf->exists('cust_pkg-group_by_location'),
134 'cust_main-require_censustract'=> $conf->exists('cust_main-require_censustract'),
135 'company_address' => [ $conf->config('company_address', $opt{cust_main}->agentnum ) ],
138 'svc_external-skip_manual' => $conf->exists('svc_external-skip_manual'),
139 'svc_phone-bulk_provision_simple' => $conf->exists('svc_phone-bulk_provision_simple'),
140 'legacy_link' => $conf->exists('legacy_link'),
141 'manage_link' => scalar($conf->config('svc_broadband-manage_link')),
142 'manage_link_text' => scalar($conf->config('svc_broadband-manage_link_text')),
143 'manage_link_loc' => scalar($conf->config('svc_broadband-manage_link_loc')),
144 'manage_link-new_window' => $conf->exists('svc_broadband-manage_link-new_window'),
145 'cust_pkg-large_pkg_size' => scalar($conf->config('cust_pkg-large_pkg_size')),
146 'cust_pkg-hide_discontinued-part_svc' => $conf->exists('cust_pkg-hide_discontinued-part_svc'),