diff options
| -rw-r--r-- | FS/FS/cust_pkg.pm | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 652c4d5b9..719189fa4 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -1176,8 +1176,6 @@ sub unsuspend { } #if $date - my @labels = (); - foreach my $cust_svc ( qsearch('cust_svc',{'pkgnum'=> $self->pkgnum } ) ) { @@ -1197,8 +1195,6 @@ sub unsuspend { $dbh->rollback if $oldAutoCommit; return $error; } - my( $label, $value ) = $cust_svc->label; - push @labels, "$label: $value"; } } @@ -1287,29 +1283,6 @@ sub unadjourn { return $error; } - if ( $conf->config('unsuspend_email_admin') ) { - - my $error = send_email( - 'from' => $conf->config('invoice_from', $self->cust_main->agentnum), - #invoice_from ??? well as good as any - 'to' => $conf->config('unsuspend_email_admin'), - 'subject' => 'FREESIDE NOTIFICATION: Customer package unsuspended', 'body' => [ - "This is an automatic message from your Freeside installation\n", - "informing you that the following customer package has been unsuspended:\n", - "\n", - 'Customer: #'. $self->custnum. ' '. $self->cust_main->name. "\n", - 'Package : #'. $self->pkgnum. " (". $self->part_pkg->pkg_comment. ")\n", - ( map { "Service : $_\n" } @labels ), - ], - ); - - if ( $error ) { - warn "WARNING: can't send unsuspension admin email (unsuspending anyway): ". - "$error\n"; - } - - } - $dbh->commit or die $dbh->errstr if $oldAutoCommit; ''; #no errors |