summaryrefslogtreecommitdiff
path: root/scripts/employees.pl
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/employees.pl')
-rw-r--r--scripts/employees.pl43
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;