diff options
Diffstat (limited to 'bin/lynx/hr.pl')
| -rwxr-xr-x | bin/lynx/hr.pl | 1246 |
1 files changed, 1246 insertions, 0 deletions
diff --git a/bin/lynx/hr.pl b/bin/lynx/hr.pl new file mode 100755 index 00000000..9b86d86b --- /dev/null +++ b/bin/lynx/hr.pl @@ -0,0 +1,1246 @@ +#===================================================================== +# LedgerSMB Small Medium Business Accounting +# Copyright (c) 2004 +# +# Author: DWS Systems Inc. +# Web: http://sourceforge.net/projects/ledger-smb/ +# +# +# 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'); + + @a = (); + + push @a, qq|<input name="l_ndx" type=checkbox class=checkbox value=Y> |.$locale->text('Pos'); + push @a, qq|<input name="l_id" type=checkbox class=checkbox value=Y> |.$locale->text('ID'); + push @a, qq|<input name="l_employeenumber" type=checkbox class=checkbox value=Y checked> |.$locale->text('Employee Number'); + push @a, qq|<input name="l_name" type=checkbox class=checkbox value=Y checked> |.$locale->text('Employee Name'); + push @a, qq|<input name="l_address" type=checkbox class=checkbox value=Y> |.$locale->text('Address'); + push @a, qq|<input name="l_city" type=checkbox class=checkbox value=Y> |.$locale->text('City'); + push @a, qq|<input name="l_state" type=checkbox class=checkbox value=Y> |.$locale->text('State/Province'); + push @a, qq|<input name="l_zipcode" type=checkbox class=checkbox value=Y> |.$locale->text('Zip/Postal Code'); + push @a, qq|<input name="l_country" type=checkbox class=checkbox value=Y> |.$locale->text('Country'); + push @a, qq|<input name="l_workphone" type=checkbox class=checkbox value=Y checked> |.$locale->text('Work Phone'); + push @a, qq|<input name="l_homephone" type=checkbox class=checkbox value=Y checked> |.$locale->text('Home Phone'); + push @a, qq|<input name="l_startdate" type=checkbox class=checkbox value=Y checked> |.$locale->text('Startdate'); + push @a, qq|<input name="l_enddate" type=checkbox class=checkbox value=Y checked> |.$locale->text('Enddate'); + push @a, qq|<input name="l_sales" type=checkbox class=checkbox value=Y> |.$locale->text('Sales'); + push @a, qq|<input name="l_manager" type=checkbox class=checkbox value=Y> |.$locale->text('Manager'); + push @a, qq|<input name="l_role" type=checkbox class=checkbox value=Y checked> |.$locale->text('Role'); + push @a, qq|<input name="l_login" type=checkbox class=checkbox value=Y checked> |.$locale->text('Login'); + push @a, qq|<input name="l_email" type=checkbox class=checkbox value=Y> |.$locale->text('E-mail'); + push @a, qq|<input name="l_ssn" type=checkbox class=checkbox value=Y> |.$locale->text('SSN'); + push @a, qq|<input name="l_dob" type=checkbox class=checkbox value=Y> |.$locale->text('DOB'); + push @a, qq|<input name="l_iban" type=checkbox class=checkbox value=Y> |.$locale->text('IBAN'); + push @a, qq|<input name="l_bic" type=checkbox class=checkbox value=Y> |.$locale->text('BIC'); + push @a, qq|<input name="l_notes" type=checkbox class=checkbox value=Y> |.$locale->text('Notes'); + + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr valign=top> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Employee Number').qq|</th> + <td colspan=3><input name=employeenumber size=20></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Employee Name').qq|</th> + <td colspan=3><input name=name size=35></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Startdate').qq|</th> + <td>|.$locale->text('From').qq| <input name=startdatefrom size=11 title="$myconfig{dateformat}"> |.$locale->text('To').qq| <input name=startdateto size=11 title="$myconfig{dateformat}"></td> + </tr> + <tr valign=top> + <th align=right nowrap>|.$locale->text('Notes').qq|</th> + <td colspan=3><input name=notes size=40></td> + </tr> + <tr> + <td></td> + <td colspan=3><input name=status class=radio type=radio value=all checked> |.$locale->text('All').qq| + <input name=status class=radio type=radio value=active> |.$locale->text('Active').qq| + <input name=status class=radio type=radio value=inactive> |.$locale->text('Inactive').qq| + <input name=status class=radio type=radio value=orphaned> |.$locale->text('Orphaned').qq| + <input name=sales class=checkbox type=checkbox value=Y> |.$locale->text('Sales').qq| + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Include in Report').qq|</th> + <td colspan=3> + <table> +|; + + while (@a) { + print qq|<tr>\n|; + for (1 .. 5) { + print qq|<td nowrap>|. shift @a; + print qq|</td>\n|; + } + print qq|</tr>\n|; + } + + print qq| + </table> + </td> + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input type=hidden name=nextsub value=list_employees> +|; + + $form->hide_form(qw(db path login sessionid)); + + print qq| +<br> +<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|"> +</form> +|; + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + +</body> +</html> +|; +} + + +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)); + unshift @columns, "ndx"; + + 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->{status} eq 'active') { + $option = $locale->text('Active'); + } + if ($form->{status} eq 'inactive') { + $option = $locale->text('Inactive'); + } + + if ($form->{employeenumber}) { + $callback .= "&employeenumber=".$form->escape($form->{employeenumber},1); + $href .= "&employeenumber=".$form->escape($form->{employeenumber}); + $option .= "\n<br>".$locale->text('Employee Number')." : $form->{employeenumber}"; + } + if ($form->{name}) { + $callback .= "&name=".$form->escape($form->{name},1); + $href .= "&name=".$form->escape($form->{name}); + $option .= "\n<br>".$locale->text('Employee Name')." : $form->{name}"; + } + if ($form->{startdatefrom}) { + $callback .= "&startdatefrom=$form->{startdatefrom}"; + $href .= "&startdatefrom=$form->{startdatefrom}"; + $fromdate = $locale->date(\%myconfig, $form->{startdatefrom}, 1); + } + if ($form->{startdateto}) { + $callback .= "&startdateto=$form->{startdateto}"; + $href .= "&startdateto=$form->{startdateto}"; + $todate = $locale->date(\%myconfig, $form->{startdateto}, 1); + } + if ($fromdate || $todate) { + $option .= "\n<br>".$locale->text('Startdate')." $fromdate - $todate"; + } + + if ($form->{notes}) { + $callback .= "¬es=".$form->escape($form->{notes},1); + $href .= "¬es=".$form->escape($form->{notes}); + $option .= "\n<br>" if $option; + $option .= $locale->text('Notes')." : $form->{notes}"; + } + + $form->{callback} = "$callback&sort=$form->{sort}"; + $callback = $form->escape($form->{callback}); + + $column_header{ndx} = qq|<th class=listheading> </th>|; + $column_header{id} = qq|<th class=listheading>|.$locale->text('ID').qq|</th>|; + $column_header{employeenumber} = qq|<th><a class=listheading href=$href&sort=employeenumber>|.$locale->text('Number').qq|</a></th>|; + $column_header{name} = qq|<th><a class=listheading href=$href&sort=name>|.$locale->text('Name').qq|</a></th>|; + $column_header{manager} = qq|<th><a class=listheading href=$href&sort=manager>|.$locale->text('Manager').qq|</a></th>|; + $column_header{address} = qq|<th class=listheading>|.$locale->text('Address').qq|</a></th>|; + $column_header{city} = qq|<th><a class=listheading href=$href&sort=city>|.$locale->text('City').qq|</a></th>|; + $column_header{state} = qq|<th><a class=listheading href=$href&sort=state>|.$locale->text('State/Province').qq|</a></th>|; + $column_header{zipcode} = qq|<th><a class=listheading href=$href&sort=zipcode>|.$locale->text('Zip/Postal Code').qq|</a></th>|; + $column_header{country} = qq|<th><a class=listheading href=$href&sort=country>|.$locale->text('Country').qq|</a></th>|; + $column_header{workphone} = qq|<th><a class=listheading href=$href&sort=workphone>|.$locale->text('Work Phone').qq|</a></th>|; + $column_header{homephone} = qq|<th><a class=listheading href=$href&sort=homephone>|.$locale->text('Home Phone').qq|</a></th>|; + + $column_header{startdate} = qq|<th><a class=listheading href=$href&sort=startdate>|.$locale->text('Startdate').qq|</a></th>|; + $column_header{enddate} = qq|<th><a class=listheading href=$href&sort=enddate>|.$locale->text('Enddate').qq|</a></th>|; + $column_header{notes} = qq|<th><a class=listheading href=$href&sort=notes>|.$locale->text('Notes').qq|</a></th>|; + $column_header{role} = qq|<th><a class=listheading href=$href&sort=role>|.$locale->text('Role').qq|</a></th>|; + $column_header{login} = qq|<th><a class=listheading href=$href&sort=login>|.$locale->text('Login').qq|</a></th>|; + + $column_header{sales} = qq|<th class=listheading>|.$locale->text('S').qq|</th>|; + $column_header{email} = qq|<th><a class=listheading href=$href&sort=email>|.$locale->text('E-mail').qq|</a></th>|; + $column_header{ssn} = qq|<th><a class=listheading href=$href&sort=ssn>|.$locale->text('SSN').qq|</a></th>|; + $column_header{dob} = qq|<th><a class=listheading href=$href&sort=dob>|.$locale->text('DOB').qq|</a></th>|; + $column_header{iban} = qq|<th><a class=listheading href=$href&sort=iban>|.$locale->text('IBAN').qq|</a></th>|; + $column_header{bic} = qq|<th><a class=listheading href=$href&sort=bic>|.$locale->text('BIC').qq|</a></th>|; + + $form->{title} = $locale->text('Employees'); + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + for (@column_index) { print "$column_header{$_}\n" } + + print qq| + </tr> +|; + + $i = 0; + foreach $ref (@{ $form->{all_employee} }) { + + $i++; + + $ref->{notes} =~ s/\r?\n/<br>/g; + for (@column_index) { $column_data{$_} = "<td>$ref->{$_} </td>" } + + $column_data{ndx} = "<td align=right>$i</td>"; + + $column_data{sales} = ($ref->{sales}) ? "<td>x</td>" : "<td> </td>"; + $column_data{role} = qq|<td>$role{"$ref->{role}"} </td>|; + $column_date{address} = qq|$ref->{address1} $ref->{address2}|; + + $column_data{name} = "<td><a href=$form->{script}?action=edit&db=employee&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}&callback=$callback>$ref->{name} </td>"; + + if ($ref->{email}) { + $email = $ref->{email}; + $email =~ s/</\</; + $email =~ s/>/\>/; + + $column_data{email} = qq|<td><a href="mailto:$ref->{email}">$email</a></td>|; + } + + $j++; $j %= 2; + print " + <tr class=listrow$j> +"; + + for (@column_index) { print "$column_data{$_}\n" } + + print qq| + </tr> +|; + + } + + $i = 1; + $button{'HR--Employees--Add Employee'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Employee').qq|"> |; + $button{'HR--Employees--Add Employee'}{order} = $i++; + + foreach $item (split /;/, $myconfig{acs}) { + delete $button{$item}; + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<form method=post action=$form->{script}> +|; + + $form->hide_form(qw(callback db path login sessionid)); + + foreach $item (sort { $a->{order} <=> $b->{order} } %button) { + print $item->{code}; + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + +</body> +</html> +|; + +} + + +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); + + for (keys %$form) { $form->{$_} = $form->quote($form->{$_}) } + + if (@{ $form->{all_deduction} }) { + $form->{selectdeduction} = "<option>\n"; + for (@{ $form->{all_deduction} }) { $form->{selectdeduction} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } + } + + $form->{manager} = "$form->{manager}--$form->{managerid}"; + + if (@{ $form->{all_manager} }) { + $form->{selectmanager} = "<option>\n"; + for (@{ $form->{all_manager} }) { $form->{selectmanager} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } + } + + %role = ( user => $locale->text('User'), + supervisor => $locale->text('Supervisor'), + manager => $locale->text('Manager'), + admin => $locale->text('Administrator') + ); + + $form->{selectrole} = "<option>\n"; + for (qw(user supervisor manager admin)) { $form->{selectrole} .= "<option value=$_>$role{$_}\n" } + + $i = 1; + foreach $ref (@{ $form->{all_employeededuction} }) { + $form->{"deduction_$i"} = "$ref->{description}--$ref->{id}" if $ref->{id}; + for (qw(before after rate)) { $form->{"${_}_$i"} = $ref->{$_} } + $i++; + } + $form->{deduction_rows} = $i - 1; + + &employee_header; + &employee_footer; + +} + + +sub employee_header { + + $sales = qq|<input type=hidden name=sales value=$form->{sales}>|; + $form->{sales} = ($form->{sales}) ? "checked" : ""; + + $form->{selectrole} =~ s/ selected//; + $form->{selectrole} =~ s/option value=\Q$form->{role}\E>/option value=$form->{role} selected>/; + + $form->{selectdeduction} = $form->unescape($form->{selectdeduction}); + + $form->{selectmanager} = $form->unescape($form->{selectmanager}); + $form->{selectmanager} =~ s/ selected//; + $form->{selectmanager} =~ s/(<option value="\Q$form->{manager}\E")/$1 selected/; + + $sales .= qq| +<input type=hidden name=role value=$form->{role}> +<input type=hidden name=manager value=$form->{manager}> +|; + + if ($myconfig{role} ne 'user') { + $sales = qq| + <tr> + <th align=right>|.$locale->text('Sales').qq|</th> + <td><input name=sales class=checkbox type=checkbox value=1 $form->{sales}></td> + </tr> + <tr> + <th align=right>|.$locale->text('Role').qq|</th> + <td><select name=role>$form->{selectrole}</select></td> + </tr> +|; + + if ($form->{selectmanager}) { + $sales .= qq| + <tr> + <th align=right>|.$locale->text('Manager').qq|</th> + <td><select name=manager>$form->{selectmanager}</select></td> + </tr> +|; + } + } + + $form->{deduction_rows}++; + + for $i (1 .. $form->{deduction_rows}) { + $form->{"selectdeduction_$i"} = $form->{selectdeduction}; + if ($form->{"deduction_$i"}) { + $form->{"selectdeduction_$i"} =~ s/(<option value="\Q$form->{"deduction_$i"}\E")/$1 selected/; + } + } + + $form->{selectdeduction} = $form->escape($form->{selectdeduction},1); + $form->{selectmanager} = $form->escape($form->{selectmanager},1); + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=selectdeduction value="$form->{selectdeduction}"> +<input type=hidden name=deduction_rows value=$form->{deduction_rows}> + +<input type=hidden name=selectmanager value="$form->{selectmanager}"> +<input type=hidden name=selectrole value="$form->{selectrole}"> + +<input type=hidden name=status value=$form->{status}> + +<input type=hidden name=title value="$form->{title}"> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr valign=top> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Number').qq|</th> + <td><input name=employeenumber size=32 maxlength=32 value="$form->{employeenumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Name').qq|</th> + <td><input name=name size=35 maxlength=64 value="$form->{name}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Address').qq|</th> + <td><input name=address1 size=35 maxlength=32 value="$form->{address1}"></td> + </tr> + <tr> + <th></th> + <td><input name=address2 size=35 maxlength=32 value="$form->{address2}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('City').qq|</th> + <td><input name=city size=35 maxlength=32 value="$form->{city}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('State/Province').qq|</th> + <td><input name=state size=35 maxlength=32 value="$form->{state}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Zip/Postal Code').qq|</th> + <td><input name=zipcode size=10 maxlength=10 value="$form->{zipcode}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Country').qq|</th> + <td><input name=country size=35 maxlength=32 value="$form->{country}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('E-mail').qq|</th> + <td><input name=email size=35 value="$form->{email}"></td> + </tr> + <tr> + $sales + </table> + </td> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Work Phone').qq|</th> + <td><input name=workphone size=20 maxlength=20 value="$form->{workphone}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Home Phone').qq|</th> + <td><input name=homephone size=20 maxlength=20 value="$form->{homephone}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Startdate').qq|</th> + <td><input name=startdate size=11 title="$myconfig{dateformat}" value=$form->{startdate}></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Enddate').qq|</th> + <td><input name=enddate size=11 title="$myconfig{dateformat}" value=$form->{enddate}></td> + </tr> + + <tr> + <th align=right nowrap>|.$locale->text('SSN').qq|</th> + <td><input name=ssn size=20 maxlength=20 value="$form->{ssn}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('DOB').qq|</th> + <td><input name=dob size=11 title="$myconfig{dateformat}" value=$form->{dob}></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('IBAN').qq|</th> + <td><input name=iban size=34 maxlength=34 value="$form->{iban}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('BIC').qq|</th> + <td><input name=bic size=11 maxlength=11 value="$form->{bic}"></td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> + <tr> + <th align=left nowrap>|.$locale->text('Notes').qq|</th> + </tr> + <tr> + <td><textarea name=notes rows=3 cols=60 wrap=soft>$form->{notes}</textarea></td> + </tr> +|; + + if ($form->{selectdeduction}) { + + print qq| + <tr> + <td> + <table width=100%> + <tr class=listheading> + <th class=listheading>|.$locale->text('Payroll Deduction').qq|</th> + <th class=listheading colspan=3>|.$locale->text('Allowances').qq|</th> + </tr> + + <tr class=listheading> + <th></th> + <th class=listheading>|.$locale->text('Before Deduction').qq|</th> + <th class=listheading>|.$locale->text('After Deduction').qq|</th> + <th class=listheading>|.$locale->text('Rate').qq|</th> + </tr> +|; + + for $i (1 .. $form->{deduction_rows}) { + print qq| + <tr> + <td><select name="deduction_$i">$form->{"selectdeduction_$i"}</select></td> + <td><input name="before_$i" value=|.$form->format_amount(\%myconfig, $form->{"before_$i"}, 2).qq|></td> + <td><input name="after_$i" value=|.$form->format_amount(\%myconfig, $form->{"after_$i"}, 2).qq|></td> + <td><input name="rate_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"rate_$i"}).qq|></td> + </tr> +|; + } + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + + +sub employee_footer { + + print qq| +<input name=id type=hidden value=$form->{id}> + +<input type=hidden name=db value=$form->{db}> +<input type=hidden name=employeelogin value=$form->{employeelogin}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=hidden name=callback value="$form->{callback}"> + +<br> + +<input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> +<input class=submit type=submit name=action value="|.$locale->text('Save').qq|"> +|; + + if ($form->{id}) { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Save as new').qq|">\n|; + if ($form->{status} eq 'orphaned') { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">\n|; + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + + </form> + +</body> +</html> +|; + +} + + +sub save { &{ "save_$form->{db}" } }; + + +sub save_employee { + + $form->isblank("name", $locale->text("Name missing!")); + HR->save_employee(\%myconfig, \%$form); + + # if it is a login change memberfile and .conf + if ($form->{employeelogin}) { + $user = new User $memberfile, $form->{employeelogin}; + + for (qw(name email role)) { $user->{$_} = $form->{$_} } + + # assign $myconfig for db + for (qw(dbconnect dbhost dbport dbpasswd)) { $user->{$_} = $myconfig{$_} } + + for (qw(dbpasswd password)) { $user->{"old_$_"} = $user->{$_} } + $user->{packpw} = 1; + + $user->save_member($memberfile, $userspath) if $user->{login}; + } + + $form->redirect($locale->text('Employee saved!')); + +} + + +sub delete { &{ "delete_$form->{db}" } }; + + +sub delete_employee { + + HR->delete_employee(\%myconfig, \%$form); + $form->redirect($locale->text('Employee deleted!')); + +} + + +sub continue { &{ $form->{nextsub} } }; + +sub add_employee { &add }; +sub add_deduction { &add }; + + +sub search_deduction { + + HR->deductions(\%myconfig, \%$form); + + $href = "$form->{script}?action=search_deduction&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $form->sort_order(); + + $callback = "$form->{script}?action=search_deduction&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + @column_index = $form->sort_columns(qw(description rate amount above below employeepays employerpays ap_accno expense_accno)); + + + $form->{callback} = $callback; + $callback = $form->escape($form->{callback}); + + $column_header{description} = qq|<th class=listheading href=$href>|.$locale->text('Description').qq|</th>|; + $column_header{rate} = qq|<th class=listheading nowrap>|.$locale->text('Rate').qq|<br>%</th>|; + $column_header{amount} = qq|<th class=listheading>|.$locale->text('Amount').qq|</th>|; + $column_header{above} = qq|<th class=listheading>|.$locale->text('Above').qq|</th>|; + $column_header{below} = qq|<th class=listheading>|.$locale->text('Below').qq|</th>|; + $column_header{employerpays} = qq|<th class=listheading>|.$locale->text('Employer').qq|</th>|; + $column_header{employeepays} = qq|<th class=listheading>|.$locale->text('Employee').qq|</th>|; + + $column_header{ap_accno} = qq|<th class=listheading>|.$locale->text('AP').qq|</th>|; + $column_header{expense_accno} = qq|<th class=listheading>|.$locale->text('Expense').qq|</th>|; + + $form->{title} = $locale->text('Deductions'); + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + for (@column_index) { print "$column_header{$_}\n" } + + print qq| + </tr> +|; + + + foreach $ref (@{ $form->{all_deduction} }) { + + $rate = $form->format_amount(\%myconfig, $ref->{rate} * 100, "", " "); + + $column_data{rate} = "<td align=right>$rate</td>"; + + for (qw(amount below above)) { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{$_}, 2, " ")."</td>" } + + for (qw(ap_accno expense_accno)) { $column_data{$_} = "<td>$ref->{$_} </td>" } + + for (qw(employerpays employeepays)) { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{$_}, "", " ")."</td>" } + + if ($ref->{description} ne $sameitem) { + $column_data{description} = "<td><a href=$form->{script}?action=edit&db=$form->{db}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}</a></td>"; + } else { + $column_data{description} = "<td> </td>"; + } + + $i++; $i %= 2; + print " + <tr class=listrow$i> +"; + + for (@column_index) { print "$column_data{$_}\n" } + + print qq| + </tr> +|; + + $sameitem = $ref->{description}; + + } + + $i = 1; + $button{'HR--Deductions--Add Deduction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Deduction').qq|"> |; + $button{'HR--Deductions--Add Deduction'}{order} = $i++; + + foreach $item (split /;/, $myconfig{acs}) { + delete $button{$item}; + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<form method=post action=$form->{script}> + +<input type=hidden name=db value=$form->{db}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +|; + + foreach $item (sort { $a->{order} <=> $b->{order} } %button) { + print $item->{code}; + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + +</body> +</html> +|; + +} + + +sub deduction_links { + + HR->get_deduction(\%myconfig, \%$form); + + $i = 1; + foreach $ref (@{ $form->{deductionrate} }) { + for (keys %$ref) { $form->{"${_}_$i"} = $ref->{$_} } + $i++; + } + $form->{rate_rows} = $i - 1; + + $i = 1; + foreach $ref (@{ $form->{deductionbase} }) { + $form->{"base_$i"} = "$ref->{description}--$ref->{id}" if $ref->{id}; + $form->{"maximum_$i"} = $ref->{maximum}; + $i++; + } + $form->{base_rows} = $i - 1; + + $i = 1; + foreach $ref (@{ $form->{deductionafter} }) { + $form->{"after_$i"} = "$ref->{description}--$ref->{id}" if $ref->{id}; + $i++; + } + $form->{after_rows} = $i - 1; + + $form->{employeepays} = 1; + + $selectaccount = "<option>\n"; + for (@{ $form->{ap_accounts} }) { $selectaccount .= "<option>$_->{accno}--$_->{description}\n" } + + $form->{ap_accno} = qq|$form->{ap_accno}--$form->{ap_description}|; + $form->{selectap} = $selectaccount; + + $selectaccount = "<option>\n"; + for (@{ $form->{expense_accounts} }) { $selectaccount .= "<option>$_->{accno}--$_->{description}\n" } + + $form->{expense_accno} = qq|$form->{expense_accno}--$form->{expense_description}|; + $form->{selectexpense} = $selectaccount; + + for (1 .. $form->{rate_rows}) { $form->{"rate_$_"} *= 100 } + + $form->{selectbase} = "<option>\n"; + for (@{ $form->{all_deduction} }) { $form->{selectbase} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } + + &deduction_header; + &deduction_footer; + +} + + +sub deduction_header { + + $selectap = $form->{selectap}; + $selectap =~ s/option>\Q$form->{ap_accno}\E/option selected>$form->{ap_accno}/; + $selectexpense = $form->{selectexpense}; + $selectexpense =~ s/option>\Q$form->{expense_accno}\E/option selected>$form->{expense_accno}/; + + + $form->{rate_rows}++; + $form->{base_rows}++; + $form->{after_rows}++; + + $form->{selectbase} = $form->unescape($form->{selectbase}); + + for $i (1 .. $form->{base_rows}) { + $form->{"selectbase_$i"} = $form->{selectbase}; + if ($form->{"base_$i"}) { + $form->{"selectbase_$i"} =~ s/(<option value="\Q$form->{"base_$i"}\E")/$1 selected/; + } + } + for $i (1 .. $form->{after_rows}) { + $form->{"selectafter_$i"} = $form->{selectbase}; + if ($form->{"after_$i"}) { + $form->{"selectafter_$i"} =~ s/(<option value="\Q$form->{"after_$i"}\E")/$1 selected/; + } + } + + + $form->header; + + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=title value="$form->{title}"> + +<input type=hidden name=selectap value="$form->{selectap}"> +<input type=hidden name=selectexpense value="$form->{selectexpense}"> +<input type=hidden name=selectbase value="|.$form->escape($form->{selectbase},1).qq|"> + +<input type=hidden name=rate_rows value=$form->{rate_rows}> +<input type=hidden name=base_rows value=$form->{base_rows}> +<input type=hidden name=after_rows value=$form->{after_rows}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Description').qq|</th> + <td><input name=description size=35 value="$form->{description}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('AP').qq|</th> + <td><select name=ap_accno>$selectap</select></td> + <th align=right nowrap>|.$locale->text('Employee pays').qq| x</th> + <td><input name=employeepays size=4 value=|.$form->format_amount(\%myconfig, $form->{employeepays}).qq|></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Expense').qq|</th> + <td><select name=expense_accno>$selectexpense</select></td> + <th align=right nowrap>|.$locale->text('Employer pays').qq| x</th> + <td><input name=employerpays size=4 value=|.$form->format_amount(\%myconfig, $form->{employerpays}).qq|></td> + </tr> + <tr> + <td></td> + <td></td> + <th align=right nowrap>|.$locale->text('Exempt age <').qq|</th> + <td><input name=fromage size=4 value=|.$form->format_amount(\%myconfig, $form->{fromage}).qq|></td> + <th align=right nowrap>></th> + <td><input name=toage size=4 value=|.$form->format_amount(\%myconfig, $form->{toage}).qq|> + </tr> + <tr> + <td></td> + <td> + <table> + <tr class=listheading> + <th class=listheading>|.$locale->text('Rate').qq| %</th> + <th class=listheading>|.$locale->text('Amount').qq|</th> + <th class=listheading>|.$locale->text('Above').qq|</th> + <th class=listheading>|.$locale->text('Below').qq|</th> + </tr> +|; + + for $i (1 .. $form->{rate_rows}) { + print qq| + <tr> + <td><input name="rate_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"rate_$i"}).qq|></td> + <td><input name="amount_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"amount_$i"}, 2).qq|></td> + <td><input name="above_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"above_$i"}, 2).qq|></td> + <td><input name="below_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"below_$i"}, 2).qq|></td> + </tr> +|; + } + + print qq| + </table> + </td> + </tr> + </table> + </td> + </tr> +|; + + print qq| + <tr> + <td> + <table> +|; + + $basedon = $locale->text('Based on'); + $maximum = $locale->text('Maximum'); + + for $i (1 .. $form->{base_rows}) { + print qq| + <tr> + <th>$basedon</th> + <td><select name="base_$i">$form->{"selectbase_$i"}</select></td> + <th>$maximum</th> + <td><input name="maximum_$i" value=|.$form->format_amount(\%myconfig, $form->{"maximum_$i"}, 2).qq|></td> + </tr> +|; + $basedon = ""; + $maximum = ""; + } + + $deductafter = $locale->text('Deduct after'); + + for $i (1 .. $form->{after_rows}) { + print qq| + <tr> + <th>$deductafter</th> + <td><select name="after_$i">$form->{"selectafter_$i"}</select></td> + </tr> +|; + $deductafter = ""; + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + + +sub deduction_footer { + + print qq| +<input name=id type=hidden value=$form->{id}> + +<input type=hidden name=db value=$form->{db}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=hidden name=callback value="$form->{callback}"> + +<br> + +<input class=submit type=submit name=action value="|.$locale->text("Update").qq|"> +<input class=submit type=submit name=action value="|.$locale->text("Save").qq|"> +|; + + if ($form->{id}) { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Save as new').qq|">\n|; + + if ($form->{status} eq 'orphaned') { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">\n|; + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + + </form> + +</body> +</html> +|; + +} + + +sub update { &{ "update_$form->{db}" }; } +sub save { &{ "save_$form->{db}" } }; + + +sub update_deduction { + + # if rate or amount is blank remove row + @flds = qw(rate amount above below); + $count = 0; + @a = (); + for $i (1 .. $form->{rate_rows}) { + for (@flds) { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } + if ($form->{"rate_$i"} || $form->{"amount_$i"}) { + push @a, {}; + $j = $#a; + + for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} } + $count++; + } + } + $form->redo_rows(\@flds, \@a, $count, $form->{rate_rows}); + $form->{rate_rows} = $count; + + + @flds = qw(base maximum); + $count = 0; + @a = (); + for $i (1 .. $form->{"base_rows"}) { + $form->{"maximum_$i"} = $form->parse_amount(\%myconfig, $form->{"maximum_$i"}); + if ($form->{"base_$i"}) { + push @a, {}; + $j = $#a; + + for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} } + $count++; + } + } + $form->redo_rows(\@flds, \@a, $count, $form->{"base_rows"}); + $form->{"base_rows"} = $count; + + + @flds = qw(after); + $count = 0; + @a = (); + for $i (1 .. $form->{"after_rows"}) { + if ($form->{"after_$i"}) { + push @a, {}; + $j = $#a; + + for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} } + $count++; + } + } + $form->redo_rows(\@flds, \@a, $count, $form->{"after_rows"}); + $form->{"after_rows"} = $count; + + &deduction_header; + &deduction_footer; + +} + + +sub update_employee { + + # if rate or amount is blank remove row + @flds = qw(before after); + $count = 0; + @a = (); + for $i (1 .. $form->{deduction_rows}) { + for (@flds) { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } + if ($form->{"deduction_$i"}) { + push @a, {}; + $j = $#a; + + for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} } + $count++; + } + } + $form->redo_rows(\@flds, \@a, $count, $form->{deduction_rows}); + $form->{deduction_rows} = $count; + + &employee_header; + &employee_footer; + +} + + +sub save_as_new { + + $form->{id} = 0; + delete $form->{employeelogin}; + + &save; + +} + + +sub save_deduction { + + $form->isblank("description", $locale->text("Description missing!")); + + unless ($form->{"rate_1"} || $form->{"amount_1"}) { + $form->isblank("rate_1", $locale->text("Rate missing!")) unless $form->{"amount_1"}; + $form->isblank("amount_1", $locale->text("Amount missing!")); + } + + HR->save_deduction(\%myconfig, \%$form); + $form->redirect($locale->text('Deduction saved!')); + +} + + +sub delete_deduction { + + HR->delete_deduction(\%myconfig, \%$form); + $form->redirect($locale->text('Deduction deleted!')); + +} + + |