X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FRecord.pm;h=646a57607d8ed503f0c5e89af502e9bc12b9d220;hb=9c2016b3a564d439960420114ce6f4cab3bf723b;hp=f88be8b00f80639a980148c0bc774f8662656114;hpb=38e969ecf93f56c05e06bbcd24e9bd1ddf56d709;p=freeside.git

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index f88be8b00..646a57607 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -315,6 +315,8 @@ sub AUTOLOAD {
   my($field)=$AUTOLOAD;
   $field =~ s/.*://;
   if ( defined($value) ) {
+    confess "errant AUTOLOAD $field for $self (arg $value)"
+      unless $self->can('setfield');
     $self->setfield($field,$value);
   } else {
     $self->getfield($field);
@@ -827,6 +829,8 @@ sub fields {
   $table_obj->columns;
 }
 
+=back
+
 =head1 SUBROUTINES
 
 =over 4
@@ -915,7 +919,7 @@ sub DESTROY { return; }
 
 =head1 VERSION
 
-$Id: Record.pm,v 1.16 2001-05-07 15:42:02 ivan Exp $
+$Id: Record.pm,v 1.18 2001-07-30 07:33:08 ivan Exp $
 
 =head1 BUGS