[freeside] Error when using "bill now" on prorated account

[ivan at 420.am]

Thanks.  Looks like this was triggered by the Time::Local workaround
added in 1.4.1rc3 for old (5.005) perl verisons.  Will be fixed in rc5.

-- 
_ivan


On Fri, Jul 11, 2003 at 10:24:09AM -0500, Billing wrote:
> 
> Ivan,
> 
> We applied the corrected diff now the error reads as follows:
> 
> Error eval-ing part_pkg->recur pkgpart 1(expression my $mnow = $sdate;
> my ($sec,$min,$hour,$mday,$mon,$year) = (localtime($sdate)
> )[0,1,2,3,4,5]; my $mstart = timelocal(0,0,0,1,$mon,$year); my $mend =
> timelocal(0,0,0,1, $mon == 11 ? 0 : $mon+1, $year+($mon==11)); $sdate =
> $mstart; ( $part_pkg->freq - 1 ) * 17.50 / $part_pkg->freq + 17.50 /
> $part_pkg->freq * ($mend-$mnow) / ($mend-$mstart) ; ): errant AUTOLOAD
> timelocal for 0 (arg 0) at /usr/local/share/perl/5.8.0/FS/Record.pm line
> 430 FS::Record::AUTOLOAD(0,0,0,1,5,103) called at (eval 514) line 1 eval
> 'my $mnow = $sdate; my ($sec,$min,$hour,$mday,$mon,$year) =
> (localtime($sdate) )[0,1,2,3,4,5]; my $mstart =
> timelocal(0,0,0,1,$mon,$year); my $mend = timelocal(0,0,0,1, $mon == 11
> ? 0 : $mon+1, $year+($mon==11)); $sdate = $mstart; ( $part_pkg->freq - 1
> ) * 17.50 / $part_pkg->freq + 17.50 / $part_pkg->freq * ($mend-$mnow) /
> ($mend-$mstart) ; ;' called at
> /usr/local/share/perl/5.8.0/FS/cust_main.pm line 995
> FS::cust_main::bill('FS::cust_main=HASH(0x8e24154)') called at bill.cgi
> line 10
> Apache::ASP::Compiles::__ASP__usr_local_etc_freeside_asp_global_x71ce54c
> 08db869de8f603b89fe2245e2::__ASP__var_www_freeside_misc_bill_cgix47baf75
> 6c1c489e8066a14910c5cc839() called at /usr/share/perl5/Apache/ASP.pm
> line 1420 eval {...} called at /usr/share/perl5/Apache/ASP.pm line 1420
> Apache::ASP::Execute('Apache::ASP=HASH(0x8510850)','__ASP__var_www_frees
> ide_misc_bill_cgix47baf756c1c489e8066a149...') called at
> /usr/share/perl5/Apache/ASP.pm line 1394 eval {...} called at
> /usr/share/perl5/Apache/ASP.pm line 1392
> Apache::ASP::Run('Apache::ASP=HASH(0x8510850)') called at
> /usr/share/perl5/Apache/ASP.pm line 167
> Apache::ASP::handler('Apache=SCALAR(0x828a57c)') called at (eval 514)
> line 0 eval {...} called at (eval 514) line 0
> 
> Our admin checked Apache's error logs and is telling me there is no new
> log information since the diff was applied. 
> Our billing is sent via e-mail and the events on the invoice are the
> prorated monthly package.
> 
> Vance
> 

-- 
_ivan