X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=FS%2FFS%2Fpart_event.pm;h=78316248f2ec492f408875e5b44bf4f83ea0db91;hb=17a8b72b78ba455b58d53731fe557a471e0f2947;hp=217d09ccc5f492fa5cb0f2391998e09f211459c6;hpb=23178237bcb103cb785829bf45cdd7a2710adabf;p=freeside.git

diff --git a/FS/FS/part_event.pm b/FS/FS/part_event.pm
index 217d09ccc..78316248f 100644
--- a/FS/FS/part_event.pm
+++ b/FS/FS/part_event.pm
@@ -585,7 +585,7 @@ foreach my $INC ( @INC ) {
     }
     $actions{$mod} = {
       ( map { $_ => "FS::part_event::Action::$mod"->$_() }
-            qw( description eventtable_hashref default_weight deprecated )
+            qw( description eventtable_hashref default_weight deprecated will_send_invoice )
             #option_fields_hashref
       ),
       'option_fields' => [ "FS::part_event::Action::$mod"->option_fields() ],
@@ -617,6 +617,20 @@ sub all_actions {
        keys %actions
 }
 
+=item invoice_send_actions
+
+Returns a list of action names that send invoices
+
+=cut
+
+sub invoice_send_actions {
+  my ( $class ) = @_;
+
+  grep { $actions{$_}->{'will_send_invoice'} }
+       keys %actions
+
+}
+
 =item process_initialize 'eventpart' => EVENTPART
 
 Job queue wrapper for "initialize".  EVENTPART identifies the 
@@ -637,7 +651,7 @@ sub process_initialize {
 =head1 SEE ALSO
 
 L<FS::part_event_option>, L<FS::part_event_condition>, L<FS::cust_main>,
-L<FS::cust_pkg>, L<FS::svc_acct>, L<FS::cust_bill>, L<FS::cust_bill_event>, 
+L<FS::cust_pkg>, L<FS::svc_acct>, L<FS::cust_bill>, L<FS::cust_event>,
 L<FS::Record>,
 schema.html from the base documentation.