Adding employee workflow scripts

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1907 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 0 insertions, 43 deletions

diff --git a/scripts/employees.pl b/scripts/employees.pl
deleted file mode 100644
index fa9ec05f..00000000
--- a/scripts/employees.pl
+++ /dev/null
@@ -1,43 +0,0 @@
-# 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;