From 12c908bf37942a9ac65da380ea24fe3003bafc2a Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 12 Jun 2007 17:13:50 +0000
Subject: Committing Aurynn's changes to Reconciliation logic

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1268 4979c152-3d1c-0410-bac9-87ea11338e46
---
 scripts/employees.pl | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 scripts/employees.pl

(limited to 'scripts/employees.pl')

diff --git a/scripts/employees.pl b/scripts/employees.pl
new file mode 100644
index 00000000..fa9ec05f
--- /dev/null
+++ b/scripts/employees.pl
@@ -0,0 +1,43 @@
+# The handler, prior to handing the execution off to this script will create a
+# $request object from the LedgerSMB namespace.  This object contains the http
+# request parameters, db connections, and the like.  A $user object is also 
+# created
+#
+# Entrence points are functions which do not begin with an underscore (_)
+use LedgerSMB::Template;
+
+sub save {
+    my $employee = LedgerSMB::Employee->new(base => $request, copy => 'all');
+    $employee->save();
+    &_display;
+}
+
+sub search {
+    my $search = LedgerSMB::Employee->new(base => $request, copy => 'all');
+    $employee->{search_results} = $employee->search();
+    my $template = LedgerSMB::Template->new( user => $user, 
+	template => 'employee_search.html', language => $user->{language}, 
+        format => 'html');
+    $template->render($employee);
+}
+
+sub add {
+    my $employee = LedgerSMB::Employee->new(base => $request, copy => 'all');
+    &_display;
+}
+
+sub edit {
+    my $employee = LedgerSMB::Employee->new(base => $request, copy => 'all');
+    $employee->get();
+    &_display;
+}
+
+sub _display {
+    my $template = LedgerSMB::Template->new( user => $user, 
+	template => 'employee.html', language => $user->{language}, 
+        format => 'html');
+    $template->render($employee);
+
+}
+
+1;
-- 
cgit v1.2.3