FS/FS/part_event/Action/apply.pm

   1 package FS::part_event::Action::apply;
   2
   3 use strict;
   4 use base qw( FS::part_event::Action );
   5
   6 sub description {
   7   'Apply unapplied payments and credits';
   8 }
   9
  10 sub deprecated { 1; }
  11
  12 sub default_weight { 70; }
  13
  14 sub do_action {
  15   my( $self, $cust_object ) = @_;
  16
  17   my $cust_main = $self->cust_main($cust_object);
  18
  19   $cust_main->apply_payments_and_credits;
  20
  21   '';
  22 }
  23
  24 1;