#===================================================================== # LedgerSMB Small Medium Business Accounting # http://www.ledgersmb.org/ # # Copyright (C) 2006 # This work contains copyrighted information from a number of sources all used # with permission. # # This file contains source code included with or based on SQL-Ledger which # is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed # under the GNU General Public License version 2 or, at your option, any later # version. For a full list including contact information of contributors, # maintainers, and copyright holders, see the CONTRIBUTORS file. # # Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork): # Copyright (c) 2004 # # Author: DWS Systems Inc. # Web: http://www.sql-ledger.org # # # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. #====================================================================== # # payroll module # #====================================================================== use LedgerSMB::HR; use LedgerSMB::User; 1; # end of main sub add { $label = "Add " . ucfirst $form->{db}; $form->{title} = $locale->text($label); $form->{callback} = "$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; &{"$form->{db}_links"}; } sub search { &{"search_$form->{db}"} } sub search_employee { $form->{title} = $locale->text('Employees'); @a = (); push @a, qq| | . $locale->text('Pos'); push @a, qq| | . $locale->text('ID'); push @a, qq| | . $locale->text('Employee Number'); push @a, qq| | . $locale->text('Employee Name'); push @a, qq| | . $locale->text('Address'); push @a, qq| | . $locale->text('City'); push @a, qq| | . $locale->text('State/Province'); push @a, qq| | . $locale->text('Zip/Postal Code'); push @a, qq| | . $locale->text('Country'); push @a, qq| | . $locale->text('Work Phone'); push @a, qq| | . $locale->text('Home Phone'); push @a, qq| | . $locale->text('Startdate'); push @a, qq| | . $locale->text('Enddate'); push @a, qq| | . $locale->text('Sales'); push @a, qq| | . $locale->text('Manager'); push @a, qq| | . $locale->text('Role'); push @a, qq| | . $locale->text('Login'); push @a, qq| | . $locale->text('E-mail'); push @a, qq| | . $locale->text('SSN'); push @a, qq| | . $locale->text('DOB'); push @a, qq| | . $locale->text('IBAN'); push @a, qq| | . $locale->text('BIC'); push @a, qq| | . $locale->text('Notes'); $form->header; print qq|
|; if ( $form->{lynx} ) { require "bin/menu.pl"; &menubar; } print qq|