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

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