3 my $conf = new FS::Conf;
5 my $packages = get_packages($cust_main, $conf);
8 <STYLE TYPE="text/css">
9 .package .provision { font-weight: bold }
12 <A NAME="cust_pkg"><FONT SIZE="+2">Packages</FONT></A>
14 <%= include('order_pkg.html', $cust_main ) %>
16 <% if ( $conf->config('payby-default') ne 'HIDE' ) { %>
17 <%= include('quick-charge.html', $cust_main ) %>
20 <A HREF="<%= $p %>edit/cust_pkg.cgi?<%= $cust_main->custnum %>">Bulk order and cancel packages</A> (preserves services)
23 <% if ( @$packages ) { %>
27 <% if ( $cust_main->num_cancelled_pkgs ) {
28 if ( $cgi->param('showcancelledpackages') eq '0' #see if it was set by me
29 || ( $conf->exists('hidecancelledpackages')
30 && ! $cgi->param('showcancelledpackages')
34 $cgi->param('showcancelledpackages', 1);
36 ( <a href="<%= $cgi->self_url %>">show
38 $cgi->param('showcancelledpackages', 0);
40 ( <a href="<%= $cgi->self_url %>">hide
42 cancelled packages</a> )
45 <% if ( @$packages ) { %>
47 <TABLE CLASS="package" BORDER=1 CELLSPACING=0 CELLPADDING=2 BORDERCOLOR="#999999">
51 <TH COLSPAN=2>Services</TH>
55 foreach my $pkg (sort pkgsort_pkgnum_cancel @$packages) {
61 foreach my $svcpart (@{$pkg->{svcparts}}) {
62 $rowspan += $svcpart->{count};
63 $rowspan++ if ($svcpart->{count} < $svcpart->{quantity});
68 <!--pkgnum: <%=$pkg->{pkgnum}%>-->
70 <TD ROWSPAN=<%=$rowspan%>>
71 <A NAME="cust_pkg<%=$pkg->{pkgnum}%>"><%=$pkg->{pkgnum}%></A>:
72 <%=$pkg->{pkg}%> - <%=$pkg->{comment}%><BR>
73 <% unless ($pkg->{cancel}) { %>
74 ( <%=pkg_change_link($pkg)%> )
75 ( <%=pkg_dates_link($pkg)%> | <%=pkg_customize_link($pkg,$cust_main->custnum)%> )
78 <TD ROWSPAN=<%=$rowspan%>>
79 <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%">
84 my $freq = $part_pkg->freq_pretty;
85 $freq =~ s/ / /g;
89 #this should use cust_pkg->status and cust_pkg->statuscolor eventually
91 my $colspan = $conf->exists('cust_pkg-display_times') ? 8 : 4;
92 my $width = $conf->exists('cust_pkg-display_times') ? '38%' : '56%';
94 #false laziness w/edit/REAL_cust_pkg.cgi
95 my( $billed_or_prepaid, $last_bill_or_renewed, $next_bill_or_prepaid_until );
96 unless ( $pkg->{'part_pkg'}->is_prepaid ) {
97 $billed_or_prepaid = 'billed';
98 $last_bill_or_renewed = 'Last bill';
99 $next_bill_or_prepaid_until = 'Next bill';
101 $billed_or_prepaid = 'prepaid';
102 $last_bill_or_renewed = 'Renewed';
103 $next_bill_or_prepaid_until = 'Prepaid until';
108 <% if ( $pkg->{cancel} ) { %> <!-- #status: cancelled -->
111 <TD WIDTH="<%=$width%>" ALIGN="right"><FONT COLOR="#ff0000"><B>Cancelled </B></FONT></TD>
112 <%= pkg_datestr($pkg,'cancel',$conf) %>
115 <% unless ( $pkg->{setup} ) { %>
118 <TD COLSPAN=<%=$colspan%>>Never billed</TD>
124 <TD WIDTH="<%=$width%>" ALIGN="right">Setup </TD>
125 <%= pkg_datestr($pkg, 'setup',$conf) %>
128 <% if ( $pkg->{'last_bill'} ) { %>
130 <TD WIDTH="<%=$width%>" ALIGN="right"><%= $last_bill_or_renewed %> </TD>
131 <%= pkg_datestr($pkg, 'last_bill',$conf) %>
135 <% if ( $pkg->{'susp'} ) { %>
137 <TD WIDTH="<%=$width%>" ALIGN="right">Suspended </TD>
138 <%= pkg_datestr($pkg, 'susp',$conf) %>
146 <% if ( $pkg->{susp} ) { %> <!-- #status: suspended -->
149 <TD WIDTH="<%=$width%>" ALIGN="right"><FONT COLOR="#FF9900"><B>Suspended</B> </FONT></TD>
150 <%= pkg_datestr($pkg,'susp',$conf) %>
153 <% unless ( $pkg->{setup} ) { %>
156 <TD COLSPAN=<%=$colspan%>>Never billed</TD>
162 <TD WIDTH="<%=$width%>" ALIGN="right">Setup </TD>
163 <%= pkg_datestr($pkg, 'setup',$conf) %>
168 <% if ( $pkg->{'last_bill'} ) { %>
170 <TD WIDTH="<%=$width%>" ALIGN="right"><%= $last_bill_or_renewed %> </TD>
171 <%= pkg_datestr($pkg, 'last_bill',$conf) %>
175 <!-- # next bill ?? -->
177 <% if ( $pkg->{'expire'} ) { %>
179 <TD WIDTH="<%=$width%>" ALIGN="right">Expires </TD>
180 <%= pkg_datestr($pkg, 'expire',$conf) %>
185 <TD COLSPAN=<%=$colspan%>>( <%= pkg_unsuspend_link($pkg) %> | <%= pkg_cancel_link($pkg) %> )</TD>
188 <% } else { %> <!-- #status: active -->
190 <% unless ( $pkg->{setup} ) { %> <!-- #not setup -->
192 <% unless ( $pkg->{'freq'} ) { %>
195 <TD COLSPAN=<%=$colspan%>>Not yet billed (one-time charge)</TD>
199 <TD COLSPAN=<%=$colspan%>>( <%= pkg_cancel_link($pkg) %> )</TD>
205 <TD COLSPAN=<%=$colspan%>>Not yet billed (<%= $billed_or_prepaid %> <%= myfreq($pkg->{part_pkg}) %>)</TD>
210 <% } else { %> <!-- #setup -->
212 <% unless ( $pkg->{freq} ) { %>
215 <TD COLSPAN=<%=$colspan%>>One-time charge</TD>
219 <TD WIDTH="<%=$width%>" ALIGN="right">Billed </TD>
220 <%= pkg_datestr($pkg,'setup',$conf) %>
226 <TD COLSPAN=<%=$colspan%>><FONT COLOR="#00CC00"><B>Active</B></FONT>, <%= $billed_or_prepaid %> <%= myfreq($pkg->{part_pkg}) %></TD>
230 <TD WIDTH="<%=$width%>" ALIGN="right">Setup </TD>
231 <%= pkg_datestr($pkg, 'setup',$conf) %>
238 <% if ( $pkg->{'last_bill'} ) { %>
240 <TD WIDTH="<%=$width%>" ALIGN="right"><%= $last_bill_or_renewed %> </TD>
241 <%= pkg_datestr($pkg, 'last_bill',$conf) %>
245 <% if ( $pkg->{'next_bill'} ) { %>
247 <TD WIDTH="<%=$width%>" ALIGN="right"><%= $next_bill_or_prepaid_until %> </TD>
248 <%= pkg_datestr($pkg, 'next_bill',$conf) %>
252 <% if ( $pkg->{'expire'} ) { %>
254 <TD WIDTH="<%=$width%>" ALIGN="right">Expires </TD>
255 <%= pkg_datestr($pkg, 'expire',$conf) %>
259 <% if ( $pkg->{freq} ) { %>
261 <TD COLSPAN=<%=$colspan%>>( <%= pkg_suspend_link($pkg) %> | <%= pkg_cancel_link($pkg) %> )</TD>
273 if ($rowspan == 0) { print qq!</TR>\n!; next; }
276 foreach my $svcpart (sort {$a->{svcpart} <=> $b->{svcpart}} @{$pkg->{svcparts}}) {
277 foreach my $service (@{$svcpart->{services}}) {
278 print '<TR>' if ($cnt > 0);
280 <TD><%=svc_link($svcpart,$service)%></TD>
281 <TD><%=svc_label_link($svcpart,$service)%><BR>( <%=svc_unprovision_link($service)%> )</TD>
286 if ($svcpart->{count} < $svcpart->{quantity}) {
287 print qq!<TR>\n! if ($cnt > 0);
288 print qq! <TD COLSPAN=2>!.svc_provision_link($pkg, $svcpart, $conf).qq!</TD>\n</TR>\n!;
292 #end display packages
304 my $cust_main = shift or return undef;
309 if ( $cgi->param('showcancelledpackages') eq '0' #see if it was set by me
310 || ( $conf->exists('hidecancelledpackages')
311 && ! $cgi->param('showcancelledpackages') )
314 $method = 'ncancelled_pkgs';
316 $method = 'all_pkgs';
319 foreach my $cust_pkg ( $cust_main->$method() ) {
321 my $part_pkg = $cust_pkg->part_pkg;
325 #to get back to the original object... should use it in the first place!!
326 $pkg{cust_pkg} = $cust_pkg;
327 $pkg{part_pkg} = $part_pkg;
329 $pkg{pkgnum} = $cust_pkg->pkgnum;
330 $pkg{pkg} = $part_pkg->pkg;
331 $pkg{pkgpart} = $part_pkg->pkgpart;
332 $pkg{comment} = $part_pkg->getfield('comment');
333 $pkg{freq} = $part_pkg->freq;
334 $pkg{setup} = $cust_pkg->getfield('setup');
335 $pkg{last_bill} = $cust_pkg->getfield('last_bill');
336 $pkg{next_bill} = $cust_pkg->getfield('bill');
337 $pkg{susp} = $cust_pkg->getfield('susp');
338 $pkg{expire} = $cust_pkg->getfield('expire');
339 $pkg{cancel} = $cust_pkg->getfield('cancel');
345 'quantity' => $_->quantity,
346 'count' => $cust_pkg->num_cust_svc($_->svcpart),
349 } $part_pkg->pkg_svc;
351 foreach my $cust_svc ( $cust_pkg->cust_svc ) {
352 #warn "svcnum ". $cust_svc->svcnum. " / svcpart ". $cust_svc->svcpart. "\n";
354 'svcnum' => $cust_svc->svcnum,
355 'label' => ($cust_svc->label)[1],
358 #false laziness with above, to catch extraneous services. whole
359 #damn thing should be OO...
360 my $svcpart = ( $svcparts{$cust_svc->svcpart} ||= {
361 $cust_svc->part_svc->hash,
363 'count' => $cust_pkg->num_cust_svc($cust_svc->svcpart),
367 push @{$svcpart->{services}}, $svc;
371 $pkg{svcparts} = [ values %svcparts ];
373 push @packages, \%pkg;
383 my ($svcpart, $svc) = (shift,shift) or return '';
384 return qq!<A HREF="${p}view/$svcpart->{svcdb}.cgi?$svc->{svcnum}">$svcpart->{svc}</A>!;
390 my ($svcpart, $svc) = (shift,shift) or return '';
391 return qq!<A HREF="${p}view/$svcpart->{svcdb}.cgi?$svc->{svcnum}">$svc->{label}</A>!;
395 sub svc_provision_link {
396 my ($pkg, $svcpart, $conf) = @_;
397 ( my $svc_nbsp = $svcpart->{svc} ) =~ s/\s+/ /g;
398 my $num_left = $svcpart->{quantity} - $svcpart->{count};
399 my $pkgnum_svcpart = "pkgnum$pkg->{pkgnum}-svcpart$svcpart->{svcpart}";
402 if ( $svcpart->{svcdb} eq 'svc_external'
403 && $conf->exists('svc_external-skip_manual')
405 $url = "${p}edit/process/$svcpart->{svcdb}.cgi?".
406 "pkgnum=$pkg->{pkgnum}&".
407 "svcpart=$svcpart->{svcpart}";
409 $url = "${p}edit/$svcpart->{svcdb}.cgi?$pkgnum_svcpart";
412 my $link = qq!<A CLASS="provision" HREF="$url">!.
413 "Provision $svc_nbsp ($num_left)</A>";
414 if ( $conf->exists('legacy_link') ) {
416 qq!<A CLASS="provision" HREF="${p}misc/link.cgi?!.
417 qq!$pkgnum_svcpart">!.
418 "Link to legacy $svc_nbsp ($num_left)</A>";
423 sub svc_unprovision_link {
424 my $svc = shift or return '';
425 qq!<A HREF="javascript:areyousure('${p}misc/unprovision.cgi?$svc->{svcnum}',!.
426 qq!'Permanently unprovision and delete this service?')">Unprovision</A>!;
429 # This should be generalized to use config options to determine order.
430 sub pkgsort_pkgnum_cancel {
431 if ($a->{cancel} and $b->{cancel}) {
432 return ($a->{pkgnum} <=> $b->{pkgnum});
433 } elsif ($a->{cancel} or $b->{cancel}) {
434 return (-1) if ($b->{cancel});
435 return (1) if ($a->{cancel});
438 return($a->{pkgnum} <=> $b->{pkgnum});
443 my($pkg, $field, $conf) = @_ or return '';
444 return ' ' unless $pkg->{$field};
445 my $format = '<TD align="left"><B>%b</B></TD>'.
446 '<TD align="right"><B> %o,</B></TD>'.
447 '<TD align="right"><B> %Y</B></TD>';
448 #$format .= ' <FONT SIZE=-3>%l:%M:%S%P %z</FONT>'
449 $format .= '<TD ALIGN="right"><B> %l</TD>'.
450 '<TD ALIGN="center"><B>:</B></TD>'.
451 '<TD ALIGN="left"><B>%M</B></TD>'.
452 '<TD ALIGN="left"><B> %P</B></TD>'
453 if $conf->exists('cust_pkg-display_times');
454 ( my $strip = time2str($format, $pkg->{$field}) ) =~ s/ (\d)/$1/g;
458 sub pkg_change_link {
459 my $pkg = shift or return '';
460 return qq!<a href="${p}misc/change_pkg.cgi?$pkg->{pkgnum}">!.
461 qq!Change package</a>!;
464 sub pkg_suspend_link {
465 my $pkg = shift or return '';
466 return qq!<a href="${p}misc/susp_pkg.cgi?$pkg->{pkgnum}">Suspend</a>!;
469 sub pkg_unsuspend_link {
470 my $pkg = shift or return '';
471 return qq!<a href="${p}misc/unsusp_pkg.cgi?$pkg->{pkgnum}">Unsuspend</a>!;
474 sub pkg_cancel_link {
475 my $pkg = shift or return '';
476 qq!<A HREF="javascript:areyousure('${p}misc/cancel_pkg.cgi?$pkg->{pkgnum}', !.
477 qq!'Permanently delete included services and cancel this package?')">!.
478 qq!Cancel now</A> | !.
479 qq!<A HREF="${p}misc/expire_pkg.cgi?$pkg->{pkgnum}">Cancel later</A>!;
483 my $pkg = shift or return '';
484 qq!<A HREF="${p}edit/REAL_cust_pkg.cgi?$pkg->{pkgnum}">Edit dates</A>!;
487 sub pkg_customize_link {
488 my $pkg = shift or return '';
490 qq!<A HREF="${p}edit/part_pkg.cgi?keywords=$custnum;clone=$pkg->{pkgpart};!.
491 qq!pkgnum=$pkg->{pkgnum}">Customize</A>!;