- ikiwiki-upstream - Unnamed repository; edit this file to name it for gitweb.

diff options

author	http://tlavoie.pip.verisignlabs.com/ <http://tlavoie.pip.verisignlabs.com/@web>	2009-08-06 17:45:34 -0400
committer	Joey Hess <joey@kitenet.net>	2009-08-06 17:45:34 -0400
commit	c121f182dcfbb9b422cae020131a85dd02506db7 (patch)
tree	47118436de17a2c4839c4ee96a43cc580cfeecab /doc/plugins/openid
parent	2162b6fd20ff1e4a06b734692719b2278b4ef5ad (diff)

Diffstat (limited to 'doc/plugins/openid')

0 files changed, 0 insertions, 0 deletions

" class="hl"># along with this program; if not, write to the Free Software

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

#======================================================================

# payroll module

#======================================================================

use LedgerSMB::HR;

use LedgerSMB::User;

# 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>&nbsp;|.$locale->text('All').qq|

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

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

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

      <input name=sales class=checkbox type=checkbox value=Y>&nbsp;|.$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>

<button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>

</form>

  if ($form->{lynx}) {

    require "bin/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 .= "&notes=".$form->escape($form->{notes},1);

    $href .= "&notes=".$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>&nbsp;</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->{$_}&nbsp;</td>" }

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

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

    $column_data{role} = qq|<td>$role{"$ref->{role}"}&nbsp;</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}&nbsp;</td>";

    if ($ref->{email}) {

      $email = $ref->{email};

      $email =~ s/</\&lt;/;

      $email =~ s/>/\&gt;/;

      $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|<button class="submit" type="submit" name="action" value="add_employee">|.$locale->text('Add Employee').qq|</button> |;

  $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->{lynx}) {

    require "bin/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>

<button class="submit" type="submit" name="action" value="update">|.$locale->text('Update').qq|</button>

<button class="submit" type="submit" name="action" value="save">|.$locale->text('Save').qq|</button>

  if ($form->{id}) {

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

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

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

}

  if ($form->{lynx}) {

    require "bin/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 = LedgerSMB::User->new(${LedgerSMB::Sysconfig::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(${LedgerSMB::Sysconfig::memberfile}, ${LedgerSMB::Sysconfig::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, "", "&nbsp;");

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

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

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

    for (qw(employerpays employeepays)) { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{$_}, "", "&nbsp;")."</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>&nbsp;</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|<button class="submit" type="submit" name="action" value="add_deduction">|.$locale->text('Add Deduction').qq|</button> |;

  $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->{lynx}) {

    require "bin/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}">


context:
space:
mode: