FS/FS/part_event/Action/bill.pm

   1 package FS::part_event::Action::bill;
   2
   3 use strict;
   4 use base qw( FS::part_event::Action );
   5
   6 sub description {
   7   #'Generate invoices (normally only used with a <i>Late Fee</i> event)';
   8   'Generate invoices (normally only used with a Late Fee event)';
   9 }
  10
  11 sub deprecated {
  12   1;
  13 }
  14
  15 sub default_weight {
  16   60;
  17 }
  18
  19 sub do_action {
  20   my( $self, $cust_object ) = @_;
  21
  22   my $cust_main = $self->cust_main($cust_object);
  23
  24   my $error = $cust_main->bill;
  25   die $error if $error;
  26
  27   '';
  28 }
  29
  30 1;