httemplate/view/cust_main/packages.html

   1 <%
   2   my( $cust_main ) = @_;
   3   my $conf = new FS::Conf;
   4
   5   my $curuser = $FS::CurrentUser::CurrentUser;
   6
   7   my $packages = get_packages($cust_main, $conf);
   8 %>
   9
  10 <A NAME="cust_pkg"><FONT SIZE="+2">Packages</FONT></A>
  11
  12 <% if ( $curuser->access_right('Order customer package') ) { %>
  13   <%= include('order_pkg.html', $cust_main ) %>
  14 <% } %>
  15
  16 <% if ( $curuser->access_right('One-time charge')
  17         && $conf->config('payby-default') ne 'HIDE'
  18       ) {
  19 %>
  20   <%= include('quick-charge.html', $cust_main ) %>
  21 <% } %>
  22
  23 <% if ( $curuser->access_right('Bulk change customer packages') ) { %>
  24   <A HREF="<%= $p %>edit/cust_pkg.cgi?<%= $cust_main->custnum %>">Bulk order and cancel packages</A> (preserves services)
  25 <% } %>
  26
  27 <BR><BR>
  28
  29 <% if ( @$packages ) { %>
  30 Current packages
  31 <% } %>
  32
  33 <% if ( $cust_main->num_cancelled_pkgs ) {
  34      if ( $cgi->param('showcancelledpackages') eq '0' #see if it was set by me
  35           || ( $conf->exists('hidecancelledpackages')
  36                && ! $cgi->param('showcancelledpackages')
  37              )
  38         )
  39      {
  40        $cgi->param('showcancelledpackages', 1);
  41 %>
  42   ( <a href="<%= $cgi->self_url %>">show
  43 <%   } else {
  44        $cgi->param('showcancelledpackages', 0);
  45 %>
  46   ( <a href="<%= $cgi->self_url %>">hide
  47 <%   } %>
  48  cancelled packages</a> )
  49 <% } %>
  50
  51 <% if ( @$packages ) { %>
  52
  53 <%= include('/elements/table-grid.html') %>
  54
  55 <% my $bgcolor1 = '#eeeeee';
  56    my $bgcolor2 = '#ffffff';
  57    my $bgcolor = '';
  58 %>
  59
  60 <TR>
  61   <TH CLASS="grid" BGCOLOR="#cccccc">Package</TH>
  62   <TH CLASS="grid" BGCOLOR="#cccccc">Status</TH>
  63   <TH CLASS="grid" BGCOLOR="#cccccc">Services</TH>
  64 </TR>
  65
  66 <%
  67 foreach my $pkg (sort pkgsort_pkgnum_cancel @$packages) {
  68
  69   if ( $bgcolor eq $bgcolor1 ) {
  70     $bgcolor = $bgcolor2;
  71   } else {
  72     $bgcolor = $bgcolor1;
  73   }
  74
  75 %>
  76
  77 <!--pkgnum: <%=$pkg->{pkgnum}%>-->
  78 <TR>
  79   <TD CLASS="grid" BGCOLOR="<%= $bgcolor %>">
  80     <A NAME="cust_pkg<%=$pkg->{pkgnum}%>"><%=$pkg->{pkgnum}%></A>:
  81     <%=$pkg->{pkg}%> - <%=$pkg->{comment}%><BR>
  82     <FONT SIZE=-1>
  83       <% unless ( $pkg->{cancel} ) { %>
  84         <% if ( $curuser->access_right('Change customer package') ) { %>
  85             (&nbsp;<%=pkg_change_link($pkg)%>&nbsp;)
  86         <% } %>
  87         <% if ( $curuser->access_right('Edit customer package dates') ) { %>
  88             (&nbsp;<%=pkg_dates_link($pkg)%>&nbsp;)
  89         <% } %>
  90         <% if ( $curuser->access_right('Customize customer package') ) { %>
  91             (&nbsp;<%=pkg_customize_link($pkg,$cust_main->custnum)%>&nbsp;)
  92         <% } %>
  93       <% } %>
  94     </FONT>
  95   </TD>
  96   <TD CLASS="inv" BGCOLOR="<%= $bgcolor %>">
  97     <TABLE CLASS="inv" BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%">
  98
  99 <%
 100   sub myfreq {
 101     my $part_pkg = shift;
 102     my $freq = $part_pkg->freq_pretty;
 103     $freq =~ s/ /&nbsp;/g;
 104     $freq;
 105   }
 106
 107   #this should use cust_pkg->status and cust_pkg->statuscolor eventually
 108
 109   my $colspan = $conf->exists('cust_pkg-display_times') ? 8 : 4;
 110   my $width = $conf->exists('cust_pkg-display_times') ? '38%' : '56%';
 111
 112   #false laziness w/edit/REAL_cust_pkg.cgi
 113   my( $billed_or_prepaid, $last_bill_or_renewed, $next_bill_or_prepaid_until );
 114   unless ( $pkg->{'part_pkg'}->is_prepaid ) {
 115     $billed_or_prepaid = 'billed';
 116     $last_bill_or_renewed = 'Last&nbsp;bill';
 117     $next_bill_or_prepaid_until = 'Next&nbsp;bill';
 118   } else {
 119     $billed_or_prepaid = 'prepaid';
 120     $last_bill_or_renewed = 'Renewed';
 121     $next_bill_or_prepaid_until = 'Prepaid&nbsp;until';
 122   }
 123
 124 %>
 125
 126 <% if ( $pkg->{cancel} ) { %> <!-- #status: cancelled -->
 127
 128   <TR>
 129     <TD WIDTH="<%=$width%>" ALIGN="right"><FONT COLOR="#ff0000"><B>Cancelled&nbsp;</B></FONT></TD>
 130     <%= pkg_datestr($pkg,'cancel',$conf) %>
 131   </TR>
 132
 133   <% unless ( $pkg->{setup} ) { %>
 134
 135     <TR>
 136       <TD COLSPAN=<%=$colspan%>>Never billed</TD>
 137     </TR>
 138
 139   <% } else { %>
 140
 141     <TR>
 142       <TD WIDTH="<%=$width%>" ALIGN="right">Setup&nbsp;</TD>
 143       <%= pkg_datestr($pkg, 'setup',$conf) %>
 144     </TR>
 145
 146     <% if ( $pkg->{'last_bill'} ) { %>
 147       <TR>
 148         <TD WIDTH="<%=$width%>" ALIGN="right"><%= $last_bill_or_renewed %>&nbsp;</TD>
 149         <%= pkg_datestr($pkg, 'last_bill',$conf) %>
 150       </TR>
 151     <% } %>
 152
 153     <% if ( $pkg->{'susp'} ) { %>
 154       <TR>
 155         <TD WIDTH="<%=$width%>" ALIGN="right">Suspended&nbsp;</TD>
 156         <%= pkg_datestr($pkg, 'susp',$conf) %>
 157       </TR>
 158     <% } %>
 159
 160   <% } %>
 161
 162 <% } else { %>
 163
 164   <% if ( $pkg->{susp} ) { %> <!-- #status: suspended -->
 165
 166     <TR>
 167       <TD WIDTH="<%=$width%>" ALIGN="right"><FONT COLOR="#FF9900"><B>Suspended</B>&nbsp;</FONT></TD>
 168       <%= pkg_datestr($pkg,'susp',$conf) %>
 169     </TR>
 170
 171     <% unless ( $pkg->{setup} ) { %>
 172
 173       <TR>
 174         <TD COLSPAN=<%=$colspan%>>Never billed</TD>
 175       </TR>
 176
 177     <% } else { %>
 178
 179       <TR>
 180         <TD WIDTH="<%=$width%>" ALIGN="right">Setup&nbsp;</TD>
 181         <%= pkg_datestr($pkg, 'setup',$conf) %>
 182       </TR>
 183
 184     <% } %>
 185
 186     <% if ( $pkg->{'last_bill'} ) { %>
 187       <TR>
 188         <TD WIDTH="<%=$width%>" ALIGN="right"><%= $last_bill_or_renewed %>&nbsp;</TD>
 189         <%= pkg_datestr($pkg, 'last_bill',$conf) %>
 190       </TR>
 191     <% } %>
 192
 193     <!-- # next bill ?? -->
 194
 195     <% if ( $pkg->{'expire'} ) { %>
 196       <TR>
 197         <TD WIDTH="<%=$width%>" ALIGN="right">Expires&nbsp;</TD>
 198         <%= pkg_datestr($pkg, 'expire',$conf) %>
 199       </TR>
 200     <% } %>
 201
 202     <TR>
 203       <TD COLSPAN=<%=$colspan%>>
 204         <FONT SIZE=-1>
 205           <% if ( $curuser->access_right('Unsuspend customer package') ) { %>
 206             (&nbsp;<%= pkg_unsuspend_link($pkg) %>&nbsp;)
 207           <% } %>
 208           <% if ( $curuser->access_right('Cancel customer package') ) { %>
 209             (&nbsp;<%= pkg_cancel_link($pkg) %>&nbsp;)
 210           <% } %>
 211         </FONT>
 212       </TD>
 213     </TR>
 214
 215   <% } else { %> <!-- #status: active -->
 216
 217     <% unless ( $pkg->{setup} ) { %> <!-- #not setup -->
 218
 219       <% unless ( $pkg->{'freq'} ) { %>
 220
 221         <TR>
 222           <TD COLSPAN=<%=$colspan%>>Not&nbsp;yet&nbsp;billed&nbsp;(one-time&nbsp;charge)</TD>
 223         </TR>
 224
 225         <TR>
 226           <TD COLSPAN=<%=$colspan%>>
 227             <FONT SIZE=-1>
 228               <% if ( $curuser->access_right('Cancel customer package immediately') ) { %>
 229                 (&nbsp;<%= pkg_cancel_link($pkg) %>&nbsp;)
 230               <% } %>
 231             </FONT>
 232           </TD>
 233         </TR>
 234
 235       <% } else { %>
 236
 237         <TR>
 238           <TD COLSPAN=<%=$colspan%>>Not&nbsp;yet&nbsp;billed&nbsp;(<%= $billed_or_prepaid %>&nbsp;<%= myfreq($pkg->{part_pkg}) %>)</TD>
 239         </TR>
 240
 241       <% } %>
 242
 243     <% } else { %> <!-- #setup -->
 244
 245       <% unless ( $pkg->{freq} ) { %>
 246
 247         <TR>
 248           <TD COLSPAN=<%=$colspan%>>One-time&nbsp;charge</TD>
 249         </TR>
 250
 251         <TR>
 252           <TD WIDTH="<%=$width%>" ALIGN="right">Billed&nbsp;</TD>
 253           <%= pkg_datestr($pkg,'setup',$conf) %>
 254         </TR>
 255
 256       <% } else { %>
 257
 258         <TR>
 259           <TD COLSPAN=<%=$colspan%>><FONT COLOR="#00CC00"><B>Active</B></FONT>,&nbsp;<%= $billed_or_prepaid %>&nbsp;<%= myfreq($pkg->{part_pkg}) %></TD>
 260         </TR>
 261
 262         <TR>
 263           <TD WIDTH="<%=$width%>" ALIGN="right">Setup&nbsp;</TD>
 264           <%= pkg_datestr($pkg, 'setup',$conf) %>
 265         </TR>
 266
 267       <% } %>
 268
 269     <% } %>
 270
 271     <% if ( $pkg->{'last_bill'} ) { %>
 272       <TR>
 273         <TD WIDTH="<%=$width%>" ALIGN="right"><%= $last_bill_or_renewed %>&nbsp;</TD>
 274         <%= pkg_datestr($pkg, 'last_bill',$conf) %>
 275       </TR>
 276     <% } %>
 277
 278     <% if ( $pkg->{'next_bill'} ) { %>
 279       <TR>
 280         <TD WIDTH="<%=$width%>" ALIGN="right"><%= $next_bill_or_prepaid_until %>&nbsp;</TD>
 281         <%= pkg_datestr($pkg, 'next_bill',$conf) %>
 282       </TR>
 283     <% } %>
 284
 285     <% if ( $pkg->{'expire'} ) { %>
 286       <TR>
 287         <TD WIDTH="<%=$width%>" ALIGN="right">Expires&nbsp;</TD>
 288         <%= pkg_datestr($pkg, 'expire',$conf) %>
 289       </TR>
 290     <% } %>
 291
 292     <% if ( $pkg->{freq} ) { %>
 293       <TR>
 294         <TD COLSPAN=<%=$colspan%>>
 295           <FONT SIZE=-1>
 296             <% if ( $curuser->access_right('Suspend customer package') ) { %>
 297               (&nbsp;<%= pkg_suspend_link($pkg) %>&nbsp;)
 298             <% } %>
 299             <% if ( $curuser->access_right('Cancel customer package immediately') ) { %>
 300               (&nbsp;<%= pkg_cancel_link($pkg) %>&nbsp;)
 301             <% } %>
 302             <% if ( $curuser->access_right('Cancel customer package later') ) { %>
 303               (&nbsp;<%= pkg_expire_link($pkg) %>&nbsp;)
 304             <% } %>
 305           <FONT>
 306         </TD>
 307       </TR>
 308     <% } %>
 309
 310   <% } %>
 311
 312 <% } %>
 313
 314 </TABLE>
 315 </TD>
 316
 317 <TD CLASS="inv" BGCOLOR="<%= $bgcolor %>">
 318   <TABLE CLASS="inv" BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%">
 319
 320
 321 <%
 322   foreach my $svcpart (sort {$a->{svcpart} <=> $b->{svcpart}} @{$pkg->{svcparts}}) {
 323     foreach my $service (@{$svcpart->{services}}) {
 324 %>
 325       <TR>
 326         <TD ALIGN="right" VALIGN="top" ROWSPAN=2><%=svc_link($svcpart,$service)%></TD>
 327         <TD STYLE="padding-bottom:0px"><B><%=svc_label_link($svcpart,$service)%></B></TD>
 328       </TR>
 329
 330       <% if ( $curuser->access_right('Unprovision customer service') ) { %>
 331         <TR>
 332           <TD ALIGN="right" VALIGN="top" STYLE="padding-bottom:5px;padding-top:0px"><FONT SIZE="-2">(&nbsp;<%=svc_unprovision_link($service)%>&nbsp;)</FONT></TD>
 333         </TR>
 334       <% } %>
 335
 336     <% } %>
 337
 338     <% if ( $curuser->access_right('Provision customer service')
 339             && $svcpart->{count} < $svcpart->{quantity}
 340           )
 341        {
 342     %>
 343
 344       <TR>
 345         <TD COLSPAN=2 ALIGN="center" STYLE="padding-bottom:4px;padding-top:0px">
 346           <B><%= svc_provision_link($pkg, $svcpart, $conf, $curuser) %></B>
 347         </TD>
 348       </TR>
 349
 350     <% } %>
 351
 352 <% } %>
 353
 354 </TABLE>
 355 </TD>
 356
 357 <% } #end display packages
 358 %>
 359
 360 </TABLE>
 361
 362 <% } else { %>
 363 <BR>
 364 <% } %>
 365
 366 <%
 367 #subroutines
 368
 369 sub get_packages {
 370   my $cust_main = shift or return undef;
 371   my $conf = shift;
 372
 373   my @packages = ();
 374   my $method;
 375   if (  $cgi->param('showcancelledpackages') eq '0' #see if it was set by me
 376      || ( $conf->exists('hidecancelledpackages')
 377            && ! $cgi->param('showcancelledpackages') )
 378      )
 379   {
 380     $method = 'ncancelled_pkgs';
 381   } else {
 382     $method = 'all_pkgs';
 383   }
 384
 385   foreach my $cust_pkg ( $cust_main->$method() ) {
 386
 387     my $part_pkg = $cust_pkg->part_pkg;
 388
 389     my %pkg = ();
 390
 391     #to get back to the original object... should use it in the first place!!
 392     $pkg{cust_pkg} = $cust_pkg;
 393     $pkg{part_pkg} = $part_pkg;
 394
 395     $pkg{pkgnum} = $cust_pkg->pkgnum;
 396     $pkg{pkg} = $part_pkg->pkg;
 397     $pkg{pkgpart} = $part_pkg->pkgpart;
 398     $pkg{comment} = $part_pkg->getfield('comment');
 399     $pkg{freq} = $part_pkg->freq;
 400     $pkg{setup} = $cust_pkg->getfield('setup');
 401     $pkg{last_bill} = $cust_pkg->getfield('last_bill');
 402     $pkg{next_bill} = $cust_pkg->getfield('bill');
 403     $pkg{susp} = $cust_pkg->getfield('susp');
 404     $pkg{expire} = $cust_pkg->getfield('expire');
 405     $pkg{cancel} = $cust_pkg->getfield('cancel');
 406
 407
 408     my %svcparts = map {
 409       $_->svcpart => {
 410                        $_->part_svc->hash,
 411                        'quantity' => $_->quantity,
 412                        'count'    => $cust_pkg->num_cust_svc($_->svcpart),
 413                        #'services' => [],
 414                      };
 415     } $part_pkg->pkg_svc;
 416
 417     foreach my $cust_svc ( $cust_pkg->cust_svc ) {
 418       #warn "svcnum ". $cust_svc->svcnum. " / svcpart ". $cust_svc->svcpart. "\n";
 419       my $svc = {
 420         'svcnum' => $cust_svc->svcnum,
 421         'label'  => ($cust_svc->label)[1],
 422       };
 423
 424       #false laziness with above, to catch extraneous services.  whole
 425       #damn thing should be OO...
 426       my $svcpart = ( $svcparts{$cust_svc->svcpart} ||= {
 427         $cust_svc->part_svc->hash,
 428         'quantity' => 0,
 429         'count'    => $cust_pkg->num_cust_svc($cust_svc->svcpart),
 430         #'services' => [],
 431       } );
 432
 433       push @{$svcpart->{services}}, $svc;
 434
 435     }
 436
 437     $pkg{svcparts} = [ values %svcparts ];
 438
 439     push @packages, \%pkg;
 440
 441   }
 442
 443   return \@packages;
 444
 445 }
 446
 447 sub svc_link {
 448
 449   my ($svcpart, $svc) = (shift,shift) or return '';
 450   return qq!<A HREF="${p}view/$svcpart->{svcdb}.cgi?$svc->{svcnum}">$svcpart->{svc}</A>!;
 451
 452 }
 453
 454 sub svc_label_link {
 455
 456   my ($svcpart, $svc) = (shift,shift) or return '';
 457   return qq!<A HREF="${p}view/$svcpart->{svcdb}.cgi?$svc->{svcnum}">$svc->{label}</A>!;
 458
 459 }
 460
 461 sub svc_provision_link {
 462   my ($pkg, $svcpart, $conf, $curuser) = @_;
 463   ( my $svc_nbsp = $svcpart->{svc} ) =~ s/\s+/&nbsp;/g;
 464   my $num_left = $svcpart->{quantity} - $svcpart->{count};
 465   my $pkgnum_svcpart = "pkgnum$pkg->{pkgnum}-svcpart$svcpart->{svcpart}";
 466
 467   my $url;
 468   if ( $svcpart->{svcdb} eq 'svc_external'
 469        && $conf->exists('svc_external-skip_manual')
 470   ) {
 471     $url = "${p}edit/process/$svcpart->{svcdb}.cgi?".
 472            "pkgnum=$pkg->{pkgnum}&".
 473            "svcpart=$svcpart->{svcpart}";
 474   } else {
 475     $url = "${p}edit/$svcpart->{svcdb}.cgi?$pkgnum_svcpart";
 476   }
 477
 478   my $link = qq!<A CLASS="provision" HREF="$url">!.
 479              "Provision&nbsp;$svc_nbsp&nbsp;($num_left)</A>";
 480   if ( $conf->exists('legacy_link')
 481        && $curuser->access_right('View/link unlinked services')
 482      )
 483   {
 484     $link .= '<BR>'.
 485              qq!<A CLASS="provision" HREF="${p}misc/link.cgi?!.
 486              qq!$pkgnum_svcpart">!.
 487             "Link&nbsp;to&nbsp;legacy&nbsp;$svc_nbsp&nbsp;($num_left)</A>";
 488   }
 489   $link;
 490 }
 491
 492 sub svc_unprovision_link {
 493   my $svc = shift or return '';
 494   qq!<A HREF="javascript:areyousure('${p}misc/unprovision.cgi?$svc->{svcnum}',!.
 495   qq!'Permanently unprovision and delete this service?')">Unprovision</A>!;
 496 }
 497
 498 # This should be generalized to use config options to determine order.
 499 sub pkgsort_pkgnum_cancel {
 500   if ($a->{cancel} and $b->{cancel}) {
 501     return ($a->{pkgnum} <=> $b->{pkgnum});
 502   } elsif ($a->{cancel} or $b->{cancel}) {
 503     return (-1) if ($b->{cancel});
 504     return (1) if ($a->{cancel});
 505     return (0);
 506   } else {
 507     return($a->{pkgnum} <=> $b->{pkgnum});
 508   }
 509 }
 510
 511 sub pkg_datestr {
 512   my($pkg, $field, $conf) = @_ or return '';
 513   return '&nbsp;' unless $pkg->{$field};
 514   my $format = '<TD align="left"><B>%b</B></TD>'.
 515                '<TD align="right"><B>&nbsp;%o,</B></TD>'.
 516                '<TD align="right"><B>&nbsp;%Y</B></TD>';
 517   #$format .= '&nbsp;<FONT SIZE=-3>%l:%M:%S%P&nbsp;%z</FONT>'
 518   $format .= '<TD ALIGN="right"><B>&nbsp;%l</TD>'.
 519              '<TD ALIGN="center"><B>:</B></TD>'.
 520              '<TD ALIGN="left"><B>%M</B></TD>'.
 521              '<TD ALIGN="left"><B>&nbsp;%P</B></TD>'
 522     if $conf->exists('cust_pkg-display_times');
 523   ( my $strip = time2str($format, $pkg->{$field}) ) =~ s/ (\d)/$1/g;
 524   $strip;
 525 }
 526
 527 sub pkg_change_link {
 528   my $pkg = shift or return '';
 529   return qq!<a href="${p}misc/change_pkg.cgi?$pkg->{pkgnum}">!.
 530          qq!Change&nbsp;package</a>!;
 531 }
 532
 533 sub pkg_suspend_link {
 534   my $pkg = shift or return '';
 535   return qq!<a href="${p}misc/susp_pkg.cgi?$pkg->{pkgnum}">Suspend</a>!;
 536 }
 537
 538 sub pkg_unsuspend_link {
 539   my $pkg = shift or return '';
 540   return qq!<a href="${p}misc/unsusp_pkg.cgi?$pkg->{pkgnum}">Unsuspend</a>!;
 541 }
 542
 543 sub pkg_cancel_link {
 544   my $pkg = shift or return '';
 545   qq!<A HREF="javascript:areyousure('${p}misc/cancel_pkg.cgi?$pkg->{pkgnum}', !.
 546   qq!'Permanently delete included services and cancel this package?')">!.
 547   qq!Cancel now</A>!;
 548 }
 549
 550 sub pkg_expire_link {
 551   my $pkg = shift or return '';
 552   qq!<A HREF="${p}misc/expire_pkg.cgi?$pkg->{pkgnum}">Cancel later</A>!;
 553 }
 554
 555 sub pkg_dates_link {
 556   my $pkg = shift or return '';
 557   qq!<A HREF="${p}edit/REAL_cust_pkg.cgi?$pkg->{pkgnum}">Edit&nbsp;dates</A>!;
 558 }
 559
 560 sub pkg_customize_link {
 561   my $pkg = shift or return '';
 562   my $custnum = shift;
 563   qq!<A HREF="${p}edit/part_pkg.cgi?keywords=$custnum;clone=$pkg->{pkgpart};!.
 564   qq!pkgnum=$pkg->{pkgnum}">Customize</A>!;
 565 }
 566
 567 %>