From 691a587e56557208e9b3834c77f36ca47f3a1a25 Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 14 May 2005 16:30:58 +0000 Subject: [PATCH] disable debugging --- FS/FS/Misc.pm | 8 ++++---- FS/FS/cust_bill.pm | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/FS/FS/Misc.pm b/FS/FS/Misc.pm index 92780f707..1bb1ae152 100644 --- a/FS/FS/Misc.pm +++ b/FS/FS/Misc.pm @@ -8,7 +8,7 @@ use Carp; @ISA = qw( Exporter ); @EXPORT_OK = qw( send_email send_fax ); -$DEBUG = 1; +$DEBUG = 0; =head1 NAME @@ -245,13 +245,13 @@ sub send_fax { if ($faxjob->success) { warn "Successfully queued fax to '$options{dialstring}' with jobid " . - $faxjob->jobid; + $faxjob->jobid + if $DEBUG; + return ''; } else { return 'Error while sending FAX: ' . $faxjob->trace; } - return ''; - } package Mail::Internet; diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index f62f11268..d649770c7 100644 --- a/FS/FS/cust_bill.pm +++ b/FS/FS/cust_bill.pm @@ -23,7 +23,7 @@ use FS::cust_bill_event; @ISA = qw( FS::Record ); -$DEBUG = 1; +$DEBUG = 0; #ask FS::UID to run this stuff for us later FS::UID->install_callback( sub { -- 2.11.0