summaryrefslogtreecommitdiff
path: root/bin/lynx/hr.pl
blob: 9b86d86b6f08dc53756c2e9c84f7d15e9f7c80fc (plain) 
    

  1. #=====================================================================
    2. 

  2. # LedgerSMB Small Medium Business Accounting
    3. 

  3. # Copyright (c) 2004
    4. 

  4. #
    5. 

  5. #  Author: DWS Systems Inc.
    6. 

  6. #     Web: http://sourceforge.net/projects/ledger-smb/
    7. 

  7. #
    8. 

  8. #
    9. 

  9. # This program is free software; you can redistribute it and/or modify
    10. 

  10. # it under the terms of the GNU General Public License as published by
    11. 

  11. # the Free Software Foundation; either version 2 of the License, or
    12. 

  12. # (at your option) any later version.
    13. 

  13. #
    14. 

  14. # This program is distributed in the hope that it will be useful,
    15. 

  15. # but WITHOUT ANY WARRANTY; without even the implied warranty of
    16. 

  16. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    17. 

  17. # GNU General Public License for more details.
    18. 

  18. # You should have received a copy of the GNU General Public License
    19. 

  19. # along with this program; if not, write to the Free Software
    20. 

  20. # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
    21. 

  21. #======================================================================
    22. 

  22. #
    23. 

  23. # payroll module
    24. 

  24. #
    25. 

  25. #======================================================================
    26. 

  26. 

  27. use SL::HR;
    28. 

  28. use SL::User;
    29. 

  29. 

  30. 1;
    31. 

  31. # end of main
    32. 

  32. 

  33. 

  34. 

  35. sub add {
    36. 

  36. 

  37.   $label = "Add ".ucfirst $form->{db};
    38. 

  38.   $form->{title} = $locale->text($label);
    39. 

  39. 

  40.   $form->{callback} = "$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
    41. 

  41. 

  42.   &{ "$form->{db}_links" };
    43. 

  43.   
    44. 

  44. }
    45. 

  45. 

  46. 

  47. sub search { &{ "search_$form->{db}" } };
    48. 

  48.   
    49. 

  49. 

  50. sub search_employee {
    51. 

  51. 

  52.   $form->{title} = $locale->text('Employees');
    53. 

  53. 

  54.   @a = ();
    55. 

  55. 

  56.   push @a, qq|<input name="l_ndx" type=checkbox class=checkbox value=Y> |.$locale->text('Pos');
    57. 

  57.   push @a, qq|<input name="l_id" type=checkbox class=checkbox value=Y> |.$locale->text('ID');
    58. 

  58.   push @a, qq|<input name="l_employeenumber" type=checkbox class=checkbox value=Y checked> |.$locale->text('Employee Number');
    59. 

  59.   push @a, qq|<input name="l_name" type=checkbox class=checkbox value=Y checked> |.$locale->text('Employee Name');
    60. 

  60.   push @a, qq|<input name="l_address" type=checkbox class=checkbox value=Y> |.$locale->text('Address');
    61. 

  61.   push @a, qq|<input name="l_city" type=checkbox class=checkbox value=Y> |.$locale->text('City');
    62. 

  62.   push @a, qq|<input name="l_state" type=checkbox class=checkbox value=Y> |.$locale->text('State/Province');
    63. 

  63.   push @a, qq|<input name="l_zipcode" type=checkbox class=checkbox value=Y> |.$locale->text('Zip/Postal Code');
    64. 

  64.   push @a, qq|<input name="l_country" type=checkbox class=checkbox value=Y> |.$locale->text('Country');
    65. 

  65.   push @a, qq|<input name="l_workphone" type=checkbox class=checkbox value=Y checked> |.$locale->text('Work Phone');
    66. 

  66.   push @a, qq|<input name="l_homephone" type=checkbox class=checkbox value=Y checked> |.$locale->text('Home Phone');
    67. 

  67.   push @a, qq|<input name="l_startdate" type=checkbox class=checkbox value=Y checked> |.$locale->text('Startdate');
    68. 

  68.   push @a, qq|<input name="l_enddate" type=checkbox class=checkbox value=Y checked> |.$locale->text('Enddate');
    69. 

  69.   push @a, qq|<input name="l_sales" type=checkbox class=checkbox value=Y> |.$locale->text('Sales');
    70. 

  70.   push @a, qq|<input name="l_manager" type=checkbox class=checkbox value=Y> |.$locale->text('Manager');
    71. 

  71.   push @a, qq|<input name="l_role" type=checkbox class=checkbox value=Y checked> |.$locale->text('Role');
    72. 

  72.   push @a, qq|<input name="l_login" type=checkbox class=checkbox value=Y checked> |.$locale->text('Login');
    73. 

  73.   push @a, qq|<input name="l_email" type=checkbox class=checkbox value=Y> |.$locale->text('E-mail');
    74. 

  74.   push @a, qq|<input name="l_ssn" type=checkbox class=checkbox value=Y> |.$locale->text('SSN');
    75. 

  75.   push @a, qq|<input name="l_dob" type=checkbox class=checkbox value=Y> |.$locale->text('DOB');
    76. 

  76.   push @a, qq|<input name="l_iban" type=checkbox class=checkbox value=Y> |.$locale->text('IBAN');
    77. 

  77.   push @a, qq|<input name="l_bic" type=checkbox class=checkbox value=Y> |.$locale->text('BIC');
    78. 

  78.   push @a, qq|<input name="l_notes" type=checkbox class=checkbox value=Y> |.$locale->text('Notes');
    79. 

  79.  
    80. 

  80. 

  81.   $form->header;
    82. 

  82.   
    83. 

  83.   print qq|
    84. 

  84. <body>
    85. 

  85. 

  86. <form method=post action=$form->{script}>
    87. 

  87. 

  88. <table width=100%>
    89. 

  89.   <tr>
    90. 

  90.     <th class=listtop>$form->{title}</th>
    91. 

  91.   </tr>
    92. 

  92.   <tr height="5"></tr>
    93. 

  93.   <tr valign=top>
    94. 

  94.     <td>
    95. 

  95.       <table>
    96. 

  96.     <tr>
    97. 

  97.       <th align=right nowrap>|.$locale->text('Employee Number').qq|</th>
    98. 

  98.       <td colspan=3><input name=employeenumber size=20></td>
    99. 

  99.     </tr>
    100. 

  100.     <tr>
    101. 

  101.       <th align=right nowrap>|.$locale->text('Employee Name').qq|</th>
    102. 

  102.       <td colspan=3><input name=name size=35></td>
    103. 

  103.     </tr>
    104. 

  104.     <tr>
    105. 

  105.       <th align=right nowrap>|.$locale->text('Startdate').qq|</th>
    106. 

  106.       <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>
    107. 

  107.     </tr>
    108. 

  108.     <tr valign=top>
    109. 

  109.       <th align=right nowrap>|.$locale->text('Notes').qq|</th>
    110. 

  110.       <td colspan=3><input name=notes size=40></td>
    111. 

  111.     </tr>
    112. 

  112.     <tr>
    113. 

  113.       <td></td>
    114. 

  114.       <td colspan=3><input name=status class=radio type=radio value=all checked>&nbsp;|.$locale->text('All').qq|
    115. 

  115.       <input name=status class=radio type=radio value=active>&nbsp;|.$locale->text('Active').qq|
    116. 

  116.       <input name=status class=radio type=radio value=inactive>&nbsp;|.$locale->text('Inactive').qq|
    117. 

  117.       <input name=status class=radio type=radio value=orphaned>&nbsp;|.$locale->text('Orphaned').qq|
    118. 

  118.       <input name=sales class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Sales').qq|
    119. 

  119.     </tr>
    120. 

  120.     <tr>
    121. 

  121.       <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
    122. 

  122.       <td colspan=3>
    123. 

  123.         <table>
    124. 

  124. |;
    125. 

  125. 

  126.   while (@a) {
    127. 

  127.     print qq|<tr>\n|;
    128. 

  128.     for (1 .. 5) {
    129. 

  129.       print qq|<td nowrap>|. shift @a;
    130. 

  130.       print qq|</td>\n|;
    131. 

  131.     }
    132. 

  132.     print qq|</tr>\n|;
    133. 

  133.   }
    134. 

  134. 

  135.   print qq|
    136. 

  136.         </table>
    137. 

  137.       </td>
    138. 

  138.     </tr>
    139. 

  139.       </table>
    140. 

  140.     </td>
    141. 

  141.   </tr>
    142. 

  142.   <tr>
    143. 

  143.     <td><hr size=3 noshade></td>
    144. 

  144.   </tr>
    145. 

  145. </table>
    146. 

  146. 

  147. <input type=hidden name=nextsub value=list_employees>
    148. 

  148. |;
    149. 

  149. 

  150.   $form->hide_form(qw(db path login sessionid));
    151. 

  151. 

  152.   print qq|
    153. 

  153. <br>
    154. 

  154. <input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
    155. 

  155. </form>
    156. 

  156. |;
    157. 

  157. 

  158.   if ($form->{menubar}) {
    159. 

  159.     require "$form->{path}/menu.pl";
    160. 

  160.     &menubar;
    161. 

  161.   }
    162. 

  162. 

  163.   print qq|
    164. 

  164. 

  165. </body>
    166. 

  166. </html>
    167. 

  167. |;
    168. 

  168. }
    169. 

  169. 

  170. 

  171. sub list_employees {
    172. 

  172. 

  173.   HR->employees(\%myconfig, \%$form);
    174. 

  174.   
    175. 

  175.   $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}";
    176. 

  176.   
    177. 

  177.   $form->sort_order();
    178. 

  178. 

  179.   $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}";
    180. 

  180.   
    181. 

  181.   @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));
    182. 

  182.   unshift @columns, "ndx";
    183. 

  183. 

  184.   foreach $item (@columns) {
    185. 

  185.     if ($form->{"l_$item"} eq "Y") {
    186. 

  186.       push @column_index, $item;
    187. 

  187. 

  188.       # add column to href and callback
    189. 

  189.       $callback .= "&l_$item=Y";
    190. 

  190.       $href .= "&l_$item=Y";
    191. 

  191.     }
    192. 

  192.   }
    193. 

  193. 

  194.   %role = ( user    => $locale->text('User'),
    195. 

  195.             supervisor  => $locale->text('Supervisor'),
    196. 

  196.         manager => $locale->text('Manager'),
    197. 

  197.             admin   => $locale->text('Administrator')
    198. 

  198.       );
    199. 

  199.   
    200. 

  200.   $option = $locale->text('All');
    201. 

  201. 

  202.   if ($form->{status} eq 'sales') {
    203. 

  203.     $option = $locale->text('Sales');
    204. 

  204.   }
    205. 

  205.   if ($form->{status} eq 'orphaned') {
    206. 

  206.     $option = $locale->text('Orphaned');
    207. 

  207.   }
    208. 

  208.   if ($form->{status} eq 'active') {
    209. 

  209.     $option = $locale->text('Active');
    210. 

  210.   }
    211. 

  211.   if ($form->{status} eq 'inactive') {
    212. 

  212.     $option = $locale->text('Inactive');
    213. 

  213.   }
    214. 

  214.   
    215. 

  215.   if ($form->{employeenumber}) {
    216. 

  216.     $callback .= "&employeenumber=".$form->escape($form->{employeenumber},1);
    217. 

  217.     $href .= "&employeenumber=".$form->escape($form->{employeenumber});
    218. 

  218.     $option .= "\n<br>".$locale->text('Employee Number')." : $form->{employeenumber}";
    219. 

  219.   }
    220. 

  220.   if ($form->{name}) {
    221. 

  221.     $callback .= "&name=".$form->escape($form->{name},1);
    222. 

  222.     $href .= "&name=".$form->escape($form->{name});
    223. 

  223.     $option .= "\n<br>".$locale->text('Employee Name')." : $form->{name}";
    224. 

  224.   }
    225. 

  225.   if ($form->{startdatefrom}) {
    226. 

  226.     $callback .= "&startdatefrom=$form->{startdatefrom}";
    227. 

  227.     $href .= "&startdatefrom=$form->{startdatefrom}";
    228. 

  228.     $fromdate = $locale->date(\%myconfig, $form->{startdatefrom}, 1);
    229. 

  229.   }
    230. 

  230.   if ($form->{startdateto}) {
    231. 

  231.     $callback .= "&startdateto=$form->{startdateto}";
    232. 

  232.     $href .= "&startdateto=$form->{startdateto}";
    233. 

  233.     $todate = $locale->date(\%myconfig, $form->{startdateto}, 1);
    234. 

  234.   }
    235. 

  235.   if ($fromdate || $todate) {
    236. 

  236.     $option .= "\n<br>".$locale->text('Startdate')." $fromdate - $todate";
    237. 

  237.   }
    238. 

  238.   
    239. 

  239.   if ($form->{notes}) {
    240. 

  240.     $callback .= "&notes=".$form->escape($form->{notes},1);
    241. 

  241.     $href .= "&notes=".$form->escape($form->{notes});
    242. 

  242.     $option .= "\n<br>" if $option;
    243. 

  243.     $option .= $locale->text('Notes')." : $form->{notes}";
    244. 

  244.   }
    245. 

  245. 

  246.   $form->{callback} = "$callback&sort=$form->{sort}";
    247. 

  247.   $callback = $form->escape($form->{callback});
    248. 

  248. 

  249.   $column_header{ndx} = qq|<th class=listheading>&nbsp;</th>|;
    250. 

  250.   $column_header{id} = qq|<th class=listheading>|.$locale->text('ID').qq|</th>|;
    251. 

  251.   $column_header{employeenumber} = qq|<th><a class=listheading href=$href&sort=employeenumber>|.$locale->text('Number').qq|</a></th>|;
    252. 

  252.   $column_header{name} = qq|<th><a class=listheading href=$href&sort=name>|.$locale->text('Name').qq|</a></th>|;
    253. 

  253.   $column_header{manager} = qq|<th><a class=listheading href=$href&sort=manager>|.$locale->text('Manager').qq|</a></th>|;
    254. 

  254.   $column_header{address} = qq|<th class=listheading>|.$locale->text('Address').qq|</a></th>|;
    255. 

  255.   $column_header{city} = qq|<th><a class=listheading href=$href&sort=city>|.$locale->text('City').qq|</a></th>|;
    256. 

  256.   $column_header{state} = qq|<th><a class=listheading href=$href&sort=state>|.$locale->text('State/Province').qq|</a></th>|;
    257. 

  257.   $column_header{zipcode} = qq|<th><a class=listheading href=$href&sort=zipcode>|.$locale->text('Zip/Postal Code').qq|</a></th>|;
    258. 

  258.   $column_header{country} = qq|<th><a class=listheading href=$href&sort=country>|.$locale->text('Country').qq|</a></th>|;
    259. 

  259.   $column_header{workphone} = qq|<th><a class=listheading href=$href&sort=workphone>|.$locale->text('Work Phone').qq|</a></th>|;
    260. 

  260.   $column_header{homephone} = qq|<th><a class=listheading href=$href&sort=homephone>|.$locale->text('Home Phone').qq|</a></th>|;
    261. 

  261.   
    262. 

  262.   $column_header{startdate} = qq|<th><a class=listheading href=$href&sort=startdate>|.$locale->text('Startdate').qq|</a></th>|;
    263. 

  263.   $column_header{enddate} = qq|<th><a class=listheading href=$href&sort=enddate>|.$locale->text('Enddate').qq|</a></th>|;
    264. 

  264.   $column_header{notes} = qq|<th><a class=listheading href=$href&sort=notes>|.$locale->text('Notes').qq|</a></th>|;
    265. 

  265.   $column_header{role} = qq|<th><a class=listheading href=$href&sort=role>|.$locale->text('Role').qq|</a></th>|;
    266. 

  266.   $column_header{login} = qq|<th><a class=listheading href=$href&sort=login>|.$locale->text('Login').qq|</a></th>|;
    267. 

  267.   
    268. 

  268.   $column_header{sales} = qq|<th class=listheading>|.$locale->text('S').qq|</th>|;
    269. 

  269.   $column_header{email} = qq|<th><a class=listheading href=$href&sort=email>|.$locale->text('E-mail').qq|</a></th>|;
    270. 

  270.   $column_header{ssn} = qq|<th><a class=listheading href=$href&sort=ssn>|.$locale->text('SSN').qq|</a></th>|;
    271. 

  271.   $column_header{dob} = qq|<th><a class=listheading href=$href&sort=dob>|.$locale->text('DOB').qq|</a></th>|;
    272. 

  272.   $column_header{iban} = qq|<th><a class=listheading href=$href&sort=iban>|.$locale->text('IBAN').qq|</a></th>|;
    273. 

  273.   $column_header{bic} = qq|<th><a class=listheading href=$href&sort=bic>|.$locale->text('BIC').qq|</a></th>|;
    274. 

  274.   
    275. 

  275.   $form->{title} = $locale->text('Employees');
    276. 

  276. 

  277.   $form->header;
    278. 

  278. 

  279.   print qq|
    280. 

  280. <body>
    281. 

  281. 

  282. <table width=100%>
    283. 

  283.   <tr>
    284. 

  284.     <th class=listtop>$form->{title}</th>
    285. 

  285.   </tr>
    286. 

  286.   <tr height="5"></tr>
    287. 

  287.   <tr>
    288. 

  288.     <td>$option</td>
    289. 

  289.   </tr>
    290. 

  290.   <tr>
    291. 

  291.     <td>
    292. 

  292.       <table width=100%>
    293. 

  293.     <tr class=listheading>
    294. 

  294. |;
    295. 

  295. 

  296.   for (@column_index) { print "$column_header{$_}\n" }
    297. 

  297.   
    298. 

  298.   print qq|
    299. 

  299.         </tr>
    300. 

  300. |;
    301. 

  301. 

  302.   $i = 0;
    303. 

  303.   foreach $ref (@{ $form->{all_employee} }) {
    304. 

  304. 

  305.     $i++;
    306. 

  306.     
    307. 

  307.     $ref->{notes} =~ s/\r?\n/<br>/g;
    308. 

  308.     for (@column_index) { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" }
    309. 

  309. 

  310.     $column_data{ndx} = "<td align=right>$i</td>";
    311. 

  311.     
    312. 

  312.     $column_data{sales} = ($ref->{sales}) ? "<td>x</td>" : "<td>&nbsp;</td>";
    313. 

  313.     $column_data{role} = qq|<td>$role{"$ref->{role}"}&nbsp;</td>|;
    314. 

  314.     $column_date{address} = qq|$ref->{address1} $ref->{address2}|;
    315. 

  315. 

  316.     $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}&nbsp;</td>";
    317. 

  317. 

  318.     if ($ref->{email}) {
    319. 

  319.       $email = $ref->{email};
    320. 

  320.       $email =~ s/</\&lt;/;
    321. 

  321.       $email =~ s/>/\&gt;/;
    322. 

  322.       
    323. 

  323.       $column_data{email} = qq|<td><a href="mailto:$ref->{email}">$email</a></td>|;
    324. 

  324.     }
    325. 

  325. 

  326.     $j++; $j %= 2;
    327. 

  327.     print "
    328. 

  328.         <tr class=listrow$j>
    329. 

  329. ";
    330. 

  330. 

  331.     for (@column_index) { print "$column_data{$_}\n" }
    332. 

  332. 

  333.     print qq|
    334. 

  334.         </tr>
    335. 

  335. |;
    336. 

  336.     
    337. 

  337.   }
    338. 

  338. 

  339.   $i = 1;
    340. 

  340.   $button{'HR--Employees--Add Employee'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Employee').qq|"> |;
    341. 

  341.   $button{'HR--Employees--Add Employee'}{order} = $i++;
    342. 

  342. 

  343.   foreach $item (split /;/, $myconfig{acs}) {
    344. 

  344.     delete $button{$item};
    345. 

  345.   }
    346. 

  346.   
    347. 

  347.   print qq|
    348. 

  348.       </table>
    349. 

  349.     </td>
    350. 

  350.   </tr>
    351. 

  351.   <tr>
    352. 

  352.     <td><hr size=3 noshade></td>
    353. 

  353.   </tr>
    354. 

  354. </table>
    355. 

  355. 

  356. <br>
    357. 

  357. <form method=post action=$form->{script}>
    358. 

  358. |;
    359. 

  359. 

  360.   $form->hide_form(qw(callback db path login sessionid));
    361. 

  361.   
    362. 

  362.   foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
    363. 

  363.     print $item->{code};
    364. 

  364.   }
    365. 

  365. 

  366.   if ($form->{menubar}) {
    367. 

  367.     require "$form->{path}/menu.pl";
    368. 

  368.     &menubar;
    369. 

  369.   }
    370. 

  370. 

  371.   print qq|
    372. 

  372.   </form>
    373. 

  373. 

  374. </body>
    375. 

  375. </html>
    376. 

  376. |;
    377. 

  377.  
    378. 

  378. }
    379. 

  379. 

  380. 

  381. sub edit {
    382. 

  382. 

  383. # $locale->text('Edit Employee')
    384. 

  384. # $locale->text('Edit Deduction')
    385. 

  385. 

  386.   $label = ucfirst $form->{db};
    387. 

  387.   $form->{title} = "Edit $label";
    388. 

  388. 

  389.   &{ "$form->{db}_links" };
    390. 

  390.   
    391. 

  391. }
    392. 

  392. 

  393. 

  394. sub employee_links {
    395. 

  395. 

  396. #$form->{deductions} = 1;
    397. 

  397.   HR->get_employee(\%myconfig, \%$form);
    398. 

  398. 

  399.   for (keys %$form) { $form->{$_} = $form->quote($form->{$_}) }
    400. 

  400. 

  401.   if (@{ $form->{all_deduction} }) {
    402. 

  402.     $form->{selectdeduction} = "<option>\n";
    403. 

  403.     for (@{ $form->{all_deduction} }) { $form->{selectdeduction} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| }
    404. 

  404.   }
    405. 

  405. 

  406.   $form->{manager} = "$form->{manager}--$form->{managerid}";
    407. 

  407. 

  408.   if (@{ $form->{all_manager} }) {
    409. 

  409.     $form->{selectmanager} = "<option>\n";
    410. 

  410.     for (@{ $form->{all_manager} }) { $form->{selectmanager} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| }
    411. 

  411.   }
    412. 

  412. 

  413.   %role = ( user    => $locale->text('User'),
    414. 

  414.             supervisor  => $locale->text('Supervisor'),
    415. 

  415.         manager => $locale->text('Manager'),
    416. 

  416.             admin   => $locale->text('Administrator')
    417. 

  417.       );
    418. 

  418.   
    419. 

  419.   $form->{selectrole} = "<option>\n";
    420. 

  420.   for (qw(user supervisor manager admin)) { $form->{selectrole} .= "<option value=$_>$role{$_}\n" }
    421. 

  421. 

  422.   $i = 1;
    423. 

  423.   foreach $ref (@{ $form->{all_employeededuction} }) {
    424. 

  424.     $form->{"deduction_$i"} = "$ref->{description}--$ref->{id}" if $ref->{id};
    425. 

  425.     for (qw(before after rate)) { $form->{"${_}_$i"} = $ref->{$_} }
    426. 

  426.     $i++;
    427. 

  427.   }
    428. 

  428.   $form->{deduction_rows} = $i - 1;
    429. 

  429. 

  430.   &employee_header;
    431. 

  431.   &employee_footer;
    432. 

  432. 

  433. }
    434. 

  434. 

  435. 

  436. sub employee_header {
    437. 

  437. 

  438.   $sales = qq|<input type=hidden name=sales value=$form->{sales}>|;
    439. 

  439.   $form->{sales} = ($form->{sales}) ? "checked" : "";
    440. 

  440. 

  441.   $form->{selectrole} =~ s/ selected//;
    442. 

  442.   $form->{selectrole} =~ s/option value=\Q$form->{role}\E>/option value=$form->{role} selected>/;
    443. 

  443. 

  444.   $form->{selectdeduction} = $form->unescape($form->{selectdeduction});
    445. 

  445.   
    446. 

  446.   $form->{selectmanager} = $form->unescape($form->{selectmanager});
    447. 

  447.   $form->{selectmanager} =~ s/ selected//;
    448. 

  448.   $form->{selectmanager} =~ s/(<option value="\Q$form->{manager}\E")/$1 selected/;
    449. 

  449. 

  450.   $sales .= qq|
    451. 

  451. <input type=hidden name=role value=$form->{role}>
    452. 

  452. <input type=hidden name=manager value=$form->{manager}>
    453. 

  453. |;
    454. 

  454. 

  455.   if ($myconfig{role} ne 'user') {
    456. 

  456.     $sales = qq|
    457. 

  457.         <tr>
    458. 

  458.       <th align=right>|.$locale->text('Sales').qq|</th>
    459. 

  459.       <td><input name=sales class=checkbox type=checkbox value=1 $form->{sales}></td>
    460. 

  460.     </tr>
    461. 

  461.         <tr>
    462. 

  462.       <th align=right>|.$locale->text('Role').qq|</th>
    463. 

  463.       <td><select name=role>$form->{selectrole}</select></td>
    464. 

  464.     </tr>
    465. 

  465. |;
    466. 

  466. 

  467.     if ($form->{selectmanager}) {
    468. 

  468.       $sales .= qq|
    469. 

  469.         <tr>
    470. 

  470.       <th align=right>|.$locale->text('Manager').qq|</th>
    471. 

  471.       <td><select name=manager>$form->{selectmanager}</select></td>
    472. 

  472.     </tr>
    473. 

  473. |;
    474. 

  474.     }
    475. 

  475.   }
    476. 

  476.   
    477. 

  477.   $form->{deduction_rows}++;
    478. 

  478.   
    479. 

  479.   for $i (1 .. $form->{deduction_rows}) {
    480. 

  480.     $form->{"selectdeduction_$i"} = $form->{selectdeduction};
    481. 

  481.     if ($form->{"deduction_$i"}) {
    482. 

  482.       $form->{"selectdeduction_$i"} =~ s/(<option value="\Q$form->{"deduction_$i"}\E")/$1 selected/;
    483. 

  483.     }
    484. 

  484.   }
    485. 

  485. 

  486.   $form->{selectdeduction} = $form->escape($form->{selectdeduction},1);
    487. 

  487.   $form->{selectmanager} = $form->escape($form->{selectmanager},1);
    488. 

  488. 

  489.   $form->header;
    490. 

  490. 

  491.   print qq|
    492. 

  492. <body>
    493. 

  493. 

  494. <form method=post action=$form->{script}>
    495. 

  495. 

  496. <input type=hidden name=selectdeduction value="$form->{selectdeduction}">
    497. 

  497. <input type=hidden name=deduction_rows value=$form->{deduction_rows}>
    498. 

  498. 

  499. <input type=hidden name=selectmanager value="$form->{selectmanager}">
    500. 

  500. <input type=hidden name=selectrole value="$form->{selectrole}">
    501. 

  501. 

  502. <input type=hidden name=status value=$form->{status}>
    503. 

  503. 

  504. <input type=hidden name=title value="$form->{title}">
    505. 

  505. 

  506. <table width=100%>
    507. 

  507.   <tr>
    508. 

  508.     <th class=listtop>$form->{title}</th>
    509. 

  509.   </tr>
    510. 

  510.   <tr height="5"></tr>
    511. 

  511.   <tr>
    512. 

  512.     <td>
    513. 

  513.       <table>
    514. 

  514.         <tr valign=top>
    515. 

  515.       <td>
    516. 

  516.         <table>
    517. 

  517.           <tr>
    518. 

  518.         <th align=right nowrap>|.$locale->text('Number').qq|</th>
    519. 

  519.         <td><input name=employeenumber size=32 maxlength=32 value="$form->{employeenumber}"></td>
    520. 

  520.           </tr>
    521. 

  521.           <tr>
    522. 

  522.         <th align=right nowrap>|.$locale->text('Name').qq|</th>
    523. 

  523.         <td><input name=name size=35 maxlength=64 value="$form->{name}"></td>
    524. 

  524.           </tr>
    525. 

  525.           <tr>
    526. 

  526.         <th align=right nowrap>|.$locale->text('Address').qq|</th>
    527. 

  527.         <td><input name=address1 size=35 maxlength=32 value="$form->{address1}"></td>
    528. 

  528.           </tr>
    529. 

  529.           <tr>
    530. 

  530.         <th></th>
    531. 

  531.         <td><input name=address2 size=35 maxlength=32 value="$form->{address2}"></td>
    532. 

  532.           </tr>
    533. 

  533.           <tr>
    534. 

  534.         <th align=right nowrap>|.$locale->text('City').qq|</th>
    535. 

  535.         <td><input name=city size=35 maxlength=32 value="$form->{city}"></td>
    536. 

  536.           </tr>
    537. 

  537.           <tr>
    538. 

  538.         <th align=right nowrap>|.$locale->text('State/Province').qq|</th>
    539. 

  539.         <td><input name=state size=35 maxlength=32 value="$form->{state}"></td>
    540. 

  540.           </tr>
    541. 

  541.           <tr>
    542. 

  542.         <th align=right nowrap>|.$locale->text('Zip/Postal Code').qq|</th>
    543. 

  543.         <td><input name=zipcode size=10 maxlength=10 value="$form->{zipcode}"></td>
    544. 

  544.           </tr>
    545. 

  545.           <tr>
    546. 

  546.         <th align=right nowrap>|.$locale->text('Country').qq|</th>
    547. 

  547.         <td><input name=country size=35 maxlength=32 value="$form->{country}"></td>
    548. 

  548.           </tr>
    549. 

  549.           <tr>
    550. 

  550.         <th align=right nowrap>|.$locale->text('E-mail').qq|</th>
    551. 

  551.         <td><input name=email size=35 value="$form->{email}"></td>
    552. 

  552.           </tr>
    553. 

  553.           <tr>
    554. 

  554.           $sales
    555. 

  555.         </table>
    556. 

  556.       </td>
    557. 

  557.       <td>
    558. 

  558.         <table>
    559. 

  559.           <tr>
    560. 

  560.         <th align=right nowrap>|.$locale->text('Work Phone').qq|</th>
    561. 

  561.         <td><input name=workphone size=20 maxlength=20 value="$form->{workphone}"></td>
    562. 

  562.           </tr>
    563. 

  563.           <tr>
    564. 

  564.         <th align=right nowrap>|.$locale->text('Home Phone').qq|</th>
    565. 

  565.         <td><input name=homephone size=20 maxlength=20 value="$form->{homephone}"></td>
    566. 

  566.           </tr>
    567. 

  567.           <tr>
    568. 

  568.         <th align=right nowrap>|.$locale->text('Startdate').qq|</th>
    569. 

  569.         <td><input name=startdate size=11 title="$myconfig{dateformat}" value=$form->{startdate}></td>
    570. 

  570.           </tr>
    571. 

  571.           <tr>
    572. 

  572.         <th align=right nowrap>|.$locale->text('Enddate').qq|</th>
    573. 

  573.         <td><input name=enddate size=11 title="$myconfig{dateformat}" value=$form->{enddate}></td>
    574. 

  574.           </tr>
    575. 

  575. 

  576.           <tr>
    577. 

  577.         <th align=right nowrap>|.$locale->text('SSN').qq|</th>
    578. 

  578.         <td><input name=ssn size=20 maxlength=20 value="$form->{ssn}"></td>
    579. 

  579.           </tr>
    580. 

  580.           <tr>
    581. 

  581.         <th align=right nowrap>|.$locale->text('DOB').qq|</th>
    582. 

  582.         <td><input name=dob size=11 title="$myconfig{dateformat}" value=$form->{dob}></td>
    583. 

  583.           </tr>
    584. 

  584.           <tr>
    585. 

  585.         <th align=right nowrap>|.$locale->text('IBAN').qq|</th>
    586. 

  586.         <td><input name=iban size=34 maxlength=34 value="$form->{iban}"></td>
    587. 

  587.           </tr>
    588. 

  588.           <tr>
    589. 

  589.         <th align=right nowrap>|.$locale->text('BIC').qq|</th>
    590. 

  590.         <td><input name=bic size=11 maxlength=11 value="$form->{bic}"></td>
    591. 

  591.           </tr>
    592. 

  592.         </table>
    593. 

  593.       </td>
    594. 

  594.     </tr>
    595. 

  595.       </table>
    596. 

  596.     </td>
    597. 

  597.   </tr>
    598. 

  598.   <tr>
    599. 

  599.     <th align=left nowrap>|.$locale->text('Notes').qq|</th>
    600. 

  600.   </tr>
    601. 

  601.   <tr>
    602. 

  602.     <td><textarea name=notes rows=3 cols=60 wrap=soft>$form->{notes}</textarea></td>
    603. 

  603.   </tr>
    604. 

  604. |;
    605. 

  605. 

  606.     if ($form->{selectdeduction}) {
    607. 

  607. 

  608.       print qq|
    609. 

  609.   <tr>
    610. 

  610.     <td>
    611. 

  611.       <table width=100%>
    612. 

  612.         <tr class=listheading>
    613. 

  613.       <th class=listheading>|.$locale->text('Payroll Deduction').qq|</th>
    614. 

  614.       <th class=listheading colspan=3>|.$locale->text('Allowances').qq|</th>
    615. 

  615.     </tr>
    616. 

  616. 

  617.         <tr class=listheading>
    618. 

  618.       <th></th>
    619. 

  619.       <th class=listheading>|.$locale->text('Before Deduction').qq|</th>
    620. 

  620.       <th class=listheading>|.$locale->text('After Deduction').qq|</th>
    621. 

  621.       <th class=listheading>|.$locale->text('Rate').qq|</th>
    622. 

  622.     </tr>
    623. 

  623. |;
    624. 

  624. 

  625.     for $i (1 .. $form->{deduction_rows}) {
    626. 

  626.       print qq|
    627. 

  627.         <tr>
    628. 

  628.       <td><select name="deduction_$i">$form->{"selectdeduction_$i"}</select></td>
    629. 

  629.       <td><input name="before_$i" value=|.$form->format_amount(\%myconfig, $form->{"before_$i"}, 2).qq|></td>
    630. 

  630.       <td><input name="after_$i" value=|.$form->format_amount(\%myconfig, $form->{"after_$i"}, 2).qq|></td>
    631. 

  631.       <td><input name="rate_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"rate_$i"}).qq|></td>
    632. 

  632.     </tr>
    633. 

  633. |;
    634. 

  634.     }
    635. 

  635.   }
    636. 

  636. 

  637.   print qq|
    638. 

  638.       </table>
    639. 

  639.     </td>
    640. 

  640.   </tr>
    641. 

  641.   <tr>
    642. 

  642.     <td><hr size=3 noshade></td>
    643. 

  643.   </tr>
    644. 

  644. </table>
    645. 

  645. |;
    646. 

  646. 

  647. }
    648. 

  648. 

  649. 

  650. 

  651. sub employee_footer {
    652. 

  652. 

  653.   print qq|
    654. 

  654. <input name=id type=hidden value=$form->{id}>
    655. 

  655. 

  656. <input type=hidden name=db value=$form->{db}>
    657. 

  657. <input type=hidden name=employeelogin value=$form->{employeelogin}>
    658. 

  658. 

  659. <input type=hidden name=path value=$form->{path}>
    660. 

  660. <input type=hidden name=login value=$form->{login}>
    661. 

  661. <input type=hidden name=sessionid value=$form->{sessionid}>
    662. 

  662. 

  663. <input type=hidden name=callback value="$form->{callback}">
    664. 

  664. 

  665. <br>
    666. 

  666. 

  667. <input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
    668. 

  668. <input class=submit type=submit name=action value="|.$locale->text('Save').qq|">
    669. 

  669. |;
    670. 

  670. 

  671.   if ($form->{id}) {
    672. 

  672.     print qq|<input class=submit type=submit name=action value="|.$locale->text('Save as new').qq|">\n|;
    673. 

  673.     if ($form->{status} eq 'orphaned') {
    674. 

  674.       print qq|<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">\n|;
    675. 

  675.     }
    676. 

  676.   }
    677. 

  677. 

  678.   if ($form->{menubar}) {
    679. 

  679.     require "$form->{path}/menu.pl";
    680. 

  680.     &menubar;
    681. 

  681.   }
    682. 

  682. 

  683.   print qq|
    684. 

  684.  
    685. 

  685.   </form>
    686. 

  686. 

  687. </body>
    688. 

  688. </html>
    689. 

  689. |;
    690. 

  690. 

  691. }
    692. 

  692. 

  693. 

  694. sub save { &{ "save_$form->{db}" } };
    695. 

  695. 

  696. 

  697. sub save_employee {
    698. 

  698. 

  699.   $form->isblank("name", $locale->text("Name missing!"));
    700. 

  700.   HR->save_employee(\%myconfig, \%$form);
    701. 

  701. 

  702.   # if it is a login change memberfile and .conf
    703. 

  703.   if ($form->{employeelogin}) {
    704. 

  704.     $user = new User $memberfile, $form->{employeelogin};
    705. 

  705. 

  706.     for (qw(name email role)) { $user->{$_} = $form->{$_} }
    707. 

  707. 

  708.     # assign $myconfig for db
    709. 

  709.     for (qw(dbconnect dbhost dbport dbpasswd)) { $user->{$_} = $myconfig{$_} }
    710. 

  710.     
    711. 

  711.     for (qw(dbpasswd password)) { $user->{"old_$_"} = $user->{$_} }
    712. 

  712.     $user->{packpw} = 1;
    713. 

  713. 

  714.     $user->save_member($memberfile, $userspath) if $user->{login};
    715. 

  715.   }
    716. 

  716.   
    717. 

  717.   $form->redirect($locale->text('Employee saved!'));
    718. 

  718.   
    719. 

  719. }
    720. 

  720. 

  721. 

  722. sub delete { &{ "delete_$form->{db}" } };
    723. 

  723. 

  724. 

  725. sub delete_employee {
    726. 

  726. 

  727.   HR->delete_employee(\%myconfig, \%$form);
    728. 

  728.   $form->redirect($locale->text('Employee deleted!'));
    729. 

  729.   
    730. 

  730. }
    731. 

  731. 

  732. 

  733. sub continue { &{ $form->{nextsub} } };
    734. 

  734. 

  735. sub add_employee { &add };
    736. 

  736. sub add_deduction { &add };
    737. 

  737. 

  738. 

  739. sub search_deduction {
    740. 

  740. 

  741.   HR->deductions(\%myconfig, \%$form);
    742. 

  742.   
    743. 

  743.   $href = "$form->{script}?action=search_deduction&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
    744. 

  744. 

  745.   $form->sort_order();
    746. 

  746. 

  747.   $callback = "$form->{script}?action=search_deduction&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
    748. 

  748.   
    749. 

  749.   @column_index = $form->sort_columns(qw(description rate amount above below employeepays employerpays ap_accno expense_accno));
    750. 

  750. 

  751.  
    752. 

  752.   $form->{callback} = $callback;
    753. 

  753.   $callback = $form->escape($form->{callback});
    754. 

  754. 

  755.   $column_header{description} = qq|<th class=listheading href=$href>|.$locale->text('Description').qq|</th>|;
    756. 

  756.   $column_header{rate} = qq|<th class=listheading nowrap>|.$locale->text('Rate').qq|<br>%</th>|;
    757. 

  757.   $column_header{amount} = qq|<th class=listheading>|.$locale->text('Amount').qq|</th>|;
    758. 

  758.   $column_header{above} = qq|<th class=listheading>|.$locale->text('Above').qq|</th>|;
    759. 

  759.   $column_header{below} = qq|<th class=listheading>|.$locale->text('Below').qq|</th>|;
    760. 

  760.   $column_header{employerpays} = qq|<th class=listheading>|.$locale->text('Employer').qq|</th>|;
    761. 

  761.   $column_header{employeepays} = qq|<th class=listheading>|.$locale->text('Employee').qq|</th>|;
    762. 

  762.   
    763. 

  763.   $column_header{ap_accno} = qq|<th class=listheading>|.$locale->text('AP').qq|</th>|;
    764. 

  764.   $column_header{expense_accno} = qq|<th class=listheading>|.$locale->text('Expense').qq|</th>|;
    765. 

  765.   
    766. 

  766.   $form->{title} = $locale->text('Deductions');
    767. 

  767. 

  768.   $form->header;
    769. 

  769. 

  770.   print qq|
    771. 

  771. <body>
    772. 

  772. 

  773. <table width=100%>
    774. 

  774.   <tr>
    775. 

  775.     <th class=listtop>$form->{title}</th>
    776. 

  776.   </tr>
    777. 

  777.   <tr height="5"></tr>
    778. 

  778.   <tr>
    779. 

  779.     <td>$option</td>
    780. 

  780.   </tr>
    781. 

  781.   <tr>
    782. 

  782.     <td>
    783. 

  783.       <table width=100%>
    784. 

  784.     <tr class=listheading>
    785. 

  785. |;
    786. 

  786. 

  787.   for (@column_index) { print "$column_header{$_}\n" }
    788. 

  788.   
    789. 

  789.   print qq|
    790. 

  790.         </tr>
    791. 

  791. |;
    792. 

  792. 

  793.   
    794. 

  794.   foreach $ref (@{ $form->{all_deduction} }) {
    795. 

  795. 

  796.     $rate = $form->format_amount(\%myconfig, $ref->{rate} * 100, "", "&nbsp;");
    797. 

  797.     
    798. 

  798.     $column_data{rate} = "<td align=right>$rate</td>";
    799. 

  799. 

  800.     for (qw(amount below above)) { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{$_}, 2, "&nbsp;")."</td>" }
    801. 

  801.       
    802. 

  802.     for (qw(ap_accno expense_accno)) { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" }
    803. 

  803.     
    804. 

  804.     for (qw(employerpays employeepays)) { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{$_}, "", "&nbsp;")."</td>" }
    805. 

  805.     
    806. 

  806.     if ($ref->{description} ne $sameitem) {
    807. 

  807.       $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>";
    808. 

  808.     } else {
    809. 

  809.       $column_data{description} = "<td>&nbsp;</td>";
    810. 

  810.     }
    811. 

  811. 

  812.     $i++; $i %= 2;
    813. 

  813.     print "
    814. 

  814.         <tr class=listrow$i>
    815. 

  815. ";
    816. 

  816. 

  817.     for (@column_index) { print "$column_data{$_}\n" }
    818. 

  818. 

  819.     print qq|
    820. 

  820.         </tr>
    821. 

  821. |;
    822. 

  822. 

  823.     $sameitem = $ref->{description};
    824. 

  824.     
    825. 

  825.   }
    826. 

  826. 

  827.   $i = 1;
    828. 

  828.   $button{'HR--Deductions--Add Deduction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Deduction').qq|"> |;
    829. 

  829.   $button{'HR--Deductions--Add Deduction'}{order} = $i++;
    830. 

  830. 

  831.   foreach $item (split /;/, $myconfig{acs}) {
    832. 

  832.     delete $button{$item};
    833. 

  833.   }
    834. 

  834.   
    835. 

  835.   print qq|
    836. 

  836.       </table>
    837. 

  837.     </td>
    838. 

  838.   </tr>
    839. 

  839.   <tr>
    840. 

  840.     <td><hr size=3 noshade></td>
    841. 

  841.   </tr>
    842. 

  842. </table>
    843. 

  843. 

  844. <br>
    845. 

  845. <form method=post action=$form->{script}>
    846. 

  846. 

  847. <input type=hidden name=db value=$form->{db}>
    848. 

  848. 

  849. <input name=callback type=hidden value="$form->{callback}">
    850. 

  850. 

  851. <input type=hidden name=path value=$form->{path}>
    852. 

  852. <input type=hidden name=login value=$form->{login}>
    853. 

  853. <input type=hidden name=sessionid value=$form->{sessionid}>
    854. 

  854. |;
    855. 

  855. 

  856.   foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
    857. 

  857.     print $item->{code};
    858. 

  858.   }
    859. 

  859. 

  860.   if ($form->{menubar}) {
    861. 

  861.     require "$form->{path}/menu.pl";
    862. 

  862.     &menubar;
    863. 

  863.   }
    864. 

  864. 

  865.   print qq|
    866. 

  866.   </form>
    867. 

  867. 

  868. </body>
    869. 

  869. </html>
    870. 

  870. |;
    871. 

  871.  
    872. 

  872. }
    873. 

  873. 

  874. 

  875. sub deduction_links {
    876. 

  876.   
    877. 

  877.   HR->get_deduction(\%myconfig, \%$form);
    878. 

  878. 

  879.   $i = 1;
    880. 

  880.   foreach $ref (@{ $form->{deductionrate} }) {
    881. 

  881.     for (keys %$ref) { $form->{"${_}_$i"} = $ref->{$_} }
    882. 

  882.     $i++;
    883. 

  883.   }
    884. 

  884.   $form->{rate_rows} = $i - 1;
    885. 

  885.   
    886. 

  886.   $i = 1;
    887. 

  887.   foreach $ref (@{ $form->{deductionbase} }) {
    888. 

  888.     $form->{"base_$i"} = "$ref->{description}--$ref->{id}" if $ref->{id};
    889. 

  889.     $form->{"maximum_$i"} = $ref->{maximum};
    890. 

  890.     $i++;
    891. 

  891.   }
    892. 

  892.   $form->{base_rows} = $i - 1;
    893. 

  893. 

  894.   $i = 1;
    895. 

  895.   foreach $ref (@{ $form->{deductionafter} }) {
    896. 

  896.     $form->{"after_$i"} = "$ref->{description}--$ref->{id}" if $ref->{id};
    897. 

  897.     $i++;
    898. 

  898.   }
    899. 

  899.   $form->{after_rows} = $i - 1;
    900. 

  900.   
    901. 

  901.   $form->{employeepays} = 1;
    902. 

  902.   
    903. 

  903.   $selectaccount = "<option>\n";
    904. 

  904.   for (@{ $form->{ap_accounts} }) { $selectaccount .= "<option>$_->{accno}--$_->{description}\n" }
    905. 

  905. 

  906.   $form->{ap_accno} = qq|$form->{ap_accno}--$form->{ap_description}|;
    907. 

  907.   $form->{selectap} = $selectaccount;
    908. 

  908. 

  909.   $selectaccount = "<option>\n";
    910. 

  910.   for (@{ $form->{expense_accounts} }) { $selectaccount .= "<option>$_->{accno}--$_->{description}\n" }
    911. 

  911. 

  912.   $form->{expense_accno} = qq|$form->{expense_accno}--$form->{expense_description}|;
    913. 

  913.   $form->{selectexpense} = $selectaccount;
    914. 

  914. 

  915.   for (1 .. $form->{rate_rows}) { $form->{"rate_$_"} *= 100 }
    916. 

  916. 

  917.   $form->{selectbase} = "<option>\n";
    918. 

  918.   for (@{ $form->{all_deduction} }) { $form->{selectbase} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| }
    919. 

  919.   
    920. 

  920.   &deduction_header;
    921. 

  921.   &deduction_footer;
    922. 

  922.   
    923. 

  923. }
    924. 

  924. 

  925. 

  926. sub deduction_header {
    927. 

  927. 

  928.   $selectap = $form->{selectap};
    929. 

  929.   $selectap =~ s/option>\Q$form->{ap_accno}\E/option selected>$form->{ap_accno}/;
    930. 

  930.   $selectexpense = $form->{selectexpense};
    931. 

  931.   $selectexpense =~ s/option>\Q$form->{expense_accno}\E/option selected>$form->{expense_accno}/;
    932. 

  932. 

  933. 

  934.   $form->{rate_rows}++;
    935. 

  935.   $form->{base_rows}++;
    936. 

  936.   $form->{after_rows}++;
    937. 

  937. 

  938.   $form->{selectbase} = $form->unescape($form->{selectbase});
    939. 

  939.   
    940. 

  940.   for $i (1 .. $form->{base_rows}) {
    941. 

  941.     $form->{"selectbase_$i"} = $form->{selectbase};
    942. 

  942.     if ($form->{"base_$i"}) {
    943. 

  943.       $form->{"selectbase_$i"} =~ s/(<option value="\Q$form->{"base_$i"}\E")/$1 selected/;
    944. 

  944.     }
    945. 

  945.   }
    946. 

  946.   for $i (1 .. $form->{after_rows}) {
    947. 

  947.     $form->{"selectafter_$i"} = $form->{selectbase};
    948. 

  948.     if ($form->{"after_$i"}) {
    949. 

  949.       $form->{"selectafter_$i"} =~ s/(<option value="\Q$form->{"after_$i"}\E")/$1 selected/;
    950. 

  950.     }
    951. 

  951.   }
    952. 

  952.  
    953. 

  953. 

  954.   $form->header;
    955. 

  955. 

  956.   
    957. 

  957.   print qq|
    958. 

  958. <body>
    959. 

  959. 

  960. <form method=post action=$form->{script}>
    961. 

  961. 

  962. <input type=hidden name=title value="$form->{title}">
    963. 

  963. 

  964. <input type=hidden name=selectap value="$form->{selectap}">
    965. 

  965. <input type=hidden name=selectexpense value="$form->{selectexpense}">
    966. 

  966. <input type=hidden name=selectbase value="|.$form->escape($form->{selectbase},1).qq|">
    967. 

  967. 

  968. <input type=hidden name=rate_rows value=$form->{rate_rows}>
    969. 

  969. <input type=hidden name=base_rows value=$form->{base_rows}>
    970. 

  970. <input type=hidden name=after_rows value=$form->{after_rows}>
    971. 

  971. 

  972. <table width=100%>
    973. 

  973.   <tr>
    974. 

  974.     <th class=listtop>$form->{title}</th>
    975. 

  975.   </tr>
    976. 

  976.   <tr height="5"></tr>
    977. 

  977.   <tr>
    978. 

  978.     <td>
    979. 

  979.       <table>
    980. 

  980.     <tr>
    981. 

  981.       <th align=right nowrap>|.$locale->text('Description').qq|</th>
    982. 

  982.       <td><input name=description size=35 value="$form->{description}"></td>
    983. 

  983.     </tr>
    984. 

  984.     <tr>
    985. 

  985.       <th align=right nowrap>|.$locale->text('AP').qq|</th>
    986. 

  986.       <td><select name=ap_accno>$selectap</select></td>
    987. 

  987.       <th align=right nowrap>|.$locale->text('Employee pays').qq| x</th>
    988. 

  988.       <td><input name=employeepays size=4 value=|.$form->format_amount(\%myconfig, $form->{employeepays}).qq|></td>
    989. 

  989.     </tr>
    990. 

  990.     <tr>
    991. 

  991.       <th align=right nowrap>|.$locale->text('Expense').qq|</th>
    992. 

  992.       <td><select name=expense_accno>$selectexpense</select></td>
    993. 

  993.       <th align=right nowrap>|.$locale->text('Employer pays').qq| x</th>
    994. 

  994.       <td><input name=employerpays size=4 value=|.$form->format_amount(\%myconfig, $form->{employerpays}).qq|></td>
    995. 

  995.     </tr>
    996. 

  996.     <tr>
    997. 

  997.       <td></td>
    998. 

  998.       <td></td>
    999. 

  999.       <th align=right nowrap>|.$locale->text('Exempt age <').qq|</th>
    1000. 

  1000.       <td><input name=fromage size=4 value=|.$form->format_amount(\%myconfig, $form->{fromage}).qq|></td>
    1001. 

  1001.       <th align=right nowrap>&gt;</th>
    1002. 

  1002.       <td><input name=toage size=4 value=|.$form->format_amount(\%myconfig, $form->{toage}).qq|>
    1003. 

  1003.         </tr>
    1004. 

  1004.     <tr>
    1005. 

  1005.       <td></td>
    1006. 

  1006.       <td>
    1007. 

  1007.         <table>
    1008. 

  1008.           <tr class=listheading>
    1009. 

  1009.             <th class=listheading>|.$locale->text('Rate').qq| %</th>
    1010. 

  1010.         <th class=listheading>|.$locale->text('Amount').qq|</th>
    1011. 

  1011.         <th class=listheading>|.$locale->text('Above').qq|</th>
    1012. 

  1012.         <th class=listheading>|.$locale->text('Below').qq|</th>
    1013. 

  1013.           </tr>
    1014. 

  1014. |;
    1015. 

  1015. 

  1016.   for $i (1 .. $form->{rate_rows}) {
    1017. 

  1017.     print qq|
    1018. 

  1018.           <tr>
    1019. 

  1019.         <td><input name="rate_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"rate_$i"}).qq|></td>
    1020. 

  1020.         <td><input name="amount_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"amount_$i"}, 2).qq|></td>
    1021. 

  1021.         <td><input name="above_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"above_$i"}, 2).qq|></td>
    1022. 

  1022.         <td><input name="below_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"below_$i"}, 2).qq|></td>
    1023. 

  1023.           </tr>
    1024. 

  1024. |;
    1025. 

  1025.   }
    1026. 

  1026. 

  1027.   print qq|
    1028. 

  1028.         </table>
    1029. 

  1029.       </td>
    1030. 

  1030.     </tr>
    1031. 

  1031.       </table>
    1032. 

  1032.     </td>
    1033. 

  1033.   </tr>
    1034. 

  1034. |;
    1035. 

  1035.   
    1036. 

  1036.   print qq|
    1037. 

  1037.   <tr>
    1038. 

  1038.     <td>
    1039. 

  1039.       <table>
    1040. 

  1040. |;
    1041. 

  1041. 

  1042.   $basedon = $locale->text('Based on');
    1043. 

  1043.   $maximum = $locale->text('Maximum');
    1044. 

  1044.   
    1045. 

  1045.   for $i (1 .. $form->{base_rows}) {
    1046. 

  1046.     print qq|
    1047. 

  1047.     <tr>
    1048. 

  1048.       <th>$basedon</th>
    1049. 

  1049.       <td><select name="base_$i">$form->{"selectbase_$i"}</select></td>
    1050. 

  1050.       <th>$maximum</th>
    1051. 

  1051.       <td><input name="maximum_$i" value=|.$form->format_amount(\%myconfig, $form->{"maximum_$i"}, 2).qq|></td>
    1052. 

  1052.     </tr>
    1053. 

  1053. |;
    1054. 

  1054.     $basedon = "";
    1055. 

  1055.     $maximum = "";
    1056. 

  1056.   }
    1057. 

  1057. 

  1058.   $deductafter = $locale->text('Deduct after');
    1059. 

  1059.   
    1060. 

  1060.   for $i (1 .. $form->{after_rows}) {
    1061. 

  1061.     print qq|
    1062. 

  1062.     <tr>
    1063. 

  1063.       <th>$deductafter</th>
    1064. 

  1064.       <td><select name="after_$i">$form->{"selectafter_$i"}</select></td>
    1065. 

  1065.     </tr>
    1066. 

  1066. |;
    1067. 

  1067.     $deductafter = "";
    1068. 

  1068.   }
    1069. 

  1069. 

  1070.   print qq|
    1071. 

  1071.       </table>
    1072. 

  1072.     </td>
    1073. 

  1073.   </tr>
    1074. 

  1074.   <tr>
    1075. 

  1075.     <td><hr size=3 noshade></td>
    1076. 

  1076.   </tr>
    1077. 

  1077. </table>
    1078. 

  1078. |;
    1079. 

  1079. 

  1080. }
    1081. 

  1081. 

  1082. 

  1083. 

  1084. sub deduction_footer {
    1085. 

  1085. 

  1086.   print qq|
    1087. 

  1087. <input name=id type=hidden value=$form->{id}>
    1088. 

  1088. 

  1089. <input type=hidden name=db value=$form->{db}>
    1090. 

  1090. 

  1091. <input type=hidden name=path value=$form->{path}>
    1092. 

  1092. <input type=hidden name=login value=$form->{login}>
    1093. 

  1093. <input type=hidden name=sessionid value=$form->{sessionid}>
    1094. 

  1094. 

  1095. <input type=hidden name=callback value="$form->{callback}">
    1096. 

  1096. 

  1097. <br>
    1098. 

  1098. 

  1099. <input class=submit type=submit name=action value="|.$locale->text("Update").qq|">
    1100. 

  1100. <input class=submit type=submit name=action value="|.$locale->text("Save").qq|">
    1101. 

  1101. |;
    1102. 

  1102. 

  1103.   if ($form->{id}) {
    1104. 

  1104.     print qq|<input class=submit type=submit name=action value="|.$locale->text('Save as new').qq|">\n|;
    1105. 

  1105.     
    1106. 

  1106.     if ($form->{status} eq 'orphaned') {
    1107. 

  1107.       print qq|<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">\n|;
    1108. 

  1108.     }
    1109. 

  1109.   }
    1110. 

  1110. 

  1111.   if ($form->{menubar}) {
    1112. 

  1112.     require "$form->{path}/menu.pl";
    1113. 

  1113.     &menubar;
    1114. 

  1114.   }
    1115. 

  1115. 

  1116.   print qq|
    1117. 

  1117.  
    1118. 

  1118.   </form>
    1119. 

  1119. 

  1120. </body>
    1121. 

  1121. </html>
    1122. 

  1122. |;
    1123. 

  1123. 

  1124. }
    1125. 

  1125. 

  1126. 

  1127. sub update { &{ "update_$form->{db}" }; }
    1128. 

  1128. sub save { &{ "save_$form->{db}" } };
    1129. 

  1129. 

  1130. 

  1131. sub update_deduction {
    1132. 

  1132. 

  1133.   # if rate or amount is blank remove row
    1134. 

  1134.   @flds = qw(rate amount above below);
    1135. 

  1135.   $count = 0;
    1136. 

  1136.   @a = ();
    1137. 

  1137.   for $i (1 .. $form->{rate_rows}) {
    1138. 

  1138.     for (@flds) { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) }
    1139. 

  1139.     if ($form->{"rate_$i"} || $form->{"amount_$i"}) {
    1140. 

  1140.       push @a, {};
    1141. 

  1141.       $j = $#a;
    1142. 

  1142. 

  1143.       for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} }
    1144. 

  1144.       $count++;
    1145. 

  1145.     }
    1146. 

  1146.   }
    1147. 

  1147.   $form->redo_rows(\@flds, \@a, $count, $form->{rate_rows});
    1148. 

  1148.   $form->{rate_rows} = $count;
    1149. 

  1149. 

  1150. 

  1151.   @flds = qw(base maximum);
    1152. 

  1152.   $count = 0;
    1153. 

  1153.   @a = ();
    1154. 

  1154.   for $i (1 .. $form->{"base_rows"}) {
    1155. 

  1155.     $form->{"maximum_$i"} = $form->parse_amount(\%myconfig, $form->{"maximum_$i"});
    1156. 

  1156.     if ($form->{"base_$i"}) {
    1157. 

  1157.       push @a, {};
    1158. 

  1158.       $j = $#a;
    1159. 

  1159. 

  1160.       for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} }
    1161. 

  1161.       $count++;
    1162. 

  1162.     }
    1163. 

  1163.   }
    1164. 

  1164.   $form->redo_rows(\@flds, \@a, $count, $form->{"base_rows"});
    1165. 

  1165.   $form->{"base_rows"} = $count;
    1166. 

  1166. 

  1167. 

  1168.   @flds = qw(after);
    1169. 

  1169.   $count = 0;
    1170. 

  1170.   @a = ();
    1171. 

  1171.   for $i (1 .. $form->{"after_rows"}) {
    1172. 

  1172.     if ($form->{"after_$i"}) {
    1173. 

  1173.       push @a, {};
    1174. 

  1174.       $j = $#a;
    1175. 

  1175. 

  1176.       for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} }
    1177. 

  1177.       $count++;
    1178. 

  1178.     }
    1179. 

  1179.   }
    1180. 

  1180.   $form->redo_rows(\@flds, \@a, $count, $form->{"after_rows"});
    1181. 

  1181.   $form->{"after_rows"} = $count;
    1182. 

  1182. 

  1183.   &deduction_header;
    1184. 

  1184.   &deduction_footer;
    1185. 

  1185. 

  1186. }
    1187. 

  1187. 

  1188. 

  1189. sub update_employee {
    1190. 

  1190. 

  1191.   # if rate or amount is blank remove row
    1192. 

  1192.   @flds = qw(before after);
    1193. 

  1193.   $count = 0;
    1194. 

  1194.   @a = ();
    1195. 

  1195.   for $i (1 .. $form->{deduction_rows}) {
    1196. 

  1196.     for (@flds) { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) }
    1197. 

  1197.     if ($form->{"deduction_$i"}) {
    1198. 

  1198.       push @a, {};
    1199. 

  1199.       $j = $#a;
    1200. 

  1200. 

  1201.       for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} }
    1202. 

  1202.       $count++;
    1203. 

  1203.     }
    1204. 

  1204.   }
    1205. 

  1205.   $form->redo_rows(\@flds, \@a, $count, $form->{deduction_rows});
    1206. 

  1206.   $form->{deduction_rows} = $count;
    1207. 

  1207. 

  1208.   &employee_header;
    1209. 

  1209.   &employee_footer;
    1210. 

  1210. 

  1211. }
    1212. 

  1212.  
    1213. 

  1213. 

  1214. sub save_as_new {
    1215. 

  1215. 

  1216.   $form->{id} = 0;
    1217. 

  1217.   delete $form->{employeelogin};
    1218. 

  1218. 

  1219.   &save;
    1220. 

  1220. 

  1221. }
    1222. 

  1222. 

  1223. 

  1224. sub save_deduction {
    1225. 

  1225. 

  1226.   $form->isblank("description", $locale->text("Description missing!"));
    1227. 

  1227. 

  1228.   unless ($form->{"rate_1"} || $form->{"amount_1"}) {
    1229. 

  1229.     $form->isblank("rate_1", $locale->text("Rate missing!")) unless $form->{"amount_1"};
    1230. 

  1230.     $form->isblank("amount_1", $locale->text("Amount missing!"));
    1231. 

  1231.   }
    1232. 

  1232.   
    1233. 

  1233.   HR->save_deduction(\%myconfig, \%$form);
    1234. 

  1234.   $form->redirect($locale->text('Deduction saved!'));
    1235. 

  1235.   
    1236. 

  1236. }
    1237. 

  1237. 

  1238. 

  1239. sub delete_deduction {
    1240. 

  1240. 

  1241.   HR->delete_deduction(\%myconfig, \%$form);
    1242. 

  1242.   $form->redirect($locale->text('Deduction deleted!'));
    1243. 

  1243.   
    1244. 

  1244. }
    1245. 

  1245. 

  1246.
generated by cgit v1.2.3 (git 2.46.0) at 2024-11-05 02:42:17 +0000