[freeside-commits] freeside/FS/FS Conf.pm, 1.438, 1.439 svc_acct.pm, 1.308, 1.309

[Erik Levinson]

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

Modified Files:
	Conf.pm svc_acct.pm 
Log Message:
add option to exclude configurable svc_acct svcparts from welcome emails, RT11021

Index: Conf.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Conf.pm,v
retrieving revision 1.438
retrieving revision 1.439
diff -u -w -d -r1.438 -r1.439
--- Conf.pm	29 Mar 2011 00:32:19 -0000	1.438
+++ Conf.pm	8 Apr 2011 04:58:58 -0000	1.439
@@ -2057,6 +2057,14 @@
   },
 
   {
+    'key'         => 'svc_acct_welcome_exclude',
+    'section'     => 'notification',
+    'description' => 'A list of svc_acct services for which no welcome email is to be sent.',
+    'type'        => 'select-part_svc',
+    'multiple'    => 1,
+  },
+
+  {
     'key'         => 'welcome_email',
     'section'     => 'deprecated',
     'description' => 'Template file for welcome email.  Welcome emails are sent to the customer email invoice destination(s) each time a svc_acct record is created.',

Index: svc_acct.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_acct.pm,v
retrieving revision 1.308
retrieving revision 1.309
diff -u -w -d -r1.308 -r1.309
--- svc_acct.pm	1 Feb 2011 11:13:39 -0000	1.308
+++ svc_acct.pm	8 Apr 2011 04:58:58 -0000	1.309
@@ -746,6 +746,8 @@
     }
 
     #welcome email
+    my @welcome_exclude_svcparts = $conf->config('svc_acct_welcome_exclude');
+    unless ( grep { $_ eq $self->svcpart } @welcome_exclude_svcparts ) {
     my $error = '';
     my $msgnum = $conf->config('welcome_msgnum', $agentnum);
     if ( $msgnum ) {
@@ -829,6 +831,7 @@
 
       } # if $welcome_template
     } # if !$msgnum
+    }
   } # if $cust_pkg
 
   $dbh->commit or die $dbh->errstr if $oldAutoCommit;