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 { 1; }
  12
  13 sub default_weight { 60; }
  14
  15 sub do_action {
  16   my( $self, $cust_object ) = @_;
  17
  18   my $cust_main = $self->cust_main($cust_object);
  19
  20   my $error = $cust_main->bill;
  21   die $error if $error;
  22
  23   '';
  24 }
  25
  26 1;