[freeside-commits] freeside/FS/FS/part_event/Action svc_acct_notice.pm, NONE, 1.1 pkg_cancel.pm, 1.1, 1.2 pkg_suspend.pm, 1.1, 1.2

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_event/Action
In directory wavetail.420.am:/tmp/cvs-serv1936/FS/FS/part_event/Action

Modified Files:
	pkg_cancel.pm pkg_suspend.pm 
Added Files:
	svc_acct_notice.pm 
Log Message:
svc_acct events for usage limits, #13202

Index: pkg_suspend.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_event/Action/pkg_suspend.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -d -r1.1 -r1.2
--- pkg_suspend.pm	23 Feb 2011 21:50:52 -0000	1.1
+++ pkg_suspend.pm	1 Sep 2011 05:13:07 -0000	1.2
@@ -6,7 +6,8 @@
 sub description { 'Suspend this package'; }
 
 sub eventtable_hashref {
-  { 'cust_pkg' => 1 };
+  { 'cust_pkg' => 1,
+    'svc_acct' => 1, };
 }
 
 sub option_fields {
@@ -21,7 +22,8 @@
 sub default_weight { 20; }
 
 sub do_action {
-  my( $self, $cust_pkg, $cust_event ) = @_;
+  my( $self, $object, $cust_event ) = @_;
+  my $cust_pkg = $self->cust_pkg($object);
 
   my $error = $cust_pkg->suspend( 'reason' => $self->option('reasonnum') );
   die $error if $error;

--- NEW FILE: svc_acct_notice.pm ---
package FS::part_event::Action::svc_acct_notice;

use strict;
use base qw( FS::part_event::Action );
use FS::Record qw( qsearchs );
use FS::svc_acct;
use FS::msg_template;

sub description { 'Email a notice to this account'; }

sub eventtable_hashref {
  { 'svc_acct' => 1 }
};

sub option_fields {
  (
    'msgnum' => { 'label'    => 'Template',
                  'type'     => 'select-table',
                  'table'    => 'msg_template',
                  'name_col' => 'msgname',
                  'disable_empty' => 1,
                },
  );
}

sub default_weight { 56; } #?

sub do_action {
  my( $self, $svc_acct ) = @_;

  my $cust_main = $self->cust_main($svc_acct)
      or die "No customer found for svcnum ".$svc_acct->svcnum;
    # this will never be run for unlinked services, for several reasons

  my $msgnum = $self->option('msgnum');

  my $msg_template = qsearchs('msg_template', { 'msgnum' => $msgnum } )
      or die "Template $msgnum not found";

  my $email = $svc_acct->email
      or die "No email associated with svcnum ".$svc_acct->svcnum;

  $msg_template->send(
    'cust_main' => $cust_main,
    'object'    => $svc_acct,
    'to'        => $email,
  );

}

1;

Index: pkg_cancel.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_event/Action/pkg_cancel.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -d -r1.1 -r1.2
--- pkg_cancel.pm	22 Nov 2010 01:30:09 -0000	1.1
+++ pkg_cancel.pm	1 Sep 2011 05:13:07 -0000	1.2
@@ -21,7 +21,8 @@
 sub default_weight { 20; }
 
 sub do_action {
-  my( $self, $cust_pkg, $cust_event ) = @_;
+  my( $self, $object, $cust_event ) = @_;
+  my $cust_pkg = $self->cust_pkg($object);
 
   my $error = $cust_pkg->cancel( 'reason' => $self->option('reasonnum') );
   die $error if $error;