From 3dd38f98466dedb6710ab5891e75487b195048b9 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 8 Mar 2007 18:28:59 +0000
Subject: renaming employee to employees and dropping insert tracking rule

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@864 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/DBObject.pm | 12 ++++++++++++
 LedgerSMB/Employee.pm | 14 ++------------
 2 files changed, 14 insertions(+), 12 deletions(-)

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm
index 98ad08ad..071acb68 100644
--- a/LedgerSMB/DBObject.pm
+++ b/LedgerSMB/DBObject.pm
@@ -31,6 +31,18 @@ use warnings;
 
 @ISA = (LedgerSMB);
 
+sub new {
+	my $lsmb = shift @_;
+	if (! $lsmb->isa(LedgerSMB)){
+		$self->error("Constructor called without LedgerSMB object arg");
+	my $self = {};
+	for $attr (keys $lsmb){
+		$self->{$attr} = $lsmb->{$attr};
+	}
+	bless $self;
+}
+
+
 sub exec_method {
 	my ($self) = shift @_;
 	my ($funcname) = shift @_;
diff --git a/LedgerSMB/Employee.pm b/LedgerSMB/Employee.pm
index 1165c441..9552a8da 100644
--- a/LedgerSMB/Employee.pm
+++ b/LedgerSMB/Employee.pm
@@ -38,18 +38,6 @@ sub AUTOLOAD {
 	$self->exec_method($procname);
 }
 
-sub new {
-	my $lsmb = shift @_;
-	if (! $lsmb->isa(LedgerSMB)){
-		$self->error("Employee called without LedgerSMB object arg");
-	my $self = {};
-	for $attr (keys $lsmb){
-		$self->{$attr} = $lsmb->{$attr};
-	}
-	bless $self;
-}
-
-
 sub save {
 	my $hashref = shift ($self->exec_method("employee_save"));
 	$self->merge($hashref, 'id');
@@ -71,3 +59,5 @@ sub list_managers {
 sub search {
 	$self->{search_results} = $self->exec_method("employee_search");
 }
+
+1;
-- 
cgit v1.2.3