summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-11-25 23:00:12 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-11-25 23:00:12 +0000
commit7595b9fa3b219c3e0ad3eed3692445c2466772d7 (patch)
tree4d36d8bfc60b05738d11ec58a570be119e7fba45 /scripts
parent75bbfc4e3007318afcd8368e091ca3c13c5a3352 (diff)
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
Diffstat (limited to 'scripts')
-rw-r--r--scripts/employee.pl8
1 files changed, 4 insertions, 4 deletions
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,