diff options
author | Ivan Kohler <ivan@freeside.biz> | 2014-07-16 06:17:05 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2014-07-16 06:17:05 -0700 |
commit | 5f8111de04a4a914c72a1642722476db4728339c (patch) | |
tree | b7ae766bcb35d53828a1690ae78d9bff179dcbab /FS/FS/Record.pm | |
parent | c7cc0522832d0e1c056f9bce46dd1b4b5551e612 (diff) |
REST API, RT#28181
Diffstat (limited to 'FS/FS/Record.pm')
-rw-r--r-- | FS/FS/Record.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index a684425..b226e17 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -367,6 +367,9 @@ sub qsearch { my @bind_type = (); my $dbh = dbh; foreach my $stable ( @stable ) { + + carp '->qsearch on cust_main called' if $stable eq 'cust_main' && $DEBUG; + #stop altering the caller's hashref my $record = { %{ shift(@record) || {} } };#and be liberal in receipt my $select = shift @select; @@ -994,6 +997,8 @@ sub AUTOLOAD { eval "use FS::$table"; die $@ if $@; + carp '->cust_main called' if $table eq 'cust_main' && $DEBUG; + my $pkey_value = $self->$column(); my %search = ( $foreign_column => $pkey_value ); @@ -1122,6 +1127,13 @@ sub hashref { $self->{'Hash'}; } +#fallback +sub API_getinfo { + my $self = shift; + +{ ( map { $_=>$self->$_ } $self->fields ), + }; +} + =item modified Returns true if any of this object's values have been modified with set (or via |