This commit was generated by cvs2svn to compensate for changes in r11022,
[freeside.git] / FS / FS / part_event / Action / cust_bill_batch.pm
1 package FS::part_event::Action::cust_bill_batch;
2
3 use strict;
4 use base qw( FS::part_event::Action );
5
6 sub description { 'Add card or check to a pending batch'; }
7
8 sub deprecated { 1; }
9
10 sub eventtable_hashref {
11   { 'cust_bill' => 1 };
12 }
13
14 sub default_weight { 40; }
15
16 sub do_action {
17   my( $self, $cust_bill ) = @_;
18
19   #my $cust_main = $self->cust_main($cust_bill);
20   my $cust_main = $cust_bill->cust_main;
21
22   $cust_bill->batch_card; # ( %options ); #XXX options??
23 }
24
25 1;