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

1 files changed, 43 insertions, 0 deletions

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;