[freeside-commits] freeside/FS/FS/ClientAPI MyAccount.pm,1.47,1.48

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/ClientAPI
In directory wavetail:/tmp/cvs-serv7660/FS/FS/ClientAPI

Modified Files:
	MyAccount.pm 
Log Message:
inappropriate cluckage

Index: MyAccount.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/ClientAPI/MyAccount.pm,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- MyAccount.pm	14 Dec 2006 06:00:45 -0000	1.47
+++ MyAccount.pm	20 Dec 2006 01:20:18 -0000	1.48
@@ -578,11 +578,11 @@
                             '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 @@
   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;