From d37dd5ecb8fb35bbd79a29cc78a1d680a3f7d6c8 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 21 Aug 2014 00:27:19 -0700
Subject: [PATCH] cleanup

---
 FS/FS/Log/Output.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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');
-- 
2.11.0