X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FLog%2FOutput.pm;h=29f31a5d964c3ed0d7873216334a22baea1b71ae;hb=f822e27a1e00594332ffa487a1c284234c5580a6;hp=18d7f1b43ff01b8a9d408cd74761f491a086a503;hpb=96783bdc58be6e4f2fc56d516a9ceba57af00ba8;p=freeside.git diff --git a/FS/FS/Log/Output.pm b/FS/FS/Log/Output.pm index 18d7f1b43..29f31a5d9 100644 --- a/FS/FS/Log/Output.pm +++ b/FS/FS/Log/Output.pm @@ -1,7 +1,7 @@ package FS::Log::Output; +use base qw( Log::Dispatch::Output ); -use base Log::Dispatch::Output; -use FS::Record qw( dbdef ); +use FS::log; sub new { # exactly by the book my $proto = shift; @@ -24,7 +24,7 @@ sub log_message { my ($tablename, $tablenum) = @m{'tablename', 'tablenum'}; if ( $object and $object->isa('FS::Record') ) { $tablename = $object->table; - $tablenum = $object->get( dbdef->table($tablename)->primary_key ); + $tablenum = $object->get( $object->primary_key ); # get the agentnum from the object if it has one $m{'agentnum'} ||= $object->get('agentnum');