httemplate/view/cust_main/packages.html

   1 <%
   2   my( $cust_main ) = @_;
   3   my $conf = new FS::Conf;
   4
   5   my $packages = get_packages($cust_main, $conf);
   6 %>
   7
   8 <A NAME="cust_pkg">Packages</A>
   9 ( <A HREF="<%= $p %>edit/cust_pkg.cgi?<%= $cust_main->custnum %>">Bulk order and cancel packages</A> (preserves services) )
  10
  11 <% if ( @$packages ) { %>
  12
  13 <TABLE CLASS="package" BORDER=1 CELLSPACING=0 CELLPADDING=2 BORDERCOLOR="#999999">
  14 <TR>
  15   <TH>Package</TH>
  16   <TH>Status</TH>
  17   <TH COLSPAN=2>Services</TH>
  18 </TR>
  19
  20 <%
  21 foreach my $pkg (sort pkgsort_pkgnum_cancel @$packages) {
  22   my $rowspan = 0;
  23
  24   if ($pkg->{cancel}) {
  25     $rowspan = 0;
  26   } else {
  27     foreach my $svcpart (@{$pkg->{svcparts}}) {
  28       $rowspan += $svcpart->{count};
  29       $rowspan++ if ($svcpart->{count} < $svcpart->{quantity});
  30     }
  31   }
  32 %>
  33
  34 <!--pkgnum: <%=$pkg->{pkgnum}%>-->
  35 <TR>
  36   <TD ROWSPAN=<%=$rowspan%>>
  37     <A NAME="cust_pkg<%=$pkg->{pkgnum}%>"><%=$pkg->{pkgnum}%></A>:
  38     <%=$pkg->{pkg}%> - <%=$pkg->{comment}%><BR>
  39 <% unless ($pkg->{cancel}) { %>
  40     (&nbsp;<%=pkg_change_link($pkg)%>&nbsp;)
  41     (&nbsp;<%=pkg_dates_link($pkg)%>&nbsp;|&nbsp;<%=pkg_customize_link($pkg,$cust_main->custnum)%>&nbsp;)
  42 <% } %>
  43   </TD>
  44 <%
  45   #foreach (qw(setup last_bill next_bill susp expire cancel)) {
  46   #  print qq!  <TD ROWSPAN=$rowspan>! . pkg_datestr($pkg,$_,$conf) . qq!</TD>\n!;
  47   #}
  48   print "<TD ROWSPAN=$rowspan>". &itable('');
  49
  50   sub myfreq {
  51     my $part_pkg = shift;
  52     my $freq = $part_pkg->freq_pretty;
  53     $freq =~ s/ /&nbsp;/g;
  54     $freq;
  55   }
  56
  57   if ( $pkg->{cancel} ) { #status: cancelled
  58
  59     print '<TR><TD><FONT COLOR="#ff0000"><B>Cancelled&nbsp;</B></FONT></TD>'.
  60           '<TD>'. pkg_datestr($pkg,'cancel',$conf). '</TD></TR>';
  61     unless ( $pkg->{setup} ) {
  62       print '<TR><TD COLSPAN=2>Never billed</TD></TR>';
  63     } else {
  64       print "<TR><TD>Setup&nbsp;</TD><TD>".
  65             pkg_datestr($pkg, 'setup',$conf). '</TD></TR>';
  66       print "<TR><TD>Last&nbsp;bill&nbsp;</TD><TD>".
  67             pkg_datestr($pkg, 'last_bill',$conf). '</TD></TR>'
  68         if $pkg->{'last_bill'};
  69       print "<TR><TD>Suspended&nbsp;</TD><TD>".
  70             pkg_datestr($pkg, 'susp',$conf). '</TD></TR>'
  71         if $pkg->{'susp'};
  72     }
  73
  74   } else {
  75
  76     if ( $pkg->{susp} ) { #status: suspended
  77       print '<TR><TD><FONT COLOR="#FF9900"><B>Suspended</B>&nbsp;</FONT></TD>'.
  78             '<TD>'. pkg_datestr($pkg,'susp',$conf). '</TD></TR>';
  79       unless ( $pkg->{setup} ) {
  80         print '<TR><TD COLSPAN=2>Never billed</TD></TR>';
  81       } else {
  82         print "<TR><TD>Setup&nbsp;</TD><TD>".
  83               pkg_datestr($pkg, 'setup',$conf). '</TD></TR>';
  84       }
  85       print "<TR><TD>Last&nbsp;bill&nbsp;</TD><TD>".
  86             pkg_datestr($pkg, 'last_bill',$conf). '</TD></TR>'
  87         if $pkg->{'last_bill'};
  88       # next bill ??
  89       print "<TR><TD>Expires&nbsp;</TD><TD>".
  90             pkg_datestr($pkg, 'expire',$conf). '</TD></TR>'
  91         if $pkg->{'expire'};
  92       print '<TR><TD COLSPAN=2>(&nbsp;'. pkg_unsuspend_link($pkg).
  93             '&nbsp;|&nbsp;'. pkg_cancel_link($pkg). '&nbsp;)</TD></TR>';
  94
  95     } else { #status: active
  96
  97       unless ( $pkg->{setup} ) { #not setup
  98
  99         print '<TR><TD COLSPAN=2>Not&nbsp;yet&nbsp;billed&nbsp;(';
 100         unless ( $pkg->{freq} ) {
 101           print 'one-time&nbsp;charge)</TD></TR>';
 102           print '<TR><TD COLSPAN=2>(&nbsp;'. pkg_cancel_link($pkg).
 103                 '&nbsp;)</TD</TR>';
 104         } else {
 105           print 'billed&nbsp;'. myfreq($pkg->{part_pkg}). ')</TD></TR>';
 106         }
 107
 108       } else { #setup
 109
 110         unless ( $pkg->{freq} ) {
 111           print "<TR><TD COLSPAN=2>One-time&nbsp;charge</TD></TR>".
 112                 '<TR><TD>Billed&nbsp;</TD><TD>'.
 113                 pkg_datestr($pkg,'setup',$conf). '</TD></TR>';
 114         } else {
 115           print '<TR><TD COLSPAN=2><FONT COLOR="#00CC00"><B>Active</B></FONT>'.
 116                 ',&nbsp;billed&nbsp;'. myfreq($pkg->{part_pkg}). '</TD></TR>'.
 117                 '<TR><TD>Setup&nbsp;</TD><TD>'.
 118                 pkg_datestr($pkg, 'setup',$conf). '</TD></TR>';
 119         }
 120
 121       }
 122
 123       print "<TR><TD>Last&nbsp;bill&nbsp;</TD><TD>".
 124             pkg_datestr($pkg, 'last_bill',$conf). '</TD></TR>'
 125         if $pkg->{'last_bill'};
 126       print "<TR><TD>Next&nbsp;bill&nbsp;</TD><TD>".
 127             pkg_datestr($pkg, 'next_bill',$conf). '</TD></TR>'
 128         if $pkg->{'next_bill'};
 129       print "<TR><TD>Expires&nbsp;</TD><TD>".
 130             pkg_datestr($pkg, 'expire',$conf). '</TD></TR>'
 131         if $pkg->{'expire'};
 132       if ( $pkg->{freq} ) {
 133         print '<TR><TD COLSPAN=2>(&nbsp;'. pkg_suspend_link($pkg).
 134               '&nbsp;|&nbsp;'. pkg_cancel_link($pkg). '&nbsp;)</TD></TR>';
 135       }
 136
 137     }
 138
 139   }
 140
 141   print "</TABLE></TD>\n";
 142
 143   if ($rowspan == 0) { print qq!</TR>\n!; next; }
 144
 145   my $cnt = 0;
 146   foreach my $svcpart (sort {$a->{svcpart} <=> $b->{svcpart}} @{$pkg->{svcparts}}) {
 147     foreach my $service (@{$svcpart->{services}}) {
 148       print '<TR>' if ($cnt > 0);
 149 %>
 150   <TD><%=svc_link($svcpart,$service)%></TD>
 151   <TD><%=svc_label_link($svcpart,$service)%><BR>(&nbsp;<%=svc_unprovision_link($service)%>&nbsp;)</TD>
 152 </TR>
 153 <%
 154       $cnt++;
 155     }
 156     if ($svcpart->{count} < $svcpart->{quantity}) {
 157       print qq!<TR>\n! if ($cnt > 0);
 158       print qq!  <TD COLSPAN=2>!.svc_provision_link($pkg, $svcpart, $conf).qq!</TD>\n</TR>\n!;
 159     }
 160   }
 161 }
 162 print '</TABLE>';
 163 }
 164
 165 #end display packages
 166 %>
 167
 168 <%
 169 #subroutines
 170
 171 sub get_packages {
 172   my $cust_main = shift or return undef;
 173   my $conf = shift;
 174
 175   my @packages = ();
 176
 177   foreach my $cust_pkg (
 178     $conf->exists('hidecancelledpackages')
 179       ? $cust_main->ncancelled_pkgs
 180       : $cust_main->all_pkgs
 181   ) {
 182
 183     my $part_pkg = $cust_pkg->part_pkg;
 184
 185     my %pkg = ();
 186
 187     #to get back to the original object... should use it in the first place!!
 188     $pkg{cust_pkg} = $cust_pkg;
 189     $pkg{part_pkg} = $part_pkg;
 190
 191     $pkg{pkgnum} = $cust_pkg->pkgnum;
 192     $pkg{pkg} = $part_pkg->pkg;
 193     $pkg{pkgpart} = $part_pkg->pkgpart;
 194     $pkg{comment} = $part_pkg->getfield('comment');
 195     $pkg{freq} = $part_pkg->freq;
 196     $pkg{setup} = $cust_pkg->getfield('setup');
 197     $pkg{last_bill} = $cust_pkg->getfield('last_bill');
 198     $pkg{next_bill} = $cust_pkg->getfield('bill');
 199     $pkg{susp} = $cust_pkg->getfield('susp');
 200     $pkg{expire} = $cust_pkg->getfield('expire');
 201     $pkg{cancel} = $cust_pkg->getfield('cancel');
 202
 203
 204     my %svcparts = map {
 205       $_->svcpart => {
 206                        $_->part_svc->hash,
 207                        'quantity' => $_->quantity,
 208                        'count'    => $cust_pkg->num_cust_svc($_->svcpart),
 209                        #'services' => [],
 210                      };
 211     } $part_pkg->pkg_svc;
 212
 213     foreach my $cust_svc ( $cust_pkg->cust_svc ) {
 214       #warn "svcnum ". $cust_svc->svcnum. " / svcpart ". $cust_svc->svcpart. "\n";
 215       my $svc = {
 216         'svcnum' => $cust_svc->svcnum,
 217         'label'  => ($cust_svc->label)[1],
 218       };
 219
 220       #false laziness with above, to catch extraneous services.  whole
 221       #damn thing should be OO...
 222       my $svcpart = ( $svcparts{$cust_svc->svcpart} ||= {
 223         $cust_svc->part_svc->hash,
 224         'quantity' => 0,
 225         'count'    => $cust_pkg->num_cust_svc($cust_svc->svcpart),
 226         #'services' => [],
 227       } );
 228
 229       push @{$svcpart->{services}}, $svc;
 230
 231     }
 232
 233     $pkg{svcparts} = [ values %svcparts ];
 234
 235     push @packages, \%pkg;
 236
 237   }
 238
 239   return \@packages;
 240
 241 }
 242
 243 sub svc_link {
 244
 245   my ($svcpart, $svc) = (shift,shift) or return '';
 246   return qq!<A HREF="${p}view/$svcpart->{svcdb}.cgi?$svc->{svcnum}">$svcpart->{svc}</A>!;
 247
 248 }
 249
 250 sub svc_label_link {
 251
 252   my ($svcpart, $svc) = (shift,shift) or return '';
 253   return qq!<A HREF="${p}view/$svcpart->{svcdb}.cgi?$svc->{svcnum}">$svc->{label}</A>!;
 254
 255 }
 256
 257 sub svc_provision_link {
 258   my ($pkg, $svcpart, $conf) = @_;
 259   ( my $svc_nbsp = $svcpart->{svc} ) =~ s/\s+/&nbsp;/g;
 260   my $num_left = $svcpart->{quantity} - $svcpart->{count};
 261   my $pkgnum_svcpart = "pkgnum$pkg->{pkgnum}-svcpart$svcpart->{svcpart}";
 262
 263   my $url;
 264   if ( $svcpart->{svcdb} eq 'svc_external'
 265        && $conf->exists('svc_external-skip_manual')
 266   ) {
 267     $url = "${p}edit/process/$svcpart->{svcdb}.cgi?".
 268            "pkgnum=$pkg->{pkgnum}&".
 269            "svcpart=$svcpart->{svcpart}";
 270   } else {
 271     $url = "${p}edit/$svcpart->{svcdb}.cgi?$pkgnum_svcpart";
 272   }
 273
 274   my $link = qq!<A CLASS="provision" HREF="$url">!.
 275              "Provision&nbsp;$svc_nbsp&nbsp;($num_left)</A>";
 276   if ( $conf->exists('legacy_link') ) {
 277     $link .= '<BR>'.
 278              qq!<A CLASS="provision" HREF="${p}misc/link.cgi?!.
 279              qq!$pkgnum_svcpart">!.
 280             "Link&nbsp;to&nbsp;legacy&nbsp;$svc_nbsp&nbsp;($num_left)</A>";
 281   }
 282   $link;
 283 }
 284
 285 sub svc_unprovision_link {
 286   my $svc = shift or return '';
 287   qq!<A HREF="javascript:areyousure('${p}misc/unprovision.cgi?$svc->{svcnum}',!.
 288   qq!'Permanently unprovision and delete this service?')">Unprovision</A>!;
 289 }
 290
 291 # This should be generalized to use config options to determine order.
 292 sub pkgsort_pkgnum_cancel {
 293   if ($a->{cancel} and $b->{cancel}) {
 294     return ($a->{pkgnum} <=> $b->{pkgnum});
 295   } elsif ($a->{cancel} or $b->{cancel}) {
 296     return (-1) if ($b->{cancel});
 297     return (1) if ($a->{cancel});
 298     return (0);
 299   } else {
 300     return($a->{pkgnum} <=> $b->{pkgnum});
 301   }
 302 }
 303
 304 sub pkg_datestr {
 305   my($pkg, $field, $conf) = @_ or return '';
 306   return '&nbsp;' unless $pkg->{$field};
 307   my $format = $conf->exists('pkg_showtimes')
 308                ? '<B>%D</B>&nbsp;<FONT SIZE=-3>%l:%M:%S%P&nbsp;%z</FONT>'
 309                : '<B>%b&nbsp;%o,&nbsp;%Y</B>';
 310   ( my $strip = time2str($format, $pkg->{$field}) ) =~ s/ (\d)/$1/g;
 311   $strip;
 312 }
 313
 314 sub pkg_change_link {
 315   my $pkg = shift or return '';
 316   return qq!<a href="${p}misc/change_pkg.cgi?$pkg->{pkgnum}">!.
 317          qq!Change&nbsp;package</a>!;
 318 }
 319
 320 sub pkg_suspend_link {
 321   my $pkg = shift or return '';
 322   return qq!<a href="${p}misc/susp_pkg.cgi?$pkg->{pkgnum}">Suspend</a>!;
 323 }
 324
 325 sub pkg_unsuspend_link {
 326   my $pkg = shift or return '';
 327   return qq!<a href="${p}misc/unsusp_pkg.cgi?$pkg->{pkgnum}">Unsuspend</a>!;
 328 }
 329
 330 sub pkg_cancel_link {
 331   my $pkg = shift or return '';
 332   qq!<A HREF="javascript:areyousure('${p}misc/cancel_pkg.cgi?$pkg->{pkgnum}', !.
 333   qq!'Permanently delete included services and cancel this package?')">!.
 334   qq!Cancel now</A> | !.
 335   qq!<A HREF="${p}misc/expire_pkg.cgi?$pkg->{pkgnum}">Cancel later</A>!;
 336 }
 337
 338 sub pkg_dates_link {
 339   my $pkg = shift or return '';
 340   qq!<A HREF="${p}edit/REAL_cust_pkg.cgi?$pkg->{pkgnum}">Edit&nbsp;dates</A>!;
 341 }
 342
 343 sub pkg_customize_link {
 344   my $pkg = shift or return '';
 345   my $custnum = shift;
 346   qq!<A HREF="${p}edit/part_pkg.cgi?keywords=$custnum;clone=$pkg->{pkgpart};!.
 347   qq!pkgnum=$pkg->{pkgnum}">Customize</A>!;
 348 }
 349
 350 %>