#===================================================================== # SQL-Ledger, Accounting # Copyright (c) 2004 # # Author: Dieter Simader # Email: dsimader@sql-ledger.org # 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 SL::HR; use SL::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'); $form->header; print qq|

{script}>

$form->{title}

|.$locale->text('Employee Number').qq|

|.$locale->text('Employee Name').qq|

|.$locale->text('Startdate').qq|

{startdate}>

|.$locale->text('Enddate').qq|

{enddate}>

|.$locale->text('Notes').qq|

|.$locale->text('Include in Report').qq|

\|.$locale->text('ID').qq\|	\|.$locale->text('Employee Number').qq\|	\|.$locale->text('Employee Name').qq\|	\|.$locale->text('Address').qq\|	\|.$locale->text('City').qq\|
\|.$locale->text('State/Province').qq\|	\|.$locale->text('Zip/Postal Code').qq\|	\|.$locale->text('Country').qq\|	\|.$locale->text('Work Phone').qq\|
\|.$locale->text('Home Phone').qq\|	\|.$locale->text('Startdate').qq\|	\|.$locale->text('Enddate').qq\|	\|.$locale->text('Sales').qq\|
\|.$locale->text('Manager').qq\|	\|.$locale->text('Role').qq\|	\|.$locale->text('Login').qq\|	\|.$locale->text('E-mail').qq\|
\|.$locale->text('SSN').qq\|	\|.$locale->text('DOB').qq\|	\|.$locale->text('IBAN').qq\|	\|.$locale->text('BIC').qq\|	\|.$locale->text('Notes').qq\|

{db}> {path}> {login}> {sessionid}>

|; } sub list_employees { HR->employees(\%myconfig, \%$form); $href = "$form->{script}?action=list_employees&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}"; $form->sort_order(); $callback = "$form->{script}?action=list_employees&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}"; @columns = $form->sort_columns(qw(id employeenumber name address city state zipcode country workphone homephone email startdate enddate ssn dob iban bic sales role manager login notes)); foreach $item (@columns) { if ($form->{"l_$item"} eq "Y") { push @column_index, $item; # add column to href and callback $callback .= "&l_$item=Y"; $href .= "&l_$item=Y"; } } %role = ( user => $locale->text('User'), supervisor => $locale->text('Supervisor'), manager => $locale->text('Manager'), admin => $locale->text('Administrator') ); $option = $locale->text('All'); if ($form->{status} eq 'sales') { $option = $locale->text('Sales'); } if ($form->{status} eq 'orphaned') { $option = $locale->text('Orphaned'); } if ($form->{employeenumber}) { $callback .= "&employeenumber=".$form->escape($form->{employeenumber},1); $href .= "&employeenumber=".$form->escape($form->{employeenumber}); $option .= "\n
".$locale->text('Employee Number')." : $form->{employeenumber}"; } if ($form->{name}) { $callback .= "&name=".$form->escape($form->{name},1); $href .= "&name=".$form->escape($form->{name}); $option .= "\n
".$locale->text('Employee Name')." : $form->{name}"; } if ($form->{startdate}) { $callback .= "&startdate=$form->{startdate}"; $href .= "&startdate=$form->{startdate}"; $option .= "\n
" if ($option); $option .= $locale->text('Startdate')." ".$locale->date(\%myconfig, $form->{startdate}, 1); } if ($form->{enddate}) { $callback .= "&enddate=$form->{enddate}"; $href .= "&enddate=$form->{enddate}"; $option .= "\n
" if ($option); $option .= $locale->text('Enddate')." ".$locale->date(\%myconfig, $form->{enddate}, 1); } if ($form->{notes}) { $callback .= "¬es=".$form->escape($form->{notes},1); $href .= "¬es=".$form->escape($form->{notes}); $option .= "\n
" if $option; $option .= $locale->text('Notes')." : $form->{notes}"; } $form->{callback} = "$callback&sort=$form->{sort}"; $callback = $form->escape($form->{callback}); $column_header{id} = qq||.$locale->text('ID').qq||; $column_header{employeenumber} = qq||.$locale->text('Number').qq||; $column_header{name} = qq||.$locale->text('Name').qq||; $column_header{manager} = qq||.$locale->text('Manager').qq||; $column_header{address} = qq||.$locale->text('Address').qq||; $column_header{city} = qq||.$locale->text('City').qq||; $column_header{state} = qq||.$locale->text('State/Province').qq||; $column_header{zipcode} = qq||.$locale->text('Zip/Postal Code').qq||; $column_header{country} = qq||.$locale->text('Country').qq||; $column_header{workphone} = qq||.$locale->text('Work Phone').qq||; $column_header{homephone} = qq||.$locale->text('Home Phone').qq||; $column_header{startdate} = qq||.$locale->text('Startdate').qq||; $column_header{enddate} = qq||.$locale->text('Enddate').qq||; $column_header{notes} = qq||.$locale->text('Notes').qq||; $column_header{role} = qq||.$locale->text('Role').qq||; $column_header{login} = qq||.$locale->text('Login').qq||; $column_header{sales} = qq||.$locale->text('S').qq||; $column_header{email} = qq||.$locale->text('E-mail').qq||; $column_header{ssn} = qq||.$locale->text('SSN').qq||; $column_header{dob} = qq||.$locale->text('DOB').qq||; $column_header{iban} = qq||.$locale->text('IBAN').qq||; $column_header{bic} = qq||.$locale->text('BIC').qq||; $form->{title} = $locale->text('Employees'); $form->header; print qq|

$form->{title}

$option

|; map { print "$column_header{$_}\n" } @column_index; print qq| |; foreach $ref (@{ $form->{all_employee} }) { map { $column_data{$_} = "" } @column_index; $column_data{sales} = ($ref->{sales}) ? "" : ""; $column_data{role} = qq||; $column_date{address} = qq|$ref->{address1} $ref->{address2}|; $column_data{name} = ""; if ($ref->{email}) { $email = $ref->{email}; $email =~ s//\>/; $column_data{email} = qq||; } $i++; $i %= 2; print " "; map { print "$column_data{$_}\n" } @column_index; print qq| |; } $i = 1; $button{'HR--Employees--Add Employee'}{code} = qq| |; $button{'HR--Employees--Add Employee'}{order} = $i++; foreach $item (split /;/, $myconfig{acs}) { delete $button{$item}; } print qq|

$ref->{$_}

$role{"$ref->{role}"}

{script}?action=edit&db=employee&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}&callback=$callback>$ref->{name}

$email

|; } sub edit { # $locale->text('Edit Employee') # $locale->text('Edit Deduction') $label = ucfirst $form->{db}; $form->{title} = "Edit $label"; &{ "$form->{db}_links" }; } sub employee_links { #$form->{deductions} = 1; HR->get_employee(\%myconfig, \%$form); map { $form->{$_} = $form->quote($form->{$_}) } keys %$form; if ($form->{all_deduction}) { $form->{selectdeduction} = "