diff options
| -rw-r--r-- | LedgerSMB/DBObject/Company.pm | 2 | ||||
| -rwxr-xr-x | employee.pl | 2 | ||||
| -rw-r--r-- | scripts/employee.pl | 8 | ||||
| -rw-r--r-- | sql/Pg-database.sql | 2 |
4 files changed, 7 insertions, 7 deletions
diff --git a/LedgerSMB/DBObject/Company.pm b/LedgerSMB/DBObject/Company.pm index 0ce2f6ee..5d7d760e 100644 --- a/LedgerSMB/DBObject/Company.pm +++ b/LedgerSMB/DBObject/Company.pm @@ -55,7 +55,7 @@ sub save_bank_account { sub get { my $self = shift @_; - $self->set_entity_class() + $self->set_entity_class(); my ($ref) = $self->exec_method(funcname => 'entity__retrieve_credit'); $self->merge($ref); diff --git a/employee.pl b/employee.pl index 2e06f6a9..aaef226d 100755 --- a/employee.pl +++ b/employee.pl @@ -1,2 +1,2 @@ #!/usr/bin/perl -require "old-handler.pl"; +require "lsmb-request.pl"; 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, diff --git a/sql/Pg-database.sql b/sql/Pg-database.sql index 060655fa..17f62313 100644 --- a/sql/Pg-database.sql +++ b/sql/Pg-database.sql @@ -2049,7 +2049,7 @@ COPY menu_attribute (node_id, attribute, value, id) FROM stdin; 44 report 1 110 46 menu 1 111 47 menu 1 112 -48 module hr.pl 113 +48 module employee.pl 113 48 action add 114 48 db employee 115 49 module hr.pl 116 |