-</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
-%
-
-
-</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>