FS/FS/part_event/Action/collect.pm

   1 package FS::part_event::Action::collect;
   2
   3 use strict;
   4 use base qw( FS::part_event::Action );
   5
   6 sub description {
   7   #'Collect on invoices (normally only used with a <i>Late Fee</i> and <i>Generate Invoice</i> events)';
   8   'Collect on invoices (normally only used with a Late Fee and Generate Invoice events)';
   9 }
  10
  11 sub deprecated { 1; }
  12
  13 sub default_weight { 80; }
  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->collect;
  21   die $error if $error;
  22
  23   '';
  24 }
  25
  26 1;