[freeside-commits] freeside/FS/FS/Cron bill.pm,1.3,1.4

Ivan,,, ivan at wavetail.420.am
Fri Jun 8 17:42:12 PDT 2007


Update of /home/cvs/cvsroot/freeside/FS/FS/Cron
In directory wavetail:/tmp/cvs-serv29783/FS/FS/Cron

Modified Files:
	bill.pm 
Log Message:
skycatcher modifications for pre-printing invoices, but with today's date

Index: bill.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Cron/bill.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- bill.pm	23 Feb 2007 07:47:07 -0000	1.3
+++ bill.pm	9 Jun 2007 00:42:10 -0000	1.4
@@ -24,6 +24,8 @@
   my($time)= $opt{'d'} ? str2time($opt{'d'}) : $^T;
   $time += $opt{'y'} * 86400 if $opt{'y'};
 
+  my $invoice_time = $opt{'n'} ? $^T : $time;
+
   # select * from cust_main where
   my $where_pkg = <<"END";
     0 < ( select count(*) from cust_pkg
@@ -102,8 +104,9 @@
         if $error;
     }
   
-    my $error = $cust_main->bill( 'time'    => $time,
-                                  'resetup' => $opt{'s'},
+    my $error = $cust_main->bill( 'time'         => $time,
+                                  'invoice_time' => $invoice_time,
+                                  'resetup'      => $opt{'s'},
                                 );
     warn "Error billing, custnum ". $cust_main->custnum. ": $error" if $error;
   



More information about the freeside-commits mailing list