From 05e83a01468e88c0f5f9e9c43b62de0e5d95dea4 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 16 Feb 2011 10:52:51 +0000
Subject: [PATCH] add debugging

---
 FS/FS/ClientAPI/PrepaidPhone.pm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/FS/FS/ClientAPI/PrepaidPhone.pm b/FS/FS/ClientAPI/PrepaidPhone.pm
index 00bc0ffd0..c918dde06 100644
--- a/FS/FS/ClientAPI/PrepaidPhone.pm
+++ b/FS/FS/ClientAPI/PrepaidPhone.pm
@@ -6,7 +6,7 @@ use FS::Record qw(qsearchs);
 use FS::rate;
 use FS::svc_phone;
 
-$DEBUG = 0;
+$DEBUG = 1;
 $me = '[FS::ClientAPI::PrepaidPhone]';
 
 #TODO:
@@ -230,12 +230,17 @@ Customer balance.
 sub phonenum_balance {
   my $packet = shift;
 
+  warn "$me phonenum_balance called with countrycode ".$packet->{'countrycode'}.
+       " and phonenum ". $packet->{'phonenum'}. "\n"
+    if $DEBUG;
+
   my $svc_phone = qsearchs('svc_phone', {
     'countrycode' => ( $packet->{'countrycode'} || 1 ),
     'phonenum'    => $packet->{'phonenum'},
   });
 
   unless ( $svc_phone ) {
+    warn "$me no phone number found\n" if $DEBUG;
     return { 'custnum' => '',
              'balance' => 0,
            };
@@ -243,6 +248,10 @@ sub phonenum_balance {
 
   my $cust_pkg = $svc_phone->cust_svc->cust_pkg;
 
+  warn "$me returning ". $cust_pkg->cust_main->balance.
+       " balance for custnum ". $cust_pkg->custnum
+    if $DEBUG;
+
   return {
     'custnum' => $cust_pkg->custnum,
     'balance' => $cust_pkg->cust_main->balance,
-- 
2.11.0