From 7595b9fa3b219c3e0ad3eed3692445c2466772d7 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Sun, 25 Nov 2007 23:00:12 +0000 Subject: Employee creation/management is now on new system. May need some additional tweaking git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1908 4979c152-3d1c-0410-bac9-87ea11338e46 --- scripts/employee.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'scripts') diff --git a/scripts/employee.pl b/scripts/employee.pl index bcfea191..61ff978a 100644 --- a/scripts/employee.pl +++ b/scripts/employee.pl @@ -47,7 +47,7 @@ sub get { my ($request) = @_; my $employee = LedgerSMB::DBObject::Employee->new(base => $request, copy => 'all'); - $employee->set( entity_class=> '1' ); + $employee->set( entity_class=> '3' ); my $result = $employee->get(); my $template = LedgerSMB::Template->new( user => $user, @@ -62,7 +62,7 @@ sub get { sub add_location { my ($request) = @_; my $employee= LedgerSMB::DBObject::Employee->new({base => $request, copy => 'all'}); - $employee->set( entity_class=> '1' ); + $employee->set( entity_class=> '3' ); $employee->save_location(); $employee->get(); @@ -88,7 +88,7 @@ This method creates a blank screen for entering a employee's information. sub add { my ($request) = @_; my $employee= LedgerSMB::DBObject::Employee->new(base => $request, copy => 'all'); - $employee->set( entity_class=> '1' ); + $employee->set( entity_class=> '3' ); _render_main_screen($employee); } @@ -115,7 +115,7 @@ sub search { # assume it's asking us to do the search, now my $employee = LedgerSMB::DBObject::Employee->new(base => $request, copy => 'all'); - $employee->set(entity_class=>1); + $employee->set(entity_class=>3); my $results = $employee->search($employee->{search_pattern}); my $template = LedgerSMB::Template->new( user => $user, -- cgit v1.2.3