[Astpp-commit] SF.net SVN: astpp: [2178] trunk/astpp-common.pl

[<dar...@us...>]

Revision: 2178
          http://astpp.svn.sourceforge.net/astpp/?rev=2178&view=rev
Author:   darrenkw
Date:     2008-05-05 19:02:09 -0700 (Mon, 05 May 2008)

Log Message:
-----------
Resolved Bug:  [1956264 ] Email invoices

Modified Paths:
--------------
    trunk/astpp-common.pl

Modified: trunk/astpp-common.pl
===================================================================
--- trunk/astpp-common.pl	2008-05-06 01:11:34 UTC (rev 2177)
+++ trunk/astpp-common.pl	2008-05-06 02:02:09 UTC (rev 2178)
@@ -437,6 +437,7 @@
 # configured per reseller.
 sub email_refill_account() {
     my ( $astpp_db,$reseller,$config, $vars ) = @_;
+    $vars->{email} = $config->{company_email} if $config->{user_email} == 0;
     my %mail = (
         To         => $vars->{email},
         From       => $config->{company_email},
@@ -460,6 +461,7 @@
 # configured per reseller.
 sub email_reactivate_account() {
     my ( $astpp_db,$reseller,$config, $vars ) = @_;
+    $vars->{email} = $config->{company_email} if $config->{user_email} == 0;
     my %mail = (
         To         => $vars->{email},
         From       => $config->{company_email},
@@ -483,6 +485,7 @@
 # configured per reseller.
 sub email_add_user() {
     my ( $astpp_db,$reseller,$config, $vars ) = @_;
+    $vars->{email} = $config->{company_email} if $config->{user_email} == 0;
     my %mail = (
         To         => $vars->{email},
         From       => $config->{company_email},
@@ -508,6 +511,7 @@
 # configured per reseller.
 sub email_add_device() {
     my ( $astpp_db,$reseller, $config, $vars ) = @_;
+    $vars->{email} = $config->{company_email} if $config->{user_email} == 0;
     my %mail = (
         To         => $vars->{email},
         From       => $config->{company_email},
@@ -581,6 +585,7 @@
 # configured per reseller.
 sub email_del_user() {
     my ( $astpp_db,$reseller,$config, $vars) = @_;
+    $vars->{email} = $config->{company_email} if $config->{user_email} == 0;
     my %mail = (
         To         => $vars->{email},
         From       => $config->{company_email},
@@ -604,6 +609,7 @@
 # configured per reseller.
 sub email_add_callingcard() {
     my ( $astpp_db,$reseller,$config, $vars, $cc, $pin ) = @_;
+    $vars->{email} = $config->{company_email} if $config->{user_email} == 0;
     my %mail = (
         To         => $vars->{email},
         From       => $config->{company_email},
@@ -627,7 +633,7 @@
 # configured per reseller.
 sub email_add_did() {
     my ( $astpp_db, $reseller,$vars, $did, $config, $email ) = @_;
-    $email = $config->{company_email} if ( $email eq "" );
+    $email = $config->{company_email} if $config->{user_email} == 0;
     my %mail = (
         To         => $email,
         From       => $config->{company_email},
@@ -658,7 +664,7 @@
 # configured per reseller.
 sub email_del_did() {
     my ( $astpp_db, $reseller,$vars, $did, $config, $email ) = @_;
-    $email = $config->{company_email} if ( $email eq "" );
+    $email = $config->{company_email} if $config->{user_email} == 0;
     my %mail = (
         To         => $email,
         From       => $config->{company_email},
@@ -684,6 +690,7 @@
 # configured per reseller.
 sub email_new_invoice() {
     my ( $astpp_db,$reseller,$config, $email, $invoice, $total ) = @_;
+    $email = $config->{company_email} if $config->{user_email} == 0;
     my %mail = (
         To         => $email,
         From       => $config->{company_email},
@@ -707,6 +714,7 @@
 # configured per reseller.
 sub email_low_balance() {
     my ( $astpp_db, $reseller,$config, $email, $balance ) = @_;
+    $email = $config->{company_email} if $config->{user_email} == 0;
     my %mail = (
         To         => $email,
         From       => $config->{company_email},


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.