diff options
Diffstat (limited to 'httemplate/view/cust_main/packages.html')
| -rwxr-xr-x | httemplate/view/cust_main/packages.html | 494 |
1 files changed, 494 insertions, 0 deletions
diff --git a/httemplate/view/cust_main/packages.html b/httemplate/view/cust_main/packages.html new file mode 100755 index 000000000..ece1b62bb --- /dev/null +++ b/httemplate/view/cust_main/packages.html @@ -0,0 +1,494 @@ +<% + my( $cust_main ) = @_; + my $conf = new FS::Conf; + + my $packages = get_packages($cust_main, $conf); +%> + +<STYLE TYPE="text/css"> +.package .provision { font-weight: bold } +</STYLE> + +<A NAME="cust_pkg"><FONT SIZE="+2">Packages</FONT></A> + +<%= include('order_pkg.html', $cust_main ) %> + +<% if ( $conf->config('payby-default') ne 'HIDE' ) { %> + <%= include('quick-charge.html', $cust_main ) %> +<% } %> + +<A HREF="<%= $p %>edit/cust_pkg.cgi?<%= $cust_main->custnum %>">Bulk order and cancel packages</A> (preserves services) +<BR><BR> + +<% if ( @$packages ) { %> +Current packages +<% } %> + +<% if ( $cust_main->num_cancelled_pkgs ) { + if ( $cgi->param('showcancelledpackages') eq '0' #see if it was set by me + || ( $conf->exists('hidecancelledpackages') + && ! $cgi->param('showcancelledpackages') + ) + ) + { + $cgi->param('showcancelledpackages', 1); +%> + ( <a href="<%= $cgi->self_url %>">show +<% } else { + $cgi->param('showcancelledpackages', 0); +%> + ( <a href="<%= $cgi->self_url %>">hide +<% } %> + cancelled packages</a> ) +<% } %> + +<% if ( @$packages ) { %> + +<TABLE CLASS="package" BORDER=1 CELLSPACING=0 CELLPADDING=2 BORDERCOLOR="#999999"> +<TR> + <TH>Package</TH> + <TH>Status</TH> + <TH COLSPAN=2>Services</TH> +</TR> + +<% +foreach my $pkg (sort pkgsort_pkgnum_cancel @$packages) { + my $rowspan = 0; + + if ($pkg->{cancel}) { + $rowspan = 0; + } else { + foreach my $svcpart (@{$pkg->{svcparts}}) { + $rowspan += $svcpart->{count}; + $rowspan++ if ($svcpart->{count} < $svcpart->{quantity}); + } + } +%> + +<!--pkgnum: <%=$pkg->{pkgnum}%>--> +<TR> + <TD ROWSPAN=<%=$rowspan%>> + <A NAME="cust_pkg<%=$pkg->{pkgnum}%>"><%=$pkg->{pkgnum}%></A>: + <%=$pkg->{pkg}%> - <%=$pkg->{comment}%><BR> +<% unless ($pkg->{cancel}) { %> + ( <%=pkg_change_link($pkg)%> ) + ( <%=pkg_dates_link($pkg)%> | <%=pkg_customize_link($pkg,$cust_main->custnum)%> ) +<% } %> + </TD> + <TD ROWSPAN=<%=$rowspan%>> + <TABLE 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} ) { %> + + <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> + <% } %> + + <% 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%>>( <%= pkg_unsuspend_link($pkg) %> | <%= pkg_cancel_link($pkg) %> )</TD> + </TR> + + <% } else { %> <!-- #status: active --> + + <% unless ( $pkg->{setup} ) { %> <!-- #not setup --> + + <% unless ( $pkg->{'freq'} ) { %> + + <TR> + <TD COLSPAN=<%=$colspan%>>Not yet billed (one-time charge)</TD> + </TR> + + <TR> + <TD COLSPAN=<%=$colspan%>>( <%= pkg_cancel_link($pkg) %> )</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%>>( <%= pkg_suspend_link($pkg) %> | <%= pkg_cancel_link($pkg) %> )</TD> + </TR> + <% } %> + + <% } %> + +<% } %> + +</TABLE> +</TD> + +<% + if ($rowspan == 0) { print qq!</TR>\n!; next; } + + my $cnt = 0; + foreach my $svcpart (sort {$a->{svcpart} <=> $b->{svcpart}} @{$pkg->{svcparts}}) { + foreach my $service (@{$svcpart->{services}}) { + print '<TR>' if ($cnt > 0); +%> + <TD><%=svc_link($svcpart,$service)%></TD> + <TD><%=svc_label_link($svcpart,$service)%><BR>( <%=svc_unprovision_link($service)%> )</TD> +</TR> +<% + $cnt++; + } + if ($svcpart->{count} < $svcpart->{quantity}) { + print qq!<TR>\n! if ($cnt > 0); + print qq! <TD COLSPAN=2>!.svc_provision_link($pkg, $svcpart, $conf).qq!</TD>\n</TR>\n!; + } + } +} +#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) = @_; + ( 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') ) { + $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> | !. + 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>!; +} + +%> |