From 7b5280c065aaa4887ce4e36fb4be7a80a74a8392 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Wed, 20 Dec 2006 01:20:18 +0000
Subject: [PATCH] inappropriate cluckage

---
 FS/FS/ClientAPI/MyAccount.pm | 14 +++++++-------
 FS/FS/part_pkg.pm            |  4 ++--
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index de364724a..dc4ae7804 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -578,11 +578,11 @@ sub list_svcs {
                             'upbytes'   => $svc_x->upbytes,
                             'downbytes' => $svc_x->downbytes,
                             'totalbytes'=> $svc_x->totalbytes,
-                            'recharge_amount' => $part_pkg->option('recharge_amount'),
-                            'recharge_seconds' => $part_pkg->option('recharge_seconds'),
-                            'recharge_upbytes' => $part_pkg->option('recharge_upbytes'),
-                            'recharge_downbytes' => $part_pkg->option('recharge_downbytes'),
-                            'recharge_totalbytes' => $part_pkg->option('recharge_totalbytes'),
+                            'recharge_amount' => $part_pkg->option('recharge_amount', 1),
+                            'recharge_seconds' => $part_pkg->option('recharge_seconds', 1),
+                            'recharge_upbytes' => $part_pkg->option('recharge_upbytes', 1),
+                            'recharge_downbytes' => $part_pkg->option('recharge_downbytes', 1),
+                            'recharge_totalbytes' => $part_pkg->option('recharge_totalbytes', 1),
                             # more...
                           };
                         }
@@ -721,10 +721,10 @@ sub order_recharge {
   my $part_pkg = $cust_svc->cust_pkg->part_pkg;
 
   my %vhash =
-    map { $_ =~ /^recharge_(.*)$/; $1, $part_pkg->option($_) } 
+    map { $_ =~ /^recharge_(.*)$/; $1, $part_pkg->option($_, 1) } 
     qw ( recharge_seconds recharge_upbytes recharge_downbytes
          recharge_totalbytes );
-  my $amount = $part_pkg->option('recharge_amount'); 
+  my $amount = $part_pkg->option('recharge_amount', 1); 
   
   my $old_balance = $cust_main->balance;
 
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index 2f94863b0..d97658496 100644
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -689,8 +689,8 @@ sub option {
   my %plandata = map { /^(\w+)=(.*)$/; ( $1 => $2 ); }
                      split("\n", $self->get('plandata') );
   return $plandata{$opt} if exists $plandata{$opt};
-  cluck "WARNING: (pkgpart ". $self->pkgpart. ") Package def option $opt".
-        "not found in options or plandata!\n"
+  cluck "WARNING: (pkgpart ". $self->pkgpart. ") Package def option $opt ".
+        "NOT found in options or plandata!\n"
     unless $ornull;
   '';
 }
-- 
2.11.0