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

[ivan at 420.am]

Apply this diff, which should produce a full backtrace in Apache's
error.log.  Provide the full backtrace.  Also let us know the customer's
billing type and list all invoice events defined for that billing type.

Index: Record.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Record.pm,v
retrieving revision 1.68
diff -u -r1.68 Record.pm
--- Record.pm   8 May 2003 09:34:39 -0000       1.68
+++ Record.pm   11 Jul 2003 07:20:38 -0000
@@ -426,11 +426,11 @@
   $field =~ s/.*://;
   if ( defined($value) ) {
     confess "errant AUTOLOAD $field for $self (arg $value)"
-      unless $self->can('setfield');
+      unless $ref($self) && $self->can('setfield');
     $self->setfield($field,$value);
   } else {
     confess "errant AUTOLOAD $field for $self (no args)"
-      unless $self->can('getfield');
+      unless ref($self) && $self->can('getfield');
     $self->getfield($field);
   }    
 }


On Thu, Jul 10, 2003 at 01:52:12PM -0500, Billing wrote:
> Hello,
>  
> I'm hoping to get some tips as to how I might squash this error. We're
> currently using Freeside version 1.4.1rc3, Perl 5.8.0, Debian 2.4.20,
> Apache 1.3.27, PostgreSQL 7.3.2
> Everything is working with the exception of prorated billing. When I hit
> bill now on a prorated account I get this error.
>  
> 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) ; ): Can't call method
> "can" without a package or object reference at
> /usr/local/share/perl/5.8.0/FS/Record.pm line 430.
>  
>  
> Any help would be appreciated as I have been unable to locate any really
> similar cases in the threads or in the documentation.
>  
> Vance

-- 
_ivan