SF.net SVN: ledger-smb: [1908] trunk

[..hidden..]

Revision: 1908
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1908&view=rev
Author:   einhverfr
Date:     2007-11-25 15:00:12 -0800 (Sun, 25 Nov 2007)

Log Message:
-----------
Employee creation/management is now on new system.  May need some additional tweaking

Modified Paths:
--------------
    trunk/LedgerSMB/DBObject/Company.pm
    trunk/employee.pl
    trunk/scripts/employee.pl
    trunk/sql/Pg-database.sql

Modified: trunk/LedgerSMB/DBObject/Company.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Company.pm	2007-11-25 22:49:51 UTC (rev 1907)
+++ trunk/LedgerSMB/DBObject/Company.pm	2007-11-25 23:00:12 UTC (rev 1908)
@@ -55,7 +55,7 @@
 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);
 

Modified: trunk/employee.pl
===================================================================
--- trunk/employee.pl	2007-11-25 22:49:51 UTC (rev 1907)
+++ trunk/employee.pl	2007-11-25 23:00:12 UTC (rev 1908)
@@ -1,2 +1,2 @@
 #!/usr/bin/perl
-require "old-handler.pl";
+require "lsmb-request.pl";

Modified: trunk/scripts/employee.pl
===================================================================
--- trunk/scripts/employee.pl	2007-11-25 22:49:51 UTC (rev 1907)
+++ trunk/scripts/employee.pl	2007-11-25 23:00:12 UTC (rev 1908)
@@ -47,7 +47,7 @@
     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 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 @@
 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 @@
         # 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, 

Modified: trunk/sql/Pg-database.sql
===================================================================
--- trunk/sql/Pg-database.sql	2007-11-25 22:49:51 UTC (rev 1907)
+++ trunk/sql/Pg-database.sql	2007-11-25 23:00:12 UTC (rev 1908)
@@ -2049,7 +2049,7 @@
 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


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.