-%
-% my( $cust_main ) = @_;
-% my $conf = new FS::Conf;
-%
-% my $curuser = $FS::CurrentUser::CurrentUser;
-%
-% my $packages = get_packages($cust_main, $conf);
-%
+<STYLE TYPE="text/css">
+td.package {
+ vertical-align: top;
+ border-width: 0;
+ border-style: solid;
+}
+table.package {
+ border: none;
+ padding: 0;
+ border-spacing: 0;
+ width: 100%;
+}
+table.usage {
+ border: 1px solid black;
+ margin: auto;
+ width: 60%;
+ border-spacing: 0px;
+}
+.shared > * {
+ background-color: #ffffaa;
+}
+.row0 { background-color: #eeeeee; }
+.row1 { background-color: #ffffff; }
+
+table.hiddenrows {
+ width: 80%;
+ margin-left: 100px;
+ border: 1px solid #7E0079;
+ background-color: #cccccc;
+}
+
+.hiddenrows td {
+ text-align: center;
+}
+
+.rolldown_button {
+ min-width: 80px;
+ margin-left: 100px;
+ min-height: 20px;
+ background-color: #efefef;
+ border: 1px solid #7e0079;
+ z-index: 1;
+ text-align: center;
+}
+</STYLE>
+% # activate rolldown buttons for hidden package blocks
+<SCRIPT TYPE="text/javascript">
+function toggle_rolldown() {
+ var up_arrow = <% decode_entities('⬆') |js_string %>;
+ var dn_arrow = <% decode_entities('⬇') |js_string %>;
+ var pkgnum = this.id.replace('rolldown_', '');
+ var hidden = document.getElementById('cust_pkg'+pkgnum+'_block');
+ if (hidden.style.display == 'none') {
+ hidden.style.display = '';
+ this.textContent = this.textContent.replace(dn_arrow, up_arrow);
+ } else {
+ hidden.style.display = 'none';
+ this.textContent = this.textContent.replace(up_arrow, dn_arrow);
+ }
+}
+<&| /elements/onload.js &>
+var el;
+% if ( $cgi->param('fragment') =~ /^cust_pkg(\d+)$/ ) {
+% # IE-specific hack, but also unhide the row if it's in a hidden block
+el = document.getElementById('cust_pkg<% $1 %>');
+% }
+var all_buttons = document.getElementsByClassName('rolldown_button');
+for (var i = 0; i < all_buttons.length; i++) {
+ all_buttons[i].onclick = toggle_rolldown;
+ var block_id = all_buttons[i].id.replace('rolldown_', '');
+ if ( el && document.getElementById('cust_pkg'+block_id+'_block')
+ .contains(el)
+ ) {
+ // then toggle it now
+ all_buttons[i].click();
+ }
+}
+if ( el ) el.scrollIntoView(true);
+</&>
+</SCRIPT>
+% unless ( $opt{no_links} ) {
+
+% my $s = 0;
+
+% if ( $curuser->access_right('Qualify service') ) {
+ <% $s++ ? ' | ' : '' %>
+ <& qual_link.html, $cust_main &>
+% }
-
-<A NAME="cust_pkg"><FONT SIZE="+2">Packages</FONT></A>
% if ( $curuser->access_right('Order customer package') ) {
-
- <% include('order_pkg.html', $cust_main ) %>
+ <% $s++ ? ' | ' : '' %>
+ <& /elements/order_pkg_link.html, 'cust_main'=>$cust_main &>
% }
-% if ( $curuser->access_right('One-time charge')
-% && $conf->config('payby-default') ne 'HIDE'
-% ) {
-%
- <% include('quick-charge.html', $cust_main ) %>
+% if ( $curuser->access_right('One-time charge') ) {
+ <% $s++ ? ' | ' : '' %>
+ <& /elements/one_time_charge_link.html, 'custnum'=>$cust_main->custnum &>
% }
-% if ( $curuser->access_right('Bulk change customer packages') ) {
- <A HREF="<% $p %>edit/cust_pkg.cgi?<% $cust_main->custnum %>">Bulk order and cancel packages</A> (preserves services)
+% if ( $curuser->access_right('Bulk move customer services') ) {
+ <% $s++ ? ' | ' : '' %>
+
+ <& /elements/popup_link-cust_main.html,
+ 'label' => emt('Move services between packages'),
+ 'action' => "${p}edit/bulk-cust_svc-pkgnum.html",
+ 'cust_main' => $cust_main,
+ 'actionlabel' => emt('Move services'),
+ 'width' => 968, #763,
+ 'height' => 575,
+ &>
+
% }
+% if ( $curuser->access_right('Bulk change customer packages') ) {
+ <% $s++ ? ' | ' : '' %>
+ <A HREF="<% $p %>edit/cust_pkg.cgi?<% $cust_main->custnum %>"><% mt('Bulk order and cancel packages') |h %></A>
+% }
<BR><BR>
-% if ( @$packages ) {
-Current packages
-% }
+% } # unless $opt{no_links}
+
+<TABLE>
+ <TR>
+ <TD ALIGN="left" VALIGN="top">
+
% if ( $cust_main->num_cancelled_pkgs ) {
% if ( $cgi->param('showcancelledpackages') eq '0' #see if it was set by me
% || ( $conf->exists('hidecancelledpackages')
% )
% )
% {
+% my $prev = $cgi->param('showcancelledpackages');
% $cgi->param('showcancelledpackages', 1);
-%
-
- ( <a href="<% $cgi->self_url %>">show
+ ( <a href="<% $cgi->self_url %>"><% mt('show') |h %>
+% $cgi->param('showcancelledpackages', $prev);
% } else {
% $cgi->param('showcancelledpackages', 0);
-%
-
- ( <a href="<% $cgi->self_url %>">hide
+ ( <a href="<% $cgi->self_url %>"><% mt('hide') |h %>
+% $cgi->param('showcancelledpackages', 1);
% }
- cancelled packages</a> )
-% }
-% if ( @$packages ) {
-
-
-<% include('/elements/table-grid.html') %>
-% my $bgcolor1 = '#eeeeee';
-% my $bgcolor2 = '#ffffff';
-% my $bgcolor = '';
-%
-
-
-<TR>
- <TH CLASS="grid" BGCOLOR="#cccccc">Package</TH>
- <TH CLASS="grid" BGCOLOR="#cccccc">Status</TH>
- <TH CLASS="grid" BGCOLOR="#cccccc">Services</TH>
-</TR>
-%
-%foreach my $pkg (sort pkgsort_pkgnum_cancel @$packages) {
-%
-% if ( $bgcolor eq $bgcolor1 ) {
-% $bgcolor = $bgcolor2;
-% } else {
-% $bgcolor = $bgcolor1;
-% }
-%
-%
-
-
-<!--pkgnum: <%$pkg->{pkgnum}%>-->
-<TR>
- <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
- <A NAME="cust_pkg<%$pkg->{pkgnum}%>"><%$pkg->{pkgnum}%></A>:
- <%$pkg->{pkg}%> - <%$pkg->{comment}%><BR>
- <FONT SIZE=-1>
-% unless ( $pkg->{cancel} ) {
-% if ( $curuser->access_right('Change customer package') ) {
-
- ( <%pkg_change_link($pkg)%> )
-% }
-% if ( $curuser->access_right('Edit customer package dates') ) {
-
- ( <%pkg_dates_link($pkg)%> )
-% }
-% if ( $curuser->access_right('Customize customer package') ) {
-
- ( <%pkg_customize_link($pkg,$cust_main->custnum)%> )
+ <% mt('cancelled packages') |h %></a> )
% }
-% }
-
- </FONT>
- </TD>
- <TD CLASS="inv" BGCOLOR="<% $bgcolor %>">
- <TABLE CLASS="inv" BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%">
-%
-% sub myfreq {
-% my $part_pkg = shift;
-% my $freq = $part_pkg->freq_pretty;
-% $freq =~ s/ / /g;
-% $freq;
-% }
-%
-% #this should use cust_pkg->status and cust_pkg->statuscolor eventually
-%
-% my $colspan = $conf->exists('cust_pkg-display_times') ? 8 : 4;
-% my $width = $conf->exists('cust_pkg-display_times') ? '38%' : '56%';
-%
-% #false laziness w/edit/REAL_cust_pkg.cgi
-% my( $billed_or_prepaid, $last_bill_or_renewed, $next_bill_or_prepaid_until );
-% unless ( $pkg->{'part_pkg'}->is_prepaid ) {
-% $billed_or_prepaid = 'billed';
-% $last_bill_or_renewed = 'Last bill';
-% $next_bill_or_prepaid_until = 'Next bill';
-% } else {
-% $billed_or_prepaid = 'prepaid';
-% $last_bill_or_renewed = 'Renewed';
-% $next_bill_or_prepaid_until = 'Prepaid until';
-% }
-%
-%
-% if ( $pkg->{cancel} ) {
- <!-- #status: cancelled -->
-
- <TR>
- <TD WIDTH="<%$width%>" ALIGN="right"><FONT COLOR="#ff0000"><B>Cancelled </B></FONT></TD>
- <% pkg_datestr($pkg,'cancel',$conf) %>
- </TR>
-% unless ( $pkg->{setup} ) {
-
+% if ( $num_old_packages ) {
+% $cgi->param('showoldpackages', 1);
+ ( <a href="<% $cgi->self_url %>"><% mt('show old packages') |h %></a> )
+% } elsif ( $cgi->param('showoldpackages') ) {
+% $cgi->param('showoldpackages', 0);
+ ( <a href="<% $cgi->self_url %>"><% mt('hide old packages') |h %></a> )
+% }
- <TR>
- <TD COLSPAN=<%$colspan%>>Never billed</TD>
- </TR>
-% } else {
+ </TD>
+% unless ( $opt{no_links} ) {
- <TR>
- <TD WIDTH="<%$width%>" ALIGN="right">Setup </TD>
- <% pkg_datestr($pkg, 'setup',$conf) %>
- </TR>
-% if ( $pkg->{'last_bill'} ) {
-
- <TR>
- <TD WIDTH="<%$width%>" ALIGN="right"><% $last_bill_or_renewed %> </TD>
- <% pkg_datestr($pkg, 'last_bill',$conf) %>
- </TR>
-% }
-% if ( $pkg->{'susp'} ) {
-
- <TR>
- <TD WIDTH="<%$width%>" ALIGN="right">Suspended </TD>
- <% pkg_datestr($pkg, 'susp',$conf) %>
- </TR>
-% }
-% }
-% } else {
-% if ( $pkg->{susp} ) {
- <!-- #status: suspended -->
-
- <TR>
- <TD WIDTH="<%$width%>" ALIGN="right"><FONT COLOR="#FF9900"><B>Suspended</B> </FONT></TD>
- <% pkg_datestr($pkg,'susp',$conf) %>
- </TR>
-% unless ( $pkg->{setup} ) {
-
-
- <TR>
- <TD COLSPAN=<%$colspan%>>Never billed</TD>
- </TR>
-% } else {
-
-
- <TR>
- <TD WIDTH="<%$width%>" ALIGN="right">Setup </TD>
- <% pkg_datestr($pkg, 'setup',$conf) %>
- </TR>
-% }
-% if ( $pkg->{'last_bill'} ) {
-
- <TR>
- <TD WIDTH="<%$width%>" ALIGN="right"><% $last_bill_or_renewed %> </TD>
- <% pkg_datestr($pkg, 'last_bill',$conf) %>
- </TR>
-% }
-
-
- <!-- # next bill ?? -->
-% if ( $pkg->{'expire'} ) {
-
- <TR>
- <TD WIDTH="<%$width%>" ALIGN="right">Expires </TD>
- <% pkg_datestr($pkg, 'expire',$conf) %>
- </TR>
-% }
-
-
- <TR>
- <TD COLSPAN=<%$colspan%>>
- <FONT SIZE=-1>
-% if ( $curuser->access_right('Unsuspend customer package') ) {
-
- ( <% pkg_unsuspend_link($pkg) %> )
-% }
-% if ( $curuser->access_right('Cancel customer package') ) {
-
- ( <% pkg_cancel_link($pkg) %> )
-% }
-
- </FONT>
- </TD>
- </TR>
-% } else {
- <!-- #status: active -->
-% unless ( $pkg->{setup} ) {
- <!-- #not setup -->
-% unless ( $pkg->{'freq'} ) {
+ <TD ALIGN="right">
+ <A HREF="<%$p%>search/report_cust_pkg.html?custnum=<% $cust_main->custnum %>"><% mt('Package reports') |h %></A>
+% if ( $curuser->access_right('Qualify service') ) {
+ | <A HREF="<%$p%>search/qual.cgi?custnum=<% $cust_main->custnum %>"><% mt('View Qualifications') |h %></A>
+% }
+ <BR>
+ <% mt('Service reports:') |h %>
+ <A HREF="<%$p%>search/report_svc_acct.html?custnum=<% $cust_main->custnum %>"><% mt('accounts') |h %></A><BR>
+ <% mt('Usage reports:') |h %>
+ <A HREF="<%$p%>search/report_cdr.html?custnum=<% $cust_main->custnum %>"><% mt('CDRs') |h %></A>
+ </TD>
+% } # unless $opt{no_links}
- <TR>
- <TD COLSPAN=<%$colspan%>>Not yet billed (one-time charge)</TD>
- </TR>
-
- <TR>
- <TD COLSPAN=<%$colspan%>>
- <FONT SIZE=-1>
-% if ( $curuser->access_right('Cancel customer package immediately') ) {
-
- ( <% pkg_cancel_link($pkg) %> )
-% }
-
- </FONT>
- </TD>
- </TR>
-% } else {
-
-
- <TR>
- <TD COLSPAN=<%$colspan%>>Not yet billed (<% $billed_or_prepaid %> <% myfreq($pkg->{part_pkg}) %>)</TD>
- </TR>
-% }
-% } else {
- <!-- #setup -->
-% unless ( $pkg->{freq} ) {
-
-
- <TR>
- <TD COLSPAN=<%$colspan%>>One-time charge</TD>
- </TR>
-
- <TR>
- <TD WIDTH="<%$width%>" ALIGN="right">Billed </TD>
- <% pkg_datestr($pkg,'setup',$conf) %>
- </TR>
-% } else {
-
-
- <TR>
- <TD COLSPAN=<%$colspan%>><FONT COLOR="#00CC00"><B>Active</B></FONT>, <% $billed_or_prepaid %> <% myfreq($pkg->{part_pkg}) %></TD>
- </TR>
-
- <TR>
- <TD WIDTH="<%$width%>" ALIGN="right">Setup </TD>
- <% pkg_datestr($pkg, 'setup',$conf) %>
- </TR>
-% }
-% }
-% if ( $pkg->{'last_bill'} ) {
-
- <TR>
- <TD WIDTH="<%$width%>" ALIGN="right"><% $last_bill_or_renewed %> </TD>
- <% pkg_datestr($pkg, 'last_bill',$conf) %>
- </TR>
-% }
-% if ( $pkg->{'next_bill'} ) {
-
- <TR>
- <TD WIDTH="<%$width%>" ALIGN="right"><% $next_bill_or_prepaid_until %> </TD>
- <% pkg_datestr($pkg, 'next_bill',$conf) %>
- </TR>
-% }
-% if ( $pkg->{'expire'} ) {
-
- <TR>
- <TD WIDTH="<%$width%>" ALIGN="right">Expires </TD>
- <% pkg_datestr($pkg, 'expire',$conf) %>
- </TR>
-% }
-% if ( $pkg->{freq} ) {
-
- <TR>
- <TD COLSPAN=<%$colspan%>>
- <FONT SIZE=-1>
-% if ( $curuser->access_right('Suspend customer package') ) {
-
- ( <% pkg_suspend_link($pkg) %> )
-% }
-% if ( $curuser->access_right('Cancel customer package immediately') ) {
-
- ( <% pkg_cancel_link($pkg) %> )
-% }
-% if ( $curuser->access_right('Cancel customer package later') ) {
-
- ( <% pkg_expire_link($pkg) %> )
-% }
-
- <FONT>
- </TD>
- </TR>
-% }
-% }
-% }
-
-
-</TABLE>
-</TD>
-
-<TD CLASS="inv" BGCOLOR="<% $bgcolor %>">
- <TABLE CLASS="inv" BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%">
-%
-% foreach my $svcpart (sort {$a->{svcpart} <=> $b->{svcpart}} @{$pkg->{svcparts}}) {
-% foreach my $service (@{$svcpart->{services}}) {
-%
-
- <TR>
- <TD ALIGN="right" VALIGN="top" ROWSPAN=2><%svc_link($svcpart,$service)%></TD>
- <TD STYLE="padding-bottom:0px"><B><%svc_label_link($svcpart,$service)%></B></TD>
- </TR>
-% if ( $curuser->access_right('Unprovision customer service') ) {
-
- <TR>
- <TD ALIGN="right" VALIGN="top" STYLE="padding-bottom:5px;padding-top:0px"><FONT SIZE="-2">( <%svc_unprovision_link($service)%> )</FONT></TD>
- </TR>
-% }
-% }
-% if ( $curuser->access_right('Provision customer service')
-% && $svcpart->{count} < $svcpart->{quantity}
-% )
-% {
-%
-
-
- <TR>
- <TD COLSPAN=2 ALIGN="center" STYLE="padding-bottom:4px;padding-top:0px">
- <B><% svc_provision_link($pkg, $svcpart, $conf, $curuser) %></B>
- </TD>
- </TR>
-% }
-% }
-
-
-</TABLE>
-</TD>
-% } #end display packages
-%
+ </TR>
+ <TR>
+ <TD COLSPAN=2>
+
+% $opt{cust_main} = $cust_main;
+% $opt{packages} = \@packages;
+% $opt{cust_location_cache} = {};
+% if ( $conf->exists('cust_pkg-group_by_location') ) {
+ <& locations.html, %opt &>
+% } else { # in this format, put all packages in one section
+ <& /elements/table-grid.html &>
+ <& packages/section.html, %opt &>
+ </TABLE>
+% }
+
+ </TD>
+ </TR>
</TABLE>
-% } else {
-
-<BR>
-% }
-%
-%#subroutines
-%
-%sub get_packages {
-% my $cust_main = shift or return undef;
-% my $conf = shift;
-%
-% my @packages = ();
-% my $method;
-% if ( $cgi->param('showcancelledpackages') eq '0' #see if it was set by me
-% || ( $conf->exists('hidecancelledpackages')
-% && ! $cgi->param('showcancelledpackages') )
-% )
-% {
-% $method = 'ncancelled_pkgs';
-% } else {
-% $method = 'all_pkgs';
-% }
-%
-% foreach my $cust_pkg ( $cust_main->$method() ) {
-%
-% my $part_pkg = $cust_pkg->part_pkg;
-%
-% my %pkg = ();
-%
-% #to get back to the original object... should use it in the first place!!
-% $pkg{cust_pkg} = $cust_pkg;
-% $pkg{part_pkg} = $part_pkg;
-%
-% $pkg{pkgnum} = $cust_pkg->pkgnum;
-% $pkg{pkg} = $part_pkg->pkg;
-% $pkg{pkgpart} = $part_pkg->pkgpart;
-% $pkg{comment} = $part_pkg->getfield('comment');
-% $pkg{freq} = $part_pkg->freq;
-% $pkg{setup} = $cust_pkg->getfield('setup');
-% $pkg{last_bill} = $cust_pkg->getfield('last_bill');
-% $pkg{next_bill} = $cust_pkg->getfield('bill');
-% $pkg{susp} = $cust_pkg->getfield('susp');
-% $pkg{expire} = $cust_pkg->getfield('expire');
-% $pkg{cancel} = $cust_pkg->getfield('cancel');
-%
-%
-% my %svcparts = map {
-% $_->svcpart => {
-% $_->part_svc->hash,
-% 'quantity' => $_->quantity,
-% 'count' => $cust_pkg->num_cust_svc($_->svcpart),
-% #'services' => [],
-% };
-% } $part_pkg->pkg_svc;
-%
-% foreach my $cust_svc ( $cust_pkg->cust_svc ) {
-% #warn "svcnum ". $cust_svc->svcnum. " / svcpart ". $cust_svc->svcpart. "\n";
-% my $svc = {
-% 'svcnum' => $cust_svc->svcnum,
-% 'label' => ($cust_svc->label)[1],
-% };
-%
-% #false laziness with above, to catch extraneous services. whole
-% #damn thing should be OO...
-% my $svcpart = ( $svcparts{$cust_svc->svcpart} ||= {
-% $cust_svc->part_svc->hash,
-% 'quantity' => 0,
-% 'count' => $cust_pkg->num_cust_svc($cust_svc->svcpart),
-% #'services' => [],
-% } );
-%
-% push @{$svcpart->{services}}, $svc;
-%
-% }
-%
-% $pkg{svcparts} = [ values %svcparts ];
-%
-% push @packages, \%pkg;
-%
-% }
-%
-% return \@packages;
-%
-%}
-%
-%sub svc_link {
-%
-% my ($svcpart, $svc) = (shift,shift) or return '';
-% return qq!<A HREF="${p}view/$svcpart->{svcdb}.cgi?$svc->{svcnum}">$svcpart->{svc}</A>!;
-%
-%}
-%
-%sub svc_label_link {
-%
-% my ($svcpart, $svc) = (shift,shift) or return '';
-% return qq!<A HREF="${p}view/$svcpart->{svcdb}.cgi?$svc->{svcnum}">$svc->{label}</A>!;
-%
-%}
-%
-%sub svc_provision_link {
-% my ($pkg, $svcpart, $conf, $curuser) = @_;
-% ( my $svc_nbsp = $svcpart->{svc} ) =~ s/\s+/ /g;
-% my $num_left = $svcpart->{quantity} - $svcpart->{count};
-% my $pkgnum_svcpart = "pkgnum$pkg->{pkgnum}-svcpart$svcpart->{svcpart}";
-%
-% my $url;
-% if ( $svcpart->{svcdb} eq 'svc_external'
-% && $conf->exists('svc_external-skip_manual')
-% ) {
-% $url = "${p}edit/process/$svcpart->{svcdb}.cgi?".
-% "pkgnum=$pkg->{pkgnum}&".
-% "svcpart=$svcpart->{svcpart}";
-% } else {
-% $url = "${p}edit/$svcpart->{svcdb}.cgi?$pkgnum_svcpart";
-% }
-%
-% my $link = qq!<A CLASS="provision" HREF="$url">!.
-% "Provision $svc_nbsp ($num_left)</A>";
-% if ( $conf->exists('legacy_link')
-% && $curuser->access_right('View/link unlinked services')
-% )
-% {
-% $link .= '<BR>'.
-% qq!<A CLASS="provision" HREF="${p}misc/link.cgi?!.
-% qq!$pkgnum_svcpart">!.
-% "Link to legacy $svc_nbsp ($num_left)</A>";
-% }
-% $link;
-%}
-%
-%sub svc_unprovision_link {
-% my $svc = shift or return '';
-% qq!<A HREF="javascript:areyousure('${p}misc/unprovision.cgi?$svc->{svcnum}',!.
-% qq!'Permanently unprovision and delete this service?')">Unprovision</A>!;
-%}
-%
-%# This should be generalized to use config options to determine order.
-%sub pkgsort_pkgnum_cancel {
-% if ($a->{cancel} and $b->{cancel}) {
-% return ($a->{pkgnum} <=> $b->{pkgnum});
-% } elsif ($a->{cancel} or $b->{cancel}) {
-% return (-1) if ($b->{cancel});
-% return (1) if ($a->{cancel});
-% return (0);
-% } else {
-% return($a->{pkgnum} <=> $b->{pkgnum});
-% }
-%}
-%
-%sub pkg_datestr {
-% my($pkg, $field, $conf) = @_ or return '';
-% return ' ' unless $pkg->{$field};
-% my $format = '<TD align="left"><B>%b</B></TD>'.
-% '<TD align="right"><B> %o,</B></TD>'.
-% '<TD align="right"><B> %Y</B></TD>';
-% #$format .= ' <FONT SIZE=-3>%l:%M:%S%P %z</FONT>'
-% $format .= '<TD ALIGN="right"><B> %l</TD>'.
-% '<TD ALIGN="center"><B>:</B></TD>'.
-% '<TD ALIGN="left"><B>%M</B></TD>'.
-% '<TD ALIGN="left"><B> %P</B></TD>'
-% if $conf->exists('cust_pkg-display_times');
-% ( my $strip = time2str($format, $pkg->{$field}) ) =~ s/ (\d)/$1/g;
-% $strip;
-%}
-%
-%sub pkg_change_link {
-% my $pkg = shift or return '';
-% return qq!<a href="${p}misc/change_pkg.cgi?$pkg->{pkgnum}">!.
-% qq!Change package</a>!;
-%}
-%
-%sub pkg_suspend_link {
-% my $pkg = shift or return '';
-% return qq!<a href="${p}misc/susp_pkg.cgi?$pkg->{pkgnum}">Suspend</a>!;
-%}
-%
-%sub pkg_unsuspend_link {
-% my $pkg = shift or return '';
-% return qq!<a href="${p}misc/unsusp_pkg.cgi?$pkg->{pkgnum}">Unsuspend</a>!;
-%}
-%
-%sub pkg_cancel_link {
-% my $pkg = shift or return '';
-% qq!<A HREF="javascript:areyousure('${p}misc/cancel_pkg.cgi?$pkg->{pkgnum}', !.
-% qq!'Permanently delete included services and cancel this package?')">!.
-% qq!Cancel now</A>!;
-%}
-%
-%sub pkg_expire_link {
-% my $pkg = shift or return '';
-% qq!<A HREF="${p}misc/expire_pkg.cgi?$pkg->{pkgnum}">Cancel later</A>!;
-%}
-%
-%sub pkg_dates_link {
-% my $pkg = shift or return '';
-% qq!<A HREF="${p}edit/REAL_cust_pkg.cgi?$pkg->{pkgnum}">Edit dates</A>!;
-%}
-%
-%sub pkg_customize_link {
-% my $pkg = shift or return '';
-% my $custnum = shift;
-% qq!<A HREF="${p}edit/part_pkg.cgi?keywords=$custnum;clone=$pkg->{pkgpart};!.
-% qq!pkgnum=$pkg->{pkgnum}">Customize</A>!;
-%}
-%
-%
-
+<%init>
+
+my $cust_main = shift;
+my %opt = @_;
+my $conf = new FS::Conf;
+
+my $curuser = $FS::CurrentUser::CurrentUser;
+
+my $countrydefault = scalar($conf->config('countrydefault')) || 'US';
+
+my $hide_cancelled = 0;
+if ( $cgi->param('showcancelledpackages') eq '0' #see if it was set by me
+ || ( $conf->exists('hidecancelledpackages')
+ && ! $cgi->param('showcancelledpackages') )
+ )
+{
+ $hide_cancelled = 1;
+}
+
+my $cust_pkg_fields =
+ join(', ', map { "cust_pkg.$_ AS $_" } fields('cust_pkg') );
+
+my $part_pkg_fields =
+ join(', ', ( map { "part_pkg.$_ AS part_pkg_$_" } fields('part_pkg') ),
+ 'setup_option.optionvalue AS part_pkg__setup_fee',
+ 'recur_option.optionvalue AS part_pkg__recur_fee',
+ );
+
+my $group_by =
+ join(', ', map "cust_pkg.$_", fields('cust_pkg') ). ', '.
+ join(', ', map "part_pkg.$_", fields('part_pkg') );
+
+my $num_svcs = '( SELECT COUNT(*) FROM cust_svc '.
+ ' WHERE cust_svc.pkgnum = cust_pkg.pkgnum ) AS num_svcs';
+
+# don't exclude cancelled packages at this stage
+my @packages = $cust_main->all_pkgs( {
+ 'select' => "$cust_pkg_fields, $part_pkg_fields, $num_svcs",
+ 'addl_from' => qq{
+ LEFT JOIN part_pkg USING ( pkgpart )
+ LEFT JOIN part_pkg_option AS setup_option
+ ON ( cust_pkg.pkgpart = setup_option.pkgpart
+ AND setup_option.optionname = 'setup_fee' )
+ LEFT JOIN part_pkg_option AS recur_option
+ ON ( cust_pkg.pkgpart = recur_option.pkgpart
+ AND recur_option.optionname = 'recur_fee' )
+ },
+} );
+
+my %change_to_from; # target pkgnum => current cust_pkg, for future changes
+my %changed_from; # old pkgnum => new cust_pkg, for past changes
+
+foreach my $cust_pkg ( @packages ) {
+ my %hash = $cust_pkg->hash;
+ my %part_pkg = map { /^part_pkg_(.+)$/ or die; ( $1 => $hash{$_} ); }
+ grep { /^part_pkg_/ } keys %hash;
+ $cust_pkg->{'_pkgpart'} = new FS::part_pkg \%part_pkg;
+ if ( $cust_pkg->change_to_pkgnum ) {
+ $change_to_from{$cust_pkg->change_to_pkgnum} = $cust_pkg;
+ }
+ if ( $cust_pkg->change_pkgnum ) {
+ $changed_from{$cust_pkg->change_pkgnum} = $cust_pkg;
+ }
+}
+
+# filter out hidden package changes
+if ( keys %change_to_from or keys %changed_from ) {
+ my @displayable_packages;
+ foreach my $cust_pkg (@packages) {
+
+ if ( exists( $change_to_from{$cust_pkg->pkgnum} ) ) {
+
+ # $cust_pkg is an ordered, not-yet-active package change target
+ my $change_from = $change_to_from{ $cust_pkg->pkgnum };
+ $cust_pkg->set('change_from_pkg', $change_from);
+ $change_from->set('change_to_pkg', $cust_pkg);
+
+ } elsif ( exists( $changed_from{$cust_pkg->pkgnum} ) ) {
+
+ # $cust_pkg is a canceled package changed into another packge
+ # hide it under the destination package's history
+ my $changed_to = $changed_from{$cust_pkg->pkgnum};
+ $cust_pkg->set('changed_to_pkg', $changed_to);
+ $changed_to->set('changed_from_pkg', $cust_pkg);
+
+ } else {
+ push @displayable_packages, $cust_pkg;
+ }
+
+ }
+ @packages = @displayable_packages;
+}
+
+# filter all cancelled packages if the user wants
+if ( $hide_cancelled ) {
+ @packages = grep { !$_->get('cancel') } @packages;
+}
+
+# filter out 'old' packages
+my $num_old_packages = scalar(@packages);
+
+unless ( $cgi->param('showoldpackages') ) {
+ my $years = $conf->config('cust_main-packages-years') || 2;
+ my $then = time - $years * 31556926; #60*60*24*365.2422 is close enough
+
+ my %hide = ( 'cancelled' => 'cancel',
+ 'one-time charge' => 'setup',
+ );
+
+ @packages =
+ grep { !exists($hide{$_->status}) or $_->get($hide{$_->status}) > $then
+ or $_->num_svcs #don't hide packages w/services
+ }
+ @packages;
+}
+
+$num_old_packages -= scalar(@packages);
+
+# don't include supplemental packages in this list; they'll be found from
+# their main packages
+# (as will change-target packages)
+@packages = grep !$_->main_pkgnum, @packages;
+
+foreach my $cust_pkg ( @packages ) {
+ $cust_pkg->{'_cust_pkg_discount_active'} =
+ [ $cust_pkg->cust_pkg_discount_active ];
+}
+
+</%init>