diff options
Diffstat (limited to 'bin/am.pl')
| -rw-r--r-- | bin/am.pl | 3861 |
1 files changed, 2128 insertions, 1733 deletions
@@ -1,9 +1,9 @@ #===================================================================== -# LedgerSMB +# LedgerSMB # Small Medium Business Accounting software # http://www.ledgersmb.org/ # -# +# # Copyright (C) 2006 # This work contains copyrighted information from a number of sources all used # with permission. @@ -32,7 +32,6 @@ # #====================================================================== - use LedgerSMB::AM; use LedgerSMB::CA; use LedgerSMB::Form; @@ -40,76 +39,72 @@ use LedgerSMB::User; use LedgerSMB::RP; use LedgerSMB::GL; - 1; + # end of main +sub add { &{"add_$form->{type}"} } +sub edit { &{"edit_$form->{type}"} } +sub save { &{"save_$form->{type}"} } +sub delete { &{"delete_$form->{type}"} } +sub save_as_new { -sub add { &{ "add_$form->{type}" } }; -sub edit { &{ "edit_$form->{type}" } }; -sub save { &{ "save_$form->{type}" } }; -sub delete { &{ "delete_$form->{type}" } }; + delete $form->{id}; + &save; -sub save_as_new { +} + +sub add_account { - delete $form->{id}; + $form->{title} = "Add"; + $form->{charttype} = "A"; - &save; + $form->{callback} = +"$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" + unless $form->{callback}; + + &account_header; + &form_footer; } +sub edit_account { -sub add_account { - - $form->{title} = "Add"; - $form->{charttype} = "A"; - - $form->{callback} = "$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + $form->{title} = "Edit"; - &account_header; - &form_footer; - -} + $form->{accno} =~ s/\\'/'/g; + $form->{accno} =~ s/\\\\/\\/g; + AM->get_account( \%myconfig, \%$form ); -sub edit_account { - - $form->{title} = "Edit"; - - $form->{accno} =~ s/\\'/'/g; - $form->{accno} =~ s/\\\\/\\/g; - - AM->get_account(\%myconfig, \%$form); - - foreach my $item (split(/:/, $form->{link})) { - $form->{$item} = "checked"; - } + foreach my $item ( split( /:/, $form->{link} ) ) { + $form->{$item} = "checked"; + } - &account_header; - &form_footer; + &account_header; + &form_footer; } - sub account_header { - $form->{title} = $locale->text("$form->{title} Account"); - - $checked{$form->{charttype}} = "checked"; - $checked{contra} = "checked" if $form->{contra}; - $checked{"$form->{category}_"} = "checked"; - - for (qw(accno description)) { $form->{$_} = $form->quote($form->{$_}) } + $form->{title} = $locale->text("$form->{title} Account"); + + $checked{ $form->{charttype} } = "checked"; + $checked{contra} = "checked" if $form->{contra}; + $checked{"$form->{category}_"} = "checked"; -# this is for our parser only! -# type=submit $locale->text('Add Account') -# type=submit $locale->text('Edit Account') + for (qw(accno description)) { $form->{$_} = $form->quote( $form->{$_} ) } - $form->header; + # this is for our parser only! + # type=submit $locale->text('Add Account') + # type=submit $locale->text('Edit Account') - print qq| + $form->header; + + print qq| <body> <form method=post action=$form->{script}> @@ -132,86 +127,122 @@ sub account_header { <td> <table> <tr> - <th align="right">|.$locale->text('Account Number').qq|</th> + <th align="right">| . $locale->text('Account Number') . qq|</th> <td><input name=accno size=20 value="$form->{accno}"></td> </tr> <tr> - <th align="right">|.$locale->text('Description').qq|</th> + <th align="right">| . $locale->text('Description') . qq|</th> <td><input name=description size=40 value="$form->{description}"></td> </tr> <tr> - <th align="right">|.$locale->text('Account Type').qq|</th> + <th align="right">| . $locale->text('Account Type') . qq|</th> <td> <table> <tr valign=top> - <td><input name=category type=radio class=radio value=A $checked{A_}> |.$locale->text('Asset').qq|\n<br> - <input name=category type=radio class=radio value=L $checked{L_}> |.$locale->text('Liability').qq|\n<br> - <input name=category type=radio class=radio value=Q $checked{Q_}> |.$locale->text('Equity').qq|\n<br> - <input name=category type=radio class=radio value=I $checked{I_}> |.$locale->text('Income').qq|\n<br> - <input name=category type=radio class=radio value=E $checked{E_}> |.$locale->text('Expense') - .qq|</td> + <td><input name=category type=radio class=radio value=A $checked{A_}> | + . $locale->text('Asset') + . qq|\n<br> + <input name=category type=radio class=radio value=L $checked{L_}> | + . $locale->text('Liability') + . qq|\n<br> + <input name=category type=radio class=radio value=Q $checked{Q_}> | + . $locale->text('Equity') + . qq|\n<br> + <input name=category type=radio class=radio value=I $checked{I_}> | + . $locale->text('Income') + . qq|\n<br> + <input name=category type=radio class=radio value=E $checked{E_}> | + . $locale->text('Expense') + . qq|</td> <td> - <input name=contra class=checkbox type=checkbox value=1 $checked{contra}> |.$locale->text('Contra').qq| + <input name=contra class=checkbox type=checkbox value=1 $checked{contra}> | + . $locale->text('Contra') . qq| </td> <td> - <input name=charttype type=radio class=radio value="H" $checked{H}> |.$locale->text('Heading').qq|<br> - <input name=charttype type=radio class=radio value="A" $checked{A}> |.$locale->text('Account') - .qq|</td> + <input name=charttype type=radio class=radio value="H" $checked{H}> | + . $locale->text('Heading') . qq|<br> + <input name=charttype type=radio class=radio value="A" $checked{A}> | + . $locale->text('Account') + . qq|</td> </tr> </table> </td> </tr> |; - -if ($form->{charttype} eq "A") { - print qq| + if ( $form->{charttype} eq "A" ) { + print qq| <tr> <td colspan=2> <table> <tr> - <th align=left>|.$locale->text('Is this a summary account to record').qq|</th> + <th align=left>| + . $locale->text('Is this a summary account to record') + . qq|</th> <td> - <input name=AR class=checkbox type=checkbox value=AR $form->{AR}> |.$locale->text('AR') - .qq| <input name=AP class=checkbox type=checkbox value=AP $form->{AP}> |.$locale->text('AP') - .qq| <input name=IC class=checkbox type=checkbox value=IC $form->{IC}> |.$locale->text('Inventory') - .qq|</td> + <input name=AR class=checkbox type=checkbox value=AR $form->{AR}> | + . $locale->text('AR') + . qq| <input name=AP class=checkbox type=checkbox value=AP $form->{AP}> | + . $locale->text('AP') + . qq| <input name=IC class=checkbox type=checkbox value=IC $form->{IC}> | + . $locale->text('Inventory') + . qq|</td> </tr> </table> </td> </tr> <tr> - <th colspan=2>|.$locale->text('Include in drop-down menus').qq|</th> + <th colspan=2>| . $locale->text('Include in drop-down menus') . qq|</th> </tr> <tr valign=top> <td colspan=2> <table width=100%> <tr> - <th align=left>|.$locale->text('Receivables').qq|</th> - <th align=left>|.$locale->text('Payables').qq|</th> - <th align=left>|.$locale->text('Tracking Items').qq|</th> - <th align=left>|.$locale->text('Non-tracking Items').qq|</th> + <th align=left>| . $locale->text('Receivables') . qq|</th> + <th align=left>| . $locale->text('Payables') . qq|</th> + <th align=left>| . $locale->text('Tracking Items') . qq|</th> + <th align=left>| . $locale->text('Non-tracking Items') . qq|</th> </tr> <tr> <td> - <input name=AR_amount class=checkbox type=checkbox value=AR_amount $form->{AR_amount}> |.$locale->text('Income').qq|\n<br> - <input name=AR_paid class=checkbox type=checkbox value=AR_paid $form->{AR_paid}> |.$locale->text('Payment').qq|\n<br> - <input name=AR_tax class=checkbox type=checkbox value=AR_tax $form->{AR_tax}> |.$locale->text('Tax') .qq| + <input name=AR_amount class=checkbox type=checkbox value=AR_amount $form->{AR_amount}> | + . $locale->text('Income') + . qq|\n<br> + <input name=AR_paid class=checkbox type=checkbox value=AR_paid $form->{AR_paid}> | + . $locale->text('Payment') + . qq|\n<br> + <input name=AR_tax class=checkbox type=checkbox value=AR_tax $form->{AR_tax}> | + . $locale->text('Tax') . qq| </td> <td> - <input name=AP_amount class=checkbox type=checkbox value=AP_amount $form->{AP_amount}> |.$locale->text('Expense/Asset').qq|\n<br> - <input name=AP_paid class=checkbox type=checkbox value=AP_paid $form->{AP_paid}> |.$locale->text('Payment').qq|\n<br> - <input name=AP_tax class=checkbox type=checkbox value=AP_tax $form->{AP_tax}> |.$locale->text('Tax') .qq| + <input name=AP_amount class=checkbox type=checkbox value=AP_amount $form->{AP_amount}> | + . $locale->text('Expense/Asset') + . qq|\n<br> + <input name=AP_paid class=checkbox type=checkbox value=AP_paid $form->{AP_paid}> | + . $locale->text('Payment') + . qq|\n<br> + <input name=AP_tax class=checkbox type=checkbox value=AP_tax $form->{AP_tax}> | + . $locale->text('Tax') . qq| </td> <td> - <input name=IC_sale class=checkbox type=checkbox value=IC_sale $form->{IC_sale}> |.$locale->text('Income').qq|\n<br> - <input name=IC_cogs class=checkbox type=checkbox value=IC_cogs $form->{IC_cogs}> |.$locale->text('COGS').qq|\n<br> - <input name=IC_taxpart class=checkbox type=checkbox value=IC_taxpart $form->{IC_taxpart}> |.$locale->text('Tax') .qq| + <input name=IC_sale class=checkbox type=checkbox value=IC_sale $form->{IC_sale}> | + . $locale->text('Income') + . qq|\n<br> + <input name=IC_cogs class=checkbox type=checkbox value=IC_cogs $form->{IC_cogs}> | + . $locale->text('COGS') + . qq|\n<br> + <input name=IC_taxpart class=checkbox type=checkbox value=IC_taxpart $form->{IC_taxpart}> | + . $locale->text('Tax') . qq| </td> <td> - <input name=IC_income class=checkbox type=checkbox value=IC_income $form->{IC_income}> |.$locale->text('Income').qq|\n<br> - <input name=IC_expense class=checkbox type=checkbox value=IC_expense $form->{IC_expense}> |.$locale->text('Expense').qq|\n<br> - <input name=IC_taxservice class=checkbox type=checkbox value=IC_taxservice $form->{IC_taxservice}> |.$locale->text('Tax') .qq| + <input name=IC_income class=checkbox type=checkbox value=IC_income $form->{IC_income}> | + . $locale->text('Income') + . qq|\n<br> + <input name=IC_expense class=checkbox type=checkbox value=IC_expense $form->{IC_expense}> | + . $locale->text('Expense') + . qq|\n<br> + <input name=IC_taxservice class=checkbox type=checkbox value=IC_taxservice $form->{IC_taxservice}> | + . $locale->text('Tax') . qq| </td> </tr> </table> @@ -220,11 +251,11 @@ if ($form->{charttype} eq "A") { <tr> </tr> |; -} + } -print qq| + print qq| <tr> - <th align="right">|.$locale->text('GIFI').qq|</th> + <th align="right">| . $locale->text('GIFI') . qq|</th> <td><input name=gifi_accno size=9 value="$form->{gifi_accno}"></td> </tr> </table> @@ -238,36 +269,42 @@ print qq| } - sub form_footer { - $form->hide_form(qw(callback path login sessionid)); + $form->hide_form(qw(callback path login sessionid)); -# type=submit $locale->text('Save') -# type=submit $locale->text('Save as new') -# type=submit $locale->text('Delete') + # type=submit $locale->text('Save') + # type=submit $locale->text('Save as new') + # type=submit $locale->text('Delete') - %button = (); - - if ($form->{id}) { - $button{'save'} = { ndx => 3, key => 'S', value => $locale->text('Save') }; - $button{'save_as_new'} = { ndx => 7, key => 'N', value => $locale->text('Save as new') }; - - if ($form->{orphaned}) { - $button{'delete'} = { ndx => 16, key => 'D', value => $locale->text('Delete') }; + %button = (); + + if ( $form->{id} ) { + $button{'save'} = + { ndx => 3, key => 'S', value => $locale->text('Save') }; + $button{'save_as_new'} = + { ndx => 7, key => 'N', value => $locale->text('Save as new') }; + + if ( $form->{orphaned} ) { + $button{'delete'} = + { ndx => 16, key => 'D', value => $locale->text('Delete') }; + } + } + else { + $button{'save'} = + { ndx => 3, key => 'S', value => $locale->text('Save') }; } - } else { - $button{'save'} = { ndx => 3, key => 'S', value => $locale->text('Save') }; - } - for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } + for ( sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button ) { + $form->print_button( \%button, $_ ); + } - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } - - print qq| + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } + + print qq| </form> </body> @@ -276,59 +313,80 @@ sub form_footer { } - sub save_account { - $form->isblank("accno", $locale->text('Account Number missing!')); - $form->isblank("category", $locale->text('Account Type missing!')); - - # check for conflicting accounts - if ($form->{AR} || $form->{AP} || $form->{IC}) { - $a = ""; - for (qw(AR AP IC)) { $a .= $form->{$_} } - $form->error($locale->text('Cannot set account for more than one of AR, AP or IC')) if length $a > 2; + $form->isblank( "accno", $locale->text('Account Number missing!') ); + $form->isblank( "category", $locale->text('Account Type missing!') ); + + # check for conflicting accounts + if ( $form->{AR} || $form->{AP} || $form->{IC} ) { + $a = ""; + for (qw(AR AP IC)) { $a .= $form->{$_} } + $form->error( + $locale->text( + 'Cannot set account for more than one of AR, AP or IC') + ) if length $a > 2; + + for ( + qw(AR_amount AR_tax AR_paid AP_amount AP_tax AP_paid IC_taxpart IC_taxservice IC_sale IC_cogs IC_income IC_expense) + ) + { + $form->error( + "$form->{AR}$form->{AP}$form->{IC} " + . $locale->text( + 'account cannot be set to any other type of account') + ) if $form->{$_}; + } + } - for (qw(AR_amount AR_tax AR_paid AP_amount AP_tax AP_paid IC_taxpart IC_taxservice IC_sale IC_cogs IC_income IC_expense)) { $form->error("$form->{AR}$form->{AP}$form->{IC} ". $locale->text('account cannot be set to any other type of account')) if $form->{$_} } - } + foreach $item ( "AR", "AP" ) { + $i = 0; + for ( "${item}_amount", "${item}_paid", "${item}_tax" ) { + $i++ if $form->{$_}; + } + $form->error( + $locale->text( 'Cannot set multiple options for [_1]', $item ) ) + if $i > 1; + } - foreach $item ("AR", "AP") { - $i = 0; - for ("${item}_amount", "${item}_paid", "${item}_tax") { $i++ if $form->{$_} } - $form->error($locale->text('Cannot set multiple options for [_1]', $item)) if $i > 1; - } - - if (AM->save_account(\%myconfig, \%$form)) { - $form->redirect($locale->text('Account saved!')); - } else { - $form->error($locale->text('Cannot save account!')); - } + if ( AM->save_account( \%myconfig, \%$form ) ) { + $form->redirect( $locale->text('Account saved!') ); + } + else { + $form->error( $locale->text('Cannot save account!') ); + } } - sub list_account { - CA->all_accounts(\%myconfig, \%$form); + CA->all_accounts( \%myconfig, \%$form ); - $form->{title} = $locale->text('Chart of Accounts'); - - # construct callback - $callback = "$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + $form->{title} = $locale->text('Chart of Accounts'); - @column_index = qw(accno gifi_accno description debit credit link); + # construct callback + $callback = +"$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - $column_header{accno} = qq|<th class=listtop>|.$locale->text('Account').qq|</a></th>|; - $column_header{gifi_accno} = qq|<th class=listtop>|.$locale->text('GIFI').qq|</a></th>|; - $column_header{description} = qq|<th class=listtop>|.$locale->text('Description').qq|</a></th>|; - $column_header{debit} = qq|<th class=listtop>|.$locale->text('Debit').qq|</a></th>|; - $column_header{credit} = qq|<th class=listtop>|.$locale->text('Credit').qq|</a></th>|; - $column_header{link} = qq|<th class=listtop>|.$locale->text('Link').qq|</a></th>|; + @column_index = qw(accno gifi_accno description debit credit link); + $column_header{accno} = + qq|<th class=listtop>| . $locale->text('Account') . qq|</a></th>|; + $column_header{gifi_accno} = + qq|<th class=listtop>| . $locale->text('GIFI') . qq|</a></th>|; + $column_header{description} = + qq|<th class=listtop>| . $locale->text('Description') . qq|</a></th>|; + $column_header{debit} = + qq|<th class=listtop>| . $locale->text('Debit') . qq|</a></th>|; + $column_header{credit} = + qq|<th class=listtop>| . $locale->text('Credit') . qq|</a></th>|; + $column_header{link} = + qq|<th class=listtop>| . $locale->text('Link') . qq|</a></th>|; - $form->header; - $colspan = $#column_index + 1; + $form->header; + $colspan = $#column_index + 1; - print qq| + print qq| <body> <table width=100%> @@ -339,60 +397,69 @@ sub list_account { <tr class="listheading"> |; - for (@column_index) { print "$column_header{$_}\n" } - - print qq| + for (@column_index) { print "$column_header{$_}\n" } + + print qq| </tr> |; - # escape callback - $callback = $form->escape($callback); - - foreach $ca (@{ $form->{CA} }) { - - $ca->{debit} = " "; - $ca->{credit} = " "; + # escape callback + $callback = $form->escape($callback); - if ($ca->{amount} > 0) { - $ca->{credit} = $form->format_amount(\%myconfig, $ca->{amount}, 2, " "); - } - if ($ca->{amount} < 0) { - $ca->{debit} = $form->format_amount(\%myconfig, -$ca->{amount}, 2, " "); - } + foreach $ca ( @{ $form->{CA} } ) { + + $ca->{debit} = " "; + $ca->{credit} = " "; + + if ( $ca->{amount} > 0 ) { + $ca->{credit} = + $form->format_amount( \%myconfig, $ca->{amount}, 2, " " ); + } + if ( $ca->{amount} < 0 ) { + $ca->{debit} = + $form->format_amount( \%myconfig, -$ca->{amount}, 2, " " ); + } - $ca->{link} =~ s/:/<br>/og; + $ca->{link} =~ s/:/<br>/og; - $gifi_accno = $form->escape($ca->{gifi_accno}); - - if ($ca->{charttype} eq "H") { - print qq|<tr class="listheading">|; + $gifi_accno = $form->escape( $ca->{gifi_accno} ); - $column_data{accno} = qq|<th><a class="listheading" href="$form->{script}?action=edit_account&id=$ca->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback">$ca->{accno}</a></th>|; - $column_data{gifi_accno} = qq|<th class="listheading"><a href="$form->{script}?action=edit_gifi&accno=$gifi_accno&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback">$ca->{gifi_accno}</a> </th>|; - $column_data{description} = qq|<th class="listheading">$ca->{description} </th>|; - $column_data{debit} = qq|<th> </th>|; - $column_data{credit} = qq| <th> </th>|; - $column_data{link} = qq|<th> </th>|; + if ( $ca->{charttype} eq "H" ) { + print qq|<tr class="listheading">|; - } else { - $i++; $i %= 2; - print qq| + $column_data{accno} = +qq|<th><a class="listheading" href="$form->{script}?action=edit_account&id=$ca->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback">$ca->{accno}</a></th>|; + $column_data{gifi_accno} = +qq|<th class="listheading"><a href="$form->{script}?action=edit_gifi&accno=$gifi_accno&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback">$ca->{gifi_accno}</a> </th>|; + $column_data{description} = + qq|<th class="listheading">$ca->{description} </th>|; + $column_data{debit} = qq|<th> </th>|; + $column_data{credit} = qq| <th> </th>|; + $column_data{link} = qq|<th> </th>|; + + } + else { + $i++; + $i %= 2; + print qq| <tr valign=top class="listrow$i">|; - $column_data{accno} = qq|<td><a href="$form->{script}?action=edit_account&id=$ca->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback">$ca->{accno}</a></td>|; - $column_data{gifi_accno} = qq|<td><a href="$form->{script}?action=edit_gifi&accno=$gifi_accno&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback">$ca->{gifi_accno}</a> </td>|; - $column_data{description} = qq|<td>$ca->{description} </td>|; - $column_data{debit} = qq|<td align="right">$ca->{debit}</td>|; - $column_data{credit} = qq|<td align="right">$ca->{credit}</td>|; - $column_data{link} = qq|<td>$ca->{link} </td>|; - - } - - for (@column_index) { print "$column_data{$_}\n" } - - print "</tr>\n"; - } - - print qq| + $column_data{accno} = +qq|<td><a href="$form->{script}?action=edit_account&id=$ca->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback">$ca->{accno}</a></td>|; + $column_data{gifi_accno} = +qq|<td><a href="$form->{script}?action=edit_gifi&accno=$gifi_accno&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback">$ca->{gifi_accno}</a> </td>|; + $column_data{description} = qq|<td>$ca->{description} </td>|; + $column_data{debit} = qq|<td align="right">$ca->{debit}</td>|; + $column_data{credit} = qq|<td align="right">$ca->{credit}</td>|; + $column_data{link} = qq|<td>$ca->{link} </td>|; + + } + + for (@column_index) { print "$column_data{$_}\n" } + + print "</tr>\n"; + } + + print qq| <tr><td colspan="$colspan"><hr size="3" noshade /></td></tr> </table> @@ -402,48 +469,54 @@ sub list_account { } - sub delete_account { - $form->{title} = $locale->text('Delete Account'); + $form->{title} = $locale->text('Delete Account'); - foreach $id (qw(inventory_accno_id income_accno_id expense_accno_id fxgain_accno_id fxloss_accno_id)) { - if ($form->{id} == $form->{$id}) { - $form->error($locale->text('Cannot delete default account!')); + foreach $id ( + qw(inventory_accno_id income_accno_id expense_accno_id fxgain_accno_id fxloss_accno_id) + ) + { + if ( $form->{id} == $form->{$id} ) { + $form->error( $locale->text('Cannot delete default account!') ); + } } - } - if (AM->delete_account(\%myconfig, \%$form)) { - $form->redirect($locale->text('Account deleted!')); - } else { - $form->error($locale->text('Cannot delete account!')); - } + if ( AM->delete_account( \%myconfig, \%$form ) ) { + $form->redirect( $locale->text('Account deleted!') ); + } + else { + $form->error( $locale->text('Cannot delete account!') ); + } } - sub list_gifi { - @{ $form->{fields} } = qw(accno description); - $form->{table} = "gifi"; - - AM->gifi_accounts(\%myconfig, \%$form); + @{ $form->{fields} } = qw(accno description); + $form->{table} = "gifi"; - $form->{title} = $locale->text('GIFI'); - - # construct callback - $callback = "$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + AM->gifi_accounts( \%myconfig, \%$form ); + + $form->{title} = $locale->text('GIFI'); - @column_index = qw(accno description); + # construct callback + $callback = +"$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - $column_header{accno} = qq|<th class="listheading">|.$locale->text('GIFI').qq|</a></th>|; - $column_header{description} = qq|<th class="listheading">|.$locale->text('Description').qq|</a></th>|; + @column_index = qw(accno description); + $column_header{accno} = + qq|<th class="listheading">| . $locale->text('GIFI') . qq|</a></th>|; + $column_header{description} = + qq|<th class="listheading">| + . $locale->text('Description') + . qq|</a></th>|; - $form->header; - $colspan = $#column_index + 1; + $form->header; + $colspan = $#column_index + 1; - print qq| + print qq| <body> <table width=100%> @@ -454,32 +527,34 @@ sub list_gifi { <tr class="listheading"> |; - for (@column_index) { print "$column_header{$_}\n" } - - print qq| + for (@column_index) { print "$column_header{$_}\n" } + + print qq| </tr> |; - # escape callback - $callback = $form->escape($callback); - - foreach $ca (@{ $form->{ALL} }) { - - $i++; $i %= 2; - - print qq| + # escape callback + $callback = $form->escape($callback); + + foreach $ca ( @{ $form->{ALL} } ) { + + $i++; + $i %= 2; + + print qq| <tr valign=top class=listrow$i>|; - - $accno = $form->escape($ca->{accno}); - $column_data{accno} = qq|<td><a href=$form->{script}?action=edit_gifi&coa=1&accno=$accno&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{accno}</td>|; - $column_data{description} = qq|<td>$ca->{description} </td>|; - - for (@column_index) { print "$column_data{$_}\n" } - - print "</tr>\n"; - } - - print qq| + + $accno = $form->escape( $ca->{accno} ); + $column_data{accno} = +qq|<td><a href=$form->{script}?action=edit_gifi&coa=1&accno=$accno&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{accno}</td>|; + $column_data{description} = qq|<td>$ca->{description} </td>|; + + for (@column_index) { print "$column_data{$_}\n" } + + print "</tr>\n"; + } + + print qq| <tr> <td colspan=$colspan><hr size=3 noshade></td> </tr> @@ -491,47 +566,46 @@ sub list_gifi { } - sub add_gifi { - $form->{title} = "Add"; - - # construct callback - $form->{callback} = "$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + $form->{title} = "Add"; - $form->{coa} = 1; - - &gifi_header; - &gifi_footer; - -} + # construct callback + $form->{callback} = +"$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + $form->{coa} = 1; -sub edit_gifi { - - $form->{title} = "Edit"; - - AM->get_gifi(\%myconfig, \%$form); + &gifi_header; + &gifi_footer; - $form->error($locale->text('Account does not exist!')) unless $form->{accno}; - - &gifi_header; - &gifi_footer; - } +sub edit_gifi { + + $form->{title} = "Edit"; + + AM->get_gifi( \%myconfig, \%$form ); + + $form->error( $locale->text('Account does not exist!') ) + unless $form->{accno}; + + &gifi_header; + &gifi_footer; + +} sub gifi_header { - $form->{title} = $locale->text("$form->{title} GIFI"); - -# $locale->text('Add GIFI') -# $locale->text('Edit GIFI') + $form->{title} = $locale->text("$form->{title} GIFI"); + + # $locale->text('Add GIFI') + # $locale->text('Edit GIFI') - for (qw(accno description)) { $form->{$_} = $form->quote($form->{$_}) } + for (qw(accno description)) { $form->{$_} = $form->quote( $form->{$_} ) } - $form->header; + $form->header; - print qq| + print qq| <body> <form method=post action=$form->{script}> @@ -548,11 +622,11 @@ sub gifi_header { <td> <table> <tr> - <th align="right">|.$locale->text('GIFI').qq|</th> + <th align="right">| . $locale->text('GIFI') . qq|</th> <td><input name=accno size=20 value="$form->{accno}"></td> </tr> <tr> - <th align="right">|.$locale->text('Description').qq|</th> + <th align="right">| . $locale->text('Description') . qq|</th> <td><input name=description size=60 value="$form->{description}"></td> </tr> </table> @@ -566,37 +640,40 @@ sub gifi_header { } - sub gifi_footer { - $form->hide_form(qw(callback path login sessionid)); - -# type=submit $locale->text('Save') -# type=submit $locale->text('Copy to COA') -# type=submit $locale->text('Delete') + $form->hide_form(qw(callback path login sessionid)); - %button = (); - - $button{'save'} = { ndx => 3, key => 'S', value => $locale->text('Save') }; - - if ($form->{accno}) { - if ($form->{orphaned}) { - $button{'delete'} = { ndx => 16, key => 'D', value => $locale->text('Delete') }; + # type=submit $locale->text('Save') + # type=submit $locale->text('Copy to COA') + # type=submit $locale->text('Delete') + + %button = (); + + $button{'save'} = { ndx => 3, key => 'S', value => $locale->text('Save') }; + + if ( $form->{accno} ) { + if ( $form->{orphaned} ) { + $button{'delete'} = + { ndx => 16, key => 'D', value => $locale->text('Delete') }; + } + } + + if ( $form->{coa} ) { + $button{'copy_to_coa'} = + { ndx => 7, key => 'C', value => $locale->text('Copy to COA') }; } - } - - if ($form->{coa}) { - $button{'copy_to_coa'} = { ndx => 7, key => 'C', value => $locale->text('Copy to COA') }; - } - for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } + for ( sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button ) { + $form->print_button( \%button, $_ ); + } - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } - print qq| + print qq| </form> </body> @@ -605,90 +682,97 @@ sub gifi_footer { } - sub save_gifi { - $form->isblank("accno", $locale->text('GIFI missing!')); - AM->save_gifi(\%myconfig, \%$form); - $form->redirect($locale->text('GIFI saved!')); + $form->isblank( "accno", $locale->text('GIFI missing!') ); + AM->save_gifi( \%myconfig, \%$form ); + $form->redirect( $locale->text('GIFI saved!') ); } - sub copy_to_coa { - $form->isblank("accno", $locale->text('GIFI missing!')); + $form->isblank( "accno", $locale->text('GIFI missing!') ); - AM->save_gifi(\%myconfig, \%$form); + AM->save_gifi( \%myconfig, \%$form ); - delete $form->{id}; - $form->{gifi_accno} = $form->{accno}; - - $form->{title} = "Add"; - $form->{charttype} = "A"; - - &account_header; - &form_footer; - -} + delete $form->{id}; + $form->{gifi_accno} = $form->{accno}; + + $form->{title} = "Add"; + $form->{charttype} = "A"; + &account_header; + &form_footer; + +} sub delete_gifi { - AM->delete_gifi(\%myconfig, \%$form); - $form->redirect($locale->text('GIFI deleted!')); + AM->delete_gifi( \%myconfig, \%$form ); + $form->redirect( $locale->text('GIFI deleted!') ); } - sub add_department { - $form->{title} = "Add"; - $form->{role} = "P"; - - $form->{callback} = "$form->{script}?action=add_department&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + $form->{title} = "Add"; + $form->{role} = "P"; - &department_header; - &form_footer; + $form->{callback} = +"$form->{script}?action=add_department&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" + unless $form->{callback}; -} + &department_header; + &form_footer; +} sub edit_department { - $form->{title} = "Edit"; + $form->{title} = "Edit"; - AM->get_department(\%myconfig, \%$form); + AM->get_department( \%myconfig, \%$form ); - &department_header; - &form_footer; + &department_header; + &form_footer; } - sub list_department { - AM->departments(\%myconfig, \%$form); + AM->departments( \%myconfig, \%$form ); - $href = "$form->{script}?action=list_department&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + $href = +"$form->{script}?action=list_department&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - $form->sort_order(); - - $form->{callback} = "$form->{script}?action=list_department&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - - $callback = $form->escape($form->{callback}); - - $form->{title} = $locale->text('Departments'); + $form->sort_order(); + + $form->{callback} = +"$form->{script}?action=list_department&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - @column_index = qw(description cost profit); + $callback = $form->escape( $form->{callback} ); - $column_header{description} = qq|<th width=90%><a class="listheading" href=$href>|.$locale->text('Description').qq|</a></th>|; - $column_header{cost} = qq|<th class="listheading" nowrap>|.$locale->text('Cost Center').qq|</th>|; - $column_header{profit} = qq|<th class="listheading" nowrap>|.$locale->text('Profit Center').qq|</th>|; + $form->{title} = $locale->text('Departments'); - $form->header; + @column_index = qw(description cost profit); - print qq| + $column_header{description} = + qq|<th width=90%><a class="listheading" href=$href>| + . $locale->text('Description') + . qq|</a></th>|; + $column_header{cost} = + qq|<th class="listheading" nowrap>| + . $locale->text('Cost Center') + . qq|</th>|; + $column_header{profit} = + qq|<th class="listheading" nowrap>| + . $locale->text('Profit Center') + . qq|</th>|; + + $form->header; + + print qq| <body> <table width=100%> @@ -702,35 +786,37 @@ sub list_department { <tr class="listheading"> |; - for (@column_index) { print "$column_header{$_}\n" } + for (@column_index) { print "$column_header{$_}\n" } - print qq| + print qq| </tr> |; - foreach $ref (@{ $form->{ALL} }) { - - $i++; $i %= 2; - - print qq| + foreach $ref ( @{ $form->{ALL} } ) { + + $i++; + $i %= 2; + + print qq| <tr valign=top class=listrow$i> |; - $costcenter = ($ref->{role} eq "C") ? "*" : " "; - $profitcenter = ($ref->{role} eq "P") ? "*" : " "; - - $column_data{description} = qq|<td><a href=$form->{script}?action=edit_department&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}</td>|; - $column_data{cost} = qq|<td align=center>$costcenter</td>|; - $column_data{profit} = qq|<td align=center>$profitcenter</td>|; + $costcenter = ( $ref->{role} eq "C" ) ? "*" : " "; + $profitcenter = ( $ref->{role} eq "P" ) ? "*" : " "; - for (@column_index) { print "$column_data{$_}\n" } + $column_data{description} = +qq|<td><a href=$form->{script}?action=edit_department&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}</td>|; + $column_data{cost} = qq|<td align=center>$costcenter</td>|; + $column_data{profit} = qq|<td align=center>$profitcenter</td>|; - print qq| + for (@column_index) { print "$column_data{$_}\n" } + + print qq| </tr> |; - } + } - print qq| + print qq| </table> </td> </tr> @@ -743,49 +829,53 @@ sub list_department { <form method=post action=$form->{script}> |; - $form->{type} = "department"; - - $form->hide_form(qw(type callback path login sessionid)); - - print qq| -<button class="submit" type="submit" name="action" value="add_department">|.$locale->text('Add Department').qq|"</button>|; + $form->{type} = "department"; - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + $form->hide_form(qw(type callback path login sessionid)); - print qq| + print qq| +<button class="submit" type="submit" name="action" value="add_department">| + . $locale->text('Add Department') + . qq|"</button>|; + + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } + + print qq| </form> </body> </html> |; - -} +} sub department_header { - $form->{title} = $locale->text("$form->{title} Department"); + $form->{title} = $locale->text("$form->{title} Department"); -# $locale->text('Add Department') -# $locale->text('Edit Department') + # $locale->text('Add Department') + # $locale->text('Edit Department') - $form->{description} = $form->quote($form->{description}); + $form->{description} = $form->quote( $form->{description} ); - if (($rows = $form->numtextrows($form->{description}, 60)) > 1) { - $description = qq|<textarea name="description" rows=$rows cols=60 wrap=soft>$form->{description}</textarea>|; - } else { - $description = qq|<input name=description size=60 value="$form->{description}">|; - } + if ( ( $rows = $form->numtextrows( $form->{description}, 60 ) ) > 1 ) { + $description = +qq|<textarea name="description" rows=$rows cols=60 wrap=soft>$form->{description}</textarea>|; + } + else { + $description = + qq|<input name=description size=60 value="$form->{description}">|; + } - $costcenter = "checked" if $form->{role} eq "C"; - $profitcenter = "checked" if $form->{role} eq "P"; - - $form->header; + $costcenter = "checked" if $form->{role} eq "C"; + $profitcenter = "checked" if $form->{role} eq "P"; + + $form->header; - print qq| + print qq| <body> <form method=post action=$form->{script}> @@ -799,13 +889,15 @@ sub department_header { </tr> <tr height="5"></tr> <tr> - <th align="right">|.$locale->text('Description').qq|</th> + <th align="right">| . $locale->text('Description') . qq|</th> <td>$description</td> </tr> <tr> <td></td> - <td><input type=radio style=radio name=role value="C" $costcenter> |.$locale->text('Cost Center').qq| - <input type=radio style=radio name=role value="P" $profitcenter> |.$locale->text('Profit Center').qq| + <td><input type=radio style=radio name=role value="C" $costcenter> | + . $locale->text('Cost Center') . qq| + <input type=radio style=radio name=role value="P" $profitcenter> | + . $locale->text('Profit Center') . qq| </td> <tr> <td colspan=2><hr size=3 noshade></td> @@ -815,72 +907,75 @@ sub department_header { } - sub save_department { - $form->isblank("description", $locale->text('Description missing!')); - AM->save_department(\%myconfig, \%$form); - $form->redirect($locale->text('Department saved!')); + $form->isblank( "description", $locale->text('Description missing!') ); + AM->save_department( \%myconfig, \%$form ); + $form->redirect( $locale->text('Department saved!') ); } - sub delete_department { - AM->delete_department(\%myconfig, \%$form); - $form->redirect($locale->text('Department deleted!')); + AM->delete_department( \%myconfig, \%$form ); + $form->redirect( $locale->text('Department deleted!') ); } - sub add_business { - $form->{title} = "Add"; - - $form->{callback} = "$form->{script}?action=add_business&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + $form->{title} = "Add"; - &business_header; - &form_footer; + $form->{callback} = +"$form->{script}?action=add_business&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" + unless $form->{callback}; -} + &business_header; + &form_footer; +} sub edit_business { - $form->{title} = "Edit"; + $form->{title} = "Edit"; - AM->get_business(\%myconfig, \%$form); + AM->get_business( \%myconfig, \%$form ); - &business_header; + &business_header; - $form->{orphaned} = 1; - &form_footer; + $form->{orphaned} = 1; + &form_footer; } - sub list_business { - AM->business(\%myconfig, \%$form); + AM->business( \%myconfig, \%$form ); - $href = "$form->{script}?action=list_business&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + $href = +"$form->{script}?action=list_business&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - $form->sort_order(); - - $form->{callback} = "$form->{script}?action=list_business&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - - $callback = $form->escape($form->{callback}); - - $form->{title} = $locale->text('Type of Business'); + $form->sort_order(); - @column_index = qw(description discount); + $form->{callback} = +"$form->{script}?action=list_business&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - $column_header{description} = qq|<th width=90%><a class="listheading" href=$href>|.$locale->text('Description').qq|</a></th>|; - $column_header{discount} = qq|<th class="listheading">|.$locale->text('Discount').qq| %</th>|; + $callback = $form->escape( $form->{callback} ); - $form->header; + $form->{title} = $locale->text('Type of Business'); - print qq| + @column_index = qw(description discount); + + $column_header{description} = + qq|<th width=90%><a class="listheading" href=$href>| + . $locale->text('Description') + . qq|</a></th>|; + $column_header{discount} = + qq|<th class="listheading">| . $locale->text('Discount') . qq| %</th>|; + + $form->header; + + print qq| <body> <table width=100%> @@ -894,33 +989,37 @@ sub list_business { <tr class="listheading"> |; - for (@column_index) { print "$column_header{$_}\n" } + for (@column_index) { print "$column_header{$_}\n" } - print qq| + print qq| </tr> |; - foreach $ref (@{ $form->{ALL} }) { - - $i++; $i %= 2; - - print qq| + foreach $ref ( @{ $form->{ALL} } ) { + + $i++; + $i %= 2; + + print qq| <tr valign=top class=listrow$i> |; - $discount = $form->format_amount(\%myconfig, $ref->{discount} * 100, 2, " "); - - $column_data{description} = qq|<td><a href=$form->{script}?action=edit_business&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}</td>|; - $column_data{discount} = qq|<td align="right">$discount</td>|; - - for (@column_index) { print "$column_data{$_}\n" } + $discount = + $form->format_amount( \%myconfig, $ref->{discount} * 100, 2, + " " ); - print qq| + $column_data{description} = +qq|<td><a href=$form->{script}?action=edit_business&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}</td>|; + $column_data{discount} = qq|<td align="right">$discount</td>|; + + for (@column_index) { print "$column_data{$_}\n" } + + print qq| </tr> |; - } + } - print qq| + print qq| </table> </td> </tr> @@ -933,42 +1032,44 @@ sub list_business { <form method=post action=$form->{script}> |; - $form->{type} = "business"; - - $form->hide_form(qw(type callback path login sessionid)); + $form->{type} = "business"; - print qq| -<button class="submit" type="submit" name="action" value="add_business">|.$locale->text('Add Business').qq|</button>|; + $form->hide_form(qw(type callback path login sessionid)); - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + print qq| +<button class="submit" type="submit" name="action" value="add_business">| + . $locale->text('Add Business') + . qq|</button>|; - print qq| + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } + + print qq| </form> </body> </html> |; - -} +} sub business_header { - $form->{title} = $locale->text("$form->{title} Business"); + $form->{title} = $locale->text("$form->{title} Business"); -# $locale->text('Add Business') -# $locale->text('Edit Business') + # $locale->text('Add Business') + # $locale->text('Edit Business') - $form->{description} = $form->quote($form->{description}); - $form->{discount} = $form->format_amount(\%myconfig, $form->{discount} * 100); + $form->{description} = $form->quote( $form->{description} ); + $form->{discount} = + $form->format_amount( \%myconfig, $form->{discount} * 100 ); - $form->header; + $form->header; - print qq| + print qq| <body> <form method=post action=$form->{script}> @@ -985,11 +1086,11 @@ sub business_header { <td> <table> <tr> - <th align="right">|.$locale->text('Type of Business').qq|</th> + <th align="right">| . $locale->text('Type of Business') . qq|</th> <td><input name=description size=30 value="$form->{description}"></td> <tr> <tr> - <th align="right">|.$locale->text('Discount').qq| %</th> + <th align="right">| . $locale->text('Discount') . qq| %</th> <td><input name=discount size=5 value=$form->{discount}></td> </tr> </table> @@ -1003,77 +1104,81 @@ sub business_header { } - sub save_business { - $form->isblank("description", $locale->text('Description missing!')); - AM->save_business(\%myconfig, \%$form); - $form->redirect($locale->text('Business saved!')); + $form->isblank( "description", $locale->text('Description missing!') ); + AM->save_business( \%myconfig, \%$form ); + $form->redirect( $locale->text('Business saved!') ); } - sub delete_business { - AM->delete_business(\%myconfig, \%$form); - $form->redirect($locale->text('Business deleted!')); + AM->delete_business( \%myconfig, \%$form ); + $form->redirect( $locale->text('Business deleted!') ); } - - sub add_sic { - $form->{title} = "Add"; - - $form->{callback} = "$form->{script}?action=add_sic&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + $form->{title} = "Add"; - &sic_header; - &form_footer; + $form->{callback} = +"$form->{script}?action=add_sic&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" + unless $form->{callback}; -} + &sic_header; + &form_footer; +} sub edit_sic { - $form->{title} = "Edit"; + $form->{title} = "Edit"; - $form->{code} =~ s/\\'/'/g; - $form->{code} =~ s/\\\\/\\/g; - - AM->get_sic(\%myconfig, \%$form); - $form->{id} = $form->{code}; + $form->{code} =~ s/\\'/'/g; + $form->{code} =~ s/\\\\/\\/g; - &sic_header; + AM->get_sic( \%myconfig, \%$form ); + $form->{id} = $form->{code}; - $form->{orphaned} = 1; - &form_footer; + &sic_header; -} + $form->{orphaned} = 1; + &form_footer; +} sub list_sic { - AM->sic(\%myconfig, \%$form); + AM->sic( \%myconfig, \%$form ); - $href = "$form->{script}?action=list_sic&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - - $form->sort_order(); + $href = +"$form->{script}?action=list_sic&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - $form->{callback} = "$form->{script}?action=list_sic&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - - $callback = $form->escape($form->{callback}); - - $form->{title} = $locale->text('Standard Industrial Codes'); + $form->sort_order(); - @column_index = $form->sort_columns(qw(code description)); + $form->{callback} = +"$form->{script}?action=list_sic&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - $column_header{code} = qq|<th><a class="listheading" href=$href&sort=code>|.$locale->text('Code').qq|</a></th>|; - $column_header{description} = qq|<th><a class="listheading" href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|; + $callback = $form->escape( $form->{callback} ); - $form->header; + $form->{title} = $locale->text('Standard Industrial Codes'); - print qq| + @column_index = $form->sort_columns(qw(code description)); + + $column_header{code} = + qq|<th><a class="listheading" href=$href&sort=code>| + . $locale->text('Code') + . qq|</a></th>|; + $column_header{description} = + qq|<th><a class="listheading" href=$href&sort=description>| + . $locale->text('Description') + . qq|</a></th>|; + + $form->header; + + print qq| <body> <table width=100%> @@ -1087,41 +1192,45 @@ sub list_sic { <tr class="listheading"> |; - for (@column_index) { print "$column_header{$_}\n" } + for (@column_index) { print "$column_header{$_}\n" } - print qq| + print qq| </tr> |; - foreach $ref (@{ $form->{ALL} }) { - - $i++; $i %= 2; - - if ($ref->{sictype} eq 'H') { - print qq| + foreach $ref ( @{ $form->{ALL} } ) { + + $i++; + $i %= 2; + + if ( $ref->{sictype} eq 'H' ) { + print qq| <tr valign=top class="listheading"> |; - $column_data{code} = qq|<th><a href=$form->{script}?action=edit_sic&code=$ref->{code}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{code}</th>|; - $column_data{description} = qq|<th>$ref->{description}</th>|; - - } else { - print qq| + $column_data{code} = +qq|<th><a href=$form->{script}?action=edit_sic&code=$ref->{code}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{code}</th>|; + $column_data{description} = qq|<th>$ref->{description}</th>|; + + } + else { + print qq| <tr valign=top class=listrow$i> |; - $column_data{code} = qq|<td><a href=$form->{script}?action=edit_sic&code=$ref->{code}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{code}</td>|; - $column_data{description} = qq|<td>$ref->{description}</td>|; + $column_data{code} = +qq|<td><a href=$form->{script}?action=edit_sic&code=$ref->{code}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{code}</td>|; + $column_data{description} = qq|<td>$ref->{description}</td>|; + + } - } - - for (@column_index) { print "$column_data{$_}\n" } + for (@column_index) { print "$column_data{$_}\n" } - print qq| + print qq| </tr> |; - } + } - print qq| + print qq| </table> </td> </tr> @@ -1134,42 +1243,43 @@ sub list_sic { <form method=post action=$form->{script}> |; - $form->{type} = "sic"; - - $form->hide_form(qw(type callback path login sessionid)); - - print qq| -<button class="submit" type="submit" name="action" value="add_sic">|.$locale->text('Add SIC').qq|</button>|; + $form->{type} = "sic"; - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + $form->hide_form(qw(type callback path login sessionid)); - print qq| + print qq| +<button class="submit" type="submit" name="action" value="add_sic">| + . $locale->text('Add SIC') + . qq|</button>|; + + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } + + print qq| </form> </body> </html> |; - -} +} sub sic_header { - $form->{title} = $locale->text("$form->{title} SIC"); + $form->{title} = $locale->text("$form->{title} SIC"); -# $locale->text('Add SIC') -# $locale->text('Edit SIC') + # $locale->text('Add SIC') + # $locale->text('Edit SIC') - for (qw(code description)) { $form->{$_} = $form->quote($form->{$_}) } + for (qw(code description)) { $form->{$_} = $form->quote( $form->{$_} ) } - $checked = ($form->{sictype} eq 'H') ? "checked" : ""; + $checked = ( $form->{sictype} eq 'H' ) ? "checked" : ""; - $form->header; + $form->header; - print qq| + print qq| <body> <form method=post action=$form->{script}> @@ -1183,15 +1293,17 @@ sub sic_header { </tr> <tr height="5"></tr> <tr> - <th align="right">|.$locale->text('Code').qq|</th> + <th align="right">| . $locale->text('Code') . qq|</th> <td><input name=code size=10 value="$form->{code}"></td> <tr> <tr> <td></td> - <th align=left><input name=sictype class=checkbox type=checkbox value="H" $checked> |.$locale->text('Heading').qq|</th> + <th align=left><input name=sictype class=checkbox type=checkbox value="H" $checked> | + . $locale->text('Heading') + . qq|</th> <tr> <tr> - <th align="right">|.$locale->text('Description').qq|</th> + <th align="right">| . $locale->text('Description') . qq|</th> <td><input name=description size=60 value="$form->{description}"></td> </tr> <td colspan=2><hr size=3 noshade></td> @@ -1201,77 +1313,82 @@ sub sic_header { } - sub save_sic { - $form->isblank("code", $locale->text('Code missing!')); - $form->isblank("description", $locale->text('Description missing!')); - AM->save_sic(\%myconfig, \%$form); - $form->redirect($locale->text('SIC saved!')); + $form->isblank( "code", $locale->text('Code missing!') ); + $form->isblank( "description", $locale->text('Description missing!') ); + AM->save_sic( \%myconfig, \%$form ); + $form->redirect( $locale->text('SIC saved!') ); } - sub delete_sic { - AM->delete_sic(\%myconfig, \%$form); - $form->redirect($locale->text('SIC deleted!')); + AM->delete_sic( \%myconfig, \%$form ); + $form->redirect( $locale->text('SIC deleted!') ); } - sub add_language { - $form->{title} = "Add"; - - $form->{callback} = "$form->{script}?action=add_language&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + $form->{title} = "Add"; - &language_header; - &form_footer; + $form->{callback} = +"$form->{script}?action=add_language&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" + unless $form->{callback}; -} + &language_header; + &form_footer; +} sub edit_language { - $form->{title} = "Edit"; + $form->{title} = "Edit"; - $form->{code} =~ s/\\'/'/g; - $form->{code} =~ s/\\\\/\\/g; - - AM->get_language(\%myconfig, \%$form); - $form->{id} = $form->{code}; + $form->{code} =~ s/\\'/'/g; + $form->{code} =~ s/\\\\/\\/g; - &language_header; + AM->get_language( \%myconfig, \%$form ); + $form->{id} = $form->{code}; - $form->{orphaned} = 1; - &form_footer; + &language_header; -} + $form->{orphaned} = 1; + &form_footer; +} sub list_language { - AM->language(\%myconfig, \%$form); + AM->language( \%myconfig, \%$form ); - $href = "$form->{script}?action=list_language&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - - $form->sort_order(); + $href = +"$form->{script}?action=list_language&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - $form->{callback} = "$form->{script}?action=list_language&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - - $callback = $form->escape($form->{callback}); - - $form->{title} = $locale->text('Languages'); + $form->sort_order(); + + $form->{callback} = +"$form->{script}?action=list_language&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - @column_index = $form->sort_columns(qw(code description)); + $callback = $form->escape( $form->{callback} ); - $column_header{code} = qq|<th><a class="listheading" href=$href&sort=code>|.$locale->text('Code').qq|</a></th>|; - $column_header{description} = qq|<th><a class="listheading" href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|; + $form->{title} = $locale->text('Languages'); - $form->header; + @column_index = $form->sort_columns(qw(code description)); - print qq| + $column_header{code} = + qq|<th><a class="listheading" href=$href&sort=code>| + . $locale->text('Code') + . qq|</a></th>|; + $column_header{description} = + qq|<th><a class="listheading" href=$href&sort=description>| + . $locale->text('Description') + . qq|</a></th>|; + + $form->header; + + print qq| <body> <table width=100%> @@ -1285,31 +1402,33 @@ sub list_language { <tr class="listheading"> |; - for (@column_index) { print "$column_header{$_}\n" } + for (@column_index) { print "$column_header{$_}\n" } - print qq| + print qq| </tr> |; - foreach $ref (@{ $form->{ALL} }) { - - $i++; $i %= 2; + foreach $ref ( @{ $form->{ALL} } ) { - print qq| + $i++; + $i %= 2; + + print qq| <tr valign=top class=listrow$i> |; - $column_data{code} = qq|<td><a href=$form->{script}?action=edit_language&code=$ref->{code}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{code}</td>|; - $column_data{description} = qq|<td>$ref->{description}</td>|; - - for (@column_index) { print "$column_data{$_}\n" } + $column_data{code} = +qq|<td><a href=$form->{script}?action=edit_language&code=$ref->{code}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{code}</td>|; + $column_data{description} = qq|<td>$ref->{description}</td>|; - print qq| + for (@column_index) { print "$column_data{$_}\n" } + + print qq| </tr> |; - } + } - print qq| + print qq| </table> </td> </tr> @@ -1322,40 +1441,41 @@ sub list_language { <form method=post action=$form->{script}> |; - $form->{type} = "language"; + $form->{type} = "language"; - $form->hide_form(qw(type callback path login sessionid)); - - print qq| -<button class="submit" type="submit" name="action" value="add_language">|.$locale->text('Add Language').qq|</button>|; + $form->hide_form(qw(type callback path login sessionid)); + + print qq| +<button class="submit" type="submit" name="action" value="add_language">| + . $locale->text('Add Language') + . qq|</button>|; - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } - print qq| + print qq| </form> </body> </html> |; - -} +} sub language_header { - $form->{title} = $locale->text("$form->{title} Language"); + $form->{title} = $locale->text("$form->{title} Language"); -# $locale->text('Add Language') -# $locale->text('Edit Language') + # $locale->text('Add Language') + # $locale->text('Edit Language') - for (qw(code description)) { $form->{$_} = $form->quote($form->{$_}) } + for (qw(code description)) { $form->{$_} = $form->quote( $form->{$_} ) } - $form->header; + $form->header; - print qq| + print qq| <body> <form method=post action=$form->{script}> @@ -1369,11 +1489,11 @@ sub language_header { </tr> <tr height="5"></tr> <tr> - <th align="right">|.$locale->text('Code').qq|</th> + <th align="right">| . $locale->text('Code') . qq|</th> <td><input name=code size=10 value="$form->{code}"></td> <tr> <tr> - <th align="right">|.$locale->text('Description').qq|</th> + <th align="right">| . $locale->text('Description') . qq|</th> <td><input name=description size=60 value="$form->{description}"></td> </tr> <td colspan=2><hr size=3 noshade></td> @@ -1383,75 +1503,85 @@ sub language_header { } - sub save_language { - $form->isblank("code", $locale->text('Code missing!')); - $form->isblank("description", $locale->text('Description missing!')); + $form->isblank( "code", $locale->text('Code missing!') ); + $form->isblank( "description", $locale->text('Description missing!') ); - $form->{code} =~ s/(\.\.|\*)//g; - - AM->save_language(\%myconfig, \%$form); + $form->{code} =~ s/(\.\.|\*)//g; + + AM->save_language( \%myconfig, \%$form ); - if (! -d "$myconfig{templates}/$form->{code}") { - - umask(002); - - if (mkdir "$myconfig{templates}/$form->{code}", oct("771")) { - - umask(007); + if ( !-d "$myconfig{templates}/$form->{code}" ) { - opendir TEMPLATEDIR, "$myconfig{templates}" or $form->error("$myconfig{templates} : $!"); - @templates = grep !/^(\.|\.\.)/, readdir TEMPLATEDIR; - closedir TEMPLATEDIR; + umask(002); - foreach $file (@templates) { - if (-f "$myconfig{templates}/$file") { - open(TEMP, '<', "$myconfig{templates}/$file") or $form->error("$myconfig{templates}/$file : $!"); + if ( mkdir "$myconfig{templates}/$form->{code}", oct("771") ) { - open(NEW, '>', "$myconfig{templates}/$form->{code}/$file") or $form->error("$myconfig{templates}/$form->{code}/$file : $!"); + umask(007); - while ($line = <TEMP>) { - print NEW $line; - } - close(TEMP); - close(NEW); - } - } - } else { - $form->error("${templates}/$form->{code} : $!"); + opendir TEMPLATEDIR, "$myconfig{templates}" + or $form->error("$myconfig{templates} : $!"); + @templates = grep !/^(\.|\.\.)/, readdir TEMPLATEDIR; + closedir TEMPLATEDIR; + + foreach $file (@templates) { + if ( -f "$myconfig{templates}/$file" ) { + open( TEMP, '<', "$myconfig{templates}/$file" ) + or $form->error("$myconfig{templates}/$file : $!"); + + open( NEW, '>', "$myconfig{templates}/$form->{code}/$file" ) + or $form->error( + "$myconfig{templates}/$form->{code}/$file : $!"); + + while ( $line = <TEMP> ) { + print NEW $line; + } + close(TEMP); + close(NEW); + } + } + } + else { + $form->error("${templates}/$form->{code} : $!"); + } } - } - - $form->redirect($locale->text('Language saved!')); -} + $form->redirect( $locale->text('Language saved!') ); +} sub delete_language { - $form->{title} = $locale->text('Confirm!'); + $form->{title} = $locale->text('Confirm!'); - $form->header; + $form->header; - print qq| + print qq| <body> <form method=post action=$form->{script}> |; - for (qw(action nextsub)) { delete $form->{$_} } - - $form->hide_form; + for (qw(action nextsub)) { delete $form->{$_} } + + $form->hide_form; - print qq| + print qq| <h2 class=confirm>$form->{title}</h2> -<h4>|.$locale->text('Deleting a language will also delete the templates for the language [_1]', $form->{invnumber}).qq|</h4> +<h4>| + . $locale->text( +'Deleting a language will also delete the templates for the language [_1]', + $form->{invnumber} + ) + . qq|</h4> <input type=hidden name=action value=continue> <input type=hidden name=nextsub value=yes_delete_language> -<button name="action" class="submit" type="submit" value="continue">|.$locale->text('Continue').qq|</button> +<button name="action" class="submit" type="submit" value="continue">| + . $locale->text('Continue') + . qq|</button> </form> </body> @@ -1460,62 +1590,68 @@ sub delete_language { } - sub yes_delete_language { - - AM->delete_language(\%myconfig, \%$form); - # delete templates - $dir = "$myconfig{templates}/$form->{code}"; - if (-d $dir) { - unlink <$dir/*>; - rmdir "$myconfig{templates}/$form->{code}"; - } - $form->redirect($locale->text('Language deleted!')); + AM->delete_language( \%myconfig, \%$form ); -} + # delete templates + $dir = "$myconfig{templates}/$form->{code}"; + if ( -d $dir ) { + unlink <$dir/*>; + rmdir "$myconfig{templates}/$form->{code}"; + } + $form->redirect( $locale->text('Language deleted!') ); +} sub display_stylesheet { - - $form->{file} = "css/$myconfig{stylesheet}"; - &display_form; - -} + $form->{file} = "css/$myconfig{stylesheet}"; + &display_form; + +} sub list_templates { - AM->language(\%myconfig, \%$form); - - if (! @{ $form->{ALL} }) { - &display_form; - exit; - } + AM->language( \%myconfig, \%$form ); - unshift @{ $form->{ALL} }, { code => '.', description => $locale->text('Default Template') }; - - $href = "$form->{script}?action=list_templates&direction=$form->{direction}&oldsort=$form->{oldsort}&file=$form->{file}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - - $form->sort_order(); + if ( !@{ $form->{ALL} } ) { + &display_form; + exit; + } - $form->{callback} = "$form->{script}?action=list_templates&direction=$form->{direction}&oldsort=$form->{oldsort}&file=$form->{file}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - - $callback = $form->escape($form->{callback}); + unshift @{ $form->{ALL} }, + { code => '.', description => $locale->text('Default Template') }; - chomp $myconfig{templates}; - $form->{file} =~ s/$myconfig{templates}//; - $form->{file} =~ s/\///; - $form->{title} = $form->{file}; + $href = +"$form->{script}?action=list_templates&direction=$form->{direction}&oldsort=$form->{oldsort}&file=$form->{file}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - @column_index = $form->sort_columns(qw(code description)); + $form->sort_order(); - $column_header{code} = qq|<th><a class="listheading" href=$href&sort=code>|.$locale->text('Code').qq|</a></th>|; - $column_header{description} = qq|<th><a class="listheading" href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|; + $form->{callback} = +"$form->{script}?action=list_templates&direction=$form->{direction}&oldsort=$form->{oldsort}&file=$form->{file}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - $form->header; + $callback = $form->escape( $form->{callback} ); - print qq| + chomp $myconfig{templates}; + $form->{file} =~ s/$myconfig{templates}//; + $form->{file} =~ s/\///; + $form->{title} = $form->{file}; + + @column_index = $form->sort_columns(qw(code description)); + + $column_header{code} = + qq|<th><a class="listheading" href=$href&sort=code>| + . $locale->text('Code') + . qq|</a></th>|; + $column_header{description} = + qq|<th><a class="listheading" href=$href&sort=description>| + . $locale->text('Description') + . qq|</a></th>|; + + $form->header; + + print qq| <body> <table width=100%> @@ -1529,31 +1665,33 @@ sub list_templates { <tr class="listheading"> |; - for (@column_index) { print "$column_header{$_}\n" } + for (@column_index) { print "$column_header{$_}\n" } - print qq| + print qq| </tr> |; - foreach $ref (@{ $form->{ALL} }) { - - $i++; $i %= 2; + foreach $ref ( @{ $form->{ALL} } ) { - print qq| + $i++; + $i %= 2; + + print qq| <tr valign=top class=listrow$i> |; - $column_data{code} = qq|<td><a href=$form->{script}?action=display_form&file=$myconfig{templates}/$ref->{code}/$form->{file}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&code=$ref->{code}&callback=$callback>$ref->{code}</td>|; - $column_data{description} = qq|<td>$ref->{description}</td>|; - - for (@column_index) { print "$column_data{$_}\n" } + $column_data{code} = +qq|<td><a href=$form->{script}?action=display_form&file=$myconfig{templates}/$ref->{code}/$form->{file}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&code=$ref->{code}&callback=$callback>$ref->{code}</td>|; + $column_data{description} = qq|<td>$ref->{description}</td>|; + + for (@column_index) { print "$column_data{$_}\n" } - print qq| + print qq| </tr> |; - } + } - print qq| + print qq| </table> </td> </tr> @@ -1574,37 +1712,37 @@ sub list_templates { <input type=hidden name=sessionid value=$form->{sessionid}> |; - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } - print qq| + print qq| </form> </body> </html> |; - -} +} sub display_form { - AM->load_template(\%myconfig, \%$form); + AM->load_template( \%myconfig, \%$form ); - $form->{title} = $form->{file}; + $form->{title} = $form->{file}; - $form->{body} =~ s/<%include (.*?)%>/<a href=$form->{script}\?action=display_form&file=$myconfig{templates}\/$form->{code}\/$1&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}>$1<\/a>/g; + $form->{body} =~ +s/<%include (.*?)%>/<a href=$form->{script}\?action=display_form&file=$myconfig{templates}\/$form->{code}\/$1&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}>$1<\/a>/g; - # if it is anything but html - if ($form->{file} !~ /\.html$/) { - $form->{body} = "<pre>\n$form->{body}\n</pre>"; - } - - $form->header; + # if it is anything but html + if ( $form->{file} !~ /\.html$/ ) { + $form->{body} = "<pre>\n$form->{body}\n</pre>"; + } - print qq| + $form->header; + + print qq| <body> $form->{body} @@ -1612,19 +1750,21 @@ $form->{body} <form method=post action=$form->{script}> |; - $form->{type} = "template"; + $form->{type} = "template"; - $form->hide_form(qw(file type path login sessionid)); - - print qq| -<button name="action" type="submit" class="submit" value="edit">|.$locale->text('Edit').qq|</button>|; + $form->hide_form(qw(file type path login sessionid)); - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + print qq| +<button name="action" type="submit" class="submit" value="edit">| + . $locale->text('Edit') + . qq|</button>|; - print qq| + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } + + print qq| </form> </body> @@ -1633,19 +1773,18 @@ $form->{body} } - sub edit_template { - AM->load_template(\%myconfig, \%$form); + AM->load_template( \%myconfig, \%$form ); - $form->{title} = $locale->text('Edit Template'); - # convert   to &nbsp; - $form->{body} =~ s/ /&nbsp;/gi; - + $form->{title} = $locale->text('Edit Template'); - $form->header; - - print qq| + # convert   to &nbsp; + $form->{body} =~ s/ /&nbsp;/gi; + + $form->header; + + print qq| <body> <form method=post action=$form->{script}> @@ -1664,14 +1803,16 @@ $form->{body} </textarea> <br> -<button type="submit" class="submit" name="action" value="save">|.$locale->text('Save').qq|</button>|; +<button type="submit" class="submit" name="action" value="save">| + . $locale->text('Save') + . qq|</button>|; - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } - print q| + print q| </form> @@ -1681,36 +1822,38 @@ $form->{body} } - sub save_template { - AM->save_template(\%myconfig, \%$form); - $form->redirect($locale->text('Template saved!')); - -} + AM->save_template( \%myconfig, \%$form ); + $form->redirect( $locale->text('Template saved!') ); +} sub defaults { - - # get defaults for account numbers and last numbers - AM->get_all_defaults(\%$form); - foreach $key (keys %{ $form->{accno} }) { - foreach $accno (sort keys %{ $form->{accno}{$key} }) { - $form->{account}{$key} .= "<option>$accno--$form->{accno}{$key}{$accno}{description}\n"; - $form->{accno}{$form->{accno}{$key}{$accno}{id}} = $accno; + # get defaults for account numbers and last numbers + AM->get_all_defaults( \%$form ); + + foreach $key ( keys %{ $form->{accno} } ) { + foreach $accno ( sort keys %{ $form->{accno}{$key} } ) { + $form->{account}{$key} .= + "<option>$accno--$form->{accno}{$key}{$accno}{description}\n"; + $form->{accno}{ $form->{accno}{$key}{$accno}{id} } = $accno; + } } - } - for (qw(IC IC_inventory IC_income IC_expense FX_gain FX_loss)) { $form->{account}{$_} =~ s/>$form->{accno}{$form->{defaults}{$_}}/ selected>$form->{accno}{$form->{defaults}{$_}}/ } + for (qw(IC IC_inventory IC_income IC_expense FX_gain FX_loss)) { + $form->{account}{$_} =~ +s/>$form->{accno}{$form->{defaults}{$_}}/ selected>$form->{accno}{$form->{defaults}{$_}}/; + } - for (qw(accno defaults)) { delete $form->{$_} } - - $form->{title} = $locale->text('System Defaults'); - - $form->header; - - print qq| + for (qw(accno defaults)) { delete $form->{$_} } + + $form->{title} = $locale->text('System Defaults'); + + $form->header; + + print qq| <body> <form method=post action=$form->{script}> @@ -1723,47 +1866,57 @@ sub defaults { <td> <table> <tr> - <th align="right">|.$locale->text('Business Number').qq|</th> + <th align="right">| . $locale->text('Business Number') . qq|</th> <td><input name=businessnumber size=25 value="$form->{businessnumber}"></td> </tr> <tr> - <th align="right">|.$locale->text('Weight Unit').qq|</th> + <th align="right">| . $locale->text('Weight Unit') . qq|</th> <td><input name=weightunit size=5 value="$form->{weightunit}"></td> </tr> </table> </td> </tr> <tr> - <th class="listheading">|.$locale->text('Last Numbers & Default Accounts').qq|</th> + <th class="listheading">| + . $locale->text('Last Numbers & Default Accounts') + . qq|</th> </tr> <tr> <td> <table> <tr> - <th align="right" nowrap>|.$locale->text('Inventory').qq|</th> + <th align="right" nowrap>| . $locale->text('Inventory') . qq|</th> <td><select name=IC>$form->{account}{IC}</select></td> </tr> <tr> - <th align="right" nowrap>|.$locale->text('Income').qq|</th> + <th align="right" nowrap>| . $locale->text('Income') . qq|</th> <td><select name=IC_income>$form->{account}{IC_income}</select></td> </tr> <tr> - <th align="right" nowrap>|.$locale->text('Expense').qq|</th> + <th align="right" nowrap>| . $locale->text('Expense') . qq|</th> <td><select name=IC_expense>$form->{account}{IC_expense}</select></td> </tr> <tr> - <th align="right" nowrap>|.$locale->text('Foreign Exchange Gain').qq|</th> + <th align="right" nowrap>| + . $locale->text('Foreign Exchange Gain') + . qq|</th> <td><select name=FX_gain>$form->{account}{FX_gain}</select></td> </tr> <tr> - <th align="right" nowrap>|.$locale->text('Foreign Exchange Loss').qq|</th> + <th align="right" nowrap>| + . $locale->text('Foreign Exchange Loss') + . qq|</th> <td><select name=FX_loss>$form->{account}{FX_loss}</select></td> </tr> </table> </td> </tr> <tr> - <th align=left>|.$locale->text('Enter up to 3 letters separated by a colon (i.e CAD:USD:EUR) for your native and foreign currencies').qq|</th> + <th align=left>| + . $locale->text( +'Enter up to 3 letters separated by a colon (i.e CAD:USD:EUR) for your native and foreign currencies' + ) + . qq|</th> </tr> <tr> <td> @@ -1774,51 +1927,59 @@ sub defaults { <td> <table> <tr> - <th align="right" nowrap>|.$locale->text('GL Reference Number').qq|</th> + <th align="right" nowrap>| . $locale->text('GL Reference Number') . qq|</th> <td><input name=glnumber size=40 value="$form->{glnumber}"></td> </tr> <tr> - <th align="right" nowrap>|.$locale->text('Sales Invoice/AR Transaction Number').qq|</th> + <th align="right" nowrap>| + . $locale->text('Sales Invoice/AR Transaction Number') + . qq|</th> <td><input name=sinumber size=40 value="$form->{sinumber}"></td> </tr> <tr> - <th align="right" nowrap>|.$locale->text('Sales Order Number').qq|</th> + <th align="right" nowrap>| . $locale->text('Sales Order Number') . qq|</th> <td><input name=sonumber size=40 value="$form->{sonumber}"></td> </tr> <tr> - <th align="right" nowrap>|.$locale->text('Vendor Invoice/AP Transaction Number').qq|</th> + <th align="right" nowrap>| + . $locale->text('Vendor Invoice/AP Transaction Number') + . qq|</th> <td><input name=vinumber size=40 value="$form->{vinumber}"></td> </tr> <tr> - <th align="right" nowrap>|.$locale->text('Purchase Order Number').qq|</th> + <th align="right" nowrap>| + . $locale->text('Purchase Order Number') + . qq|</th> <td><input name=ponumber size=40 value="$form->{ponumber}"></td> </tr> <tr> - <th align="right" nowrap>|.$locale->text('Sales Quotation Number').qq|</th> + <th align="right" nowrap>| + . $locale->text('Sales Quotation Number') + . qq|</th> <td><input name=sqnumber size=40 value="$form->{sqnumber}"></td> </tr> <tr> - <th align="right" nowrap>|.$locale->text('RFQ Number').qq|</th> + <th align="right" nowrap>| . $locale->text('RFQ Number') . qq|</th> <td><input name=rfqnumber size=40 value="$form->{rfqnumber}"></td> </tr> <tr> - <th align="right" nowrap>|.$locale->text('Part Number').qq|</th> + <th align="right" nowrap>| . $locale->text('Part Number') . qq|</th> <td><input name=partnumber size=40 value="$form->{partnumber}"></td> </tr> <tr> - <th align="right" nowrap>|.$locale->text('Job/Project Number').qq|</th> + <th align="right" nowrap>| . $locale->text('Job/Project Number') . qq|</th> <td><input name=projectnumber size=40 value="$form->{projectnumber}"></td> </tr> <tr> - <th align="right" nowrap>|.$locale->text('Employee Number').qq|</th> + <th align="right" nowrap>| . $locale->text('Employee Number') . qq|</th> <td><input name=employeenumber size=40 value="$form->{employeenumber}"></td> </tr> <tr> - <th align="right" nowrap>|.$locale->text('Customer Number').qq|</th> + <th align="right" nowrap>| . $locale->text('Customer Number') . qq|</th> <td><input name=customernumber size=40 value="$form->{customernumber}"></td> </tr> <tr> - <th align="right" nowrap>|.$locale->text('Vendor Number').qq|</th> + <th align="right" nowrap>| . $locale->text('Vendor Number') . qq|</th> <td><input name=vendornumber size=40 value="$form->{vendornumber}"></td> </tr> </table> @@ -1830,17 +1991,19 @@ sub defaults { </table> |; - $form->hide_form(qw(path login sessionid)); - - print qq| -<button type="submit" class="submit" name="action" value="save">|.$locale->text('Save').qq|</button>|; + $form->hide_form(qw(path login sessionid)); + + print qq| +<button type="submit" class="submit" name="action" value="save">| + . $locale->text('Save') + . qq|</button>|; - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } - print qq| + print qq| </form> </body> @@ -1849,37 +2012,36 @@ sub defaults { } - sub taxes { - - # get tax account numbers - AM->taxes(\%myconfig, \%$form); - - $i = 0; - foreach $ref (@{ $form->{taxrates} }) { - $i++; - $form->{"taxrate_$i"} = $form->format_amount(\%myconfig, $ref->{rate}); - $form->{"taxdescription_$i"} = $ref->{description}; - - for (qw(taxnumber validto pass taxmodulename)) { - $form->{"${_}_$i"} = $ref->{$_}; - } - $form->{taxaccounts} .= "$ref->{id}_$i "; - } - chop $form->{taxaccounts}; - - &display_taxes; -} + # get tax account numbers + AM->taxes( \%myconfig, \%$form ); + $i = 0; + foreach $ref ( @{ $form->{taxrates} } ) { + $i++; + $form->{"taxrate_$i"} = + $form->format_amount( \%myconfig, $ref->{rate} ); + $form->{"taxdescription_$i"} = $ref->{description}; + + for (qw(taxnumber validto pass taxmodulename)) { + $form->{"${_}_$i"} = $ref->{$_}; + } + $form->{taxaccounts} .= "$ref->{id}_$i "; + } + chop $form->{taxaccounts}; + + &display_taxes; + +} sub display_taxes { - - $form->{title} = $locale->text('Taxes'); - - $form->header; - - print qq| + + $form->{title} = $locale->text('Taxes'); + + $form->header; + + print qq| <body> <form method=post action=$form->{script}> @@ -1893,54 +2055,60 @@ sub display_taxes { <table> <tr> <th></th> - <th>|.$locale->text('Rate').qq| (%)</th> - <th>|.$locale->text('Number').qq|</th> - <th>|.$locale->text('Valid To').qq|</th> - <th>|.$locale->text('Ordering').qq|</th> - <th>|.$locale->text('Tax Rules').qq|</th> + <th>| . $locale->text('Rate') . qq| (%)</th> + <th>| . $locale->text('Number') . qq|</th> + <th>| . $locale->text('Valid To') . qq|</th> + <th>| . $locale->text('Ordering') . qq|</th> + <th>| . $locale->text('Tax Rules') . qq|</th> </tr> |; - for (split(/ /, $form->{taxaccounts})) { - - ($null, $i) = split /_/, $_; - - $form->{"taxrate_$i"} = $form->format_amount(\%myconfig, $form->{"taxrate_$i"}); - - $form->hide_form("taxdescription_$i"); - - print qq| + for ( split( / /, $form->{taxaccounts} ) ) { + + ( $null, $i ) = split /_/, $_; + + $form->{"taxrate_$i"} = + $form->format_amount( \%myconfig, $form->{"taxrate_$i"} ); + + $form->hide_form("taxdescription_$i"); + + print qq| <tr> <th align="right">|; - - if ($form->{"taxdescription_$i"} eq $sametax) { - print ""; - } else { - print qq|$form->{"taxdescription_$i"}|; - } - - print qq|</th> + + if ( $form->{"taxdescription_$i"} eq $sametax ) { + print ""; + } + else { + print qq|$form->{"taxdescription_$i"}|; + } + + print qq|</th> <td><input name="taxrate_$i" size=6 value=$form->{"taxrate_$i"}></td> <td><input name="taxnumber_$i" value="$form->{"taxnumber_$i"}"></td> <td><input name="validto_$i" size=11 value="$form->{"validto_$i"}" title="$myconfig{dateformat}"></td> <td><input name="pass_$i" size=6 value="$form->{"pass_$i"}"></td> <td><select name="taxmodule_id_$i" size=1>|; - foreach my $taxmodule (sort keys %$form) { - next if ($taxmodule !~ /^taxmodule_/); - next if ($taxmodule =~ /^taxmodule_id_/); - my $modulenum = $taxmodule; - $modulenum =~ s/^taxmodule_//; - print '<option label="'.$form->{$taxmodule}.'" value="'.$modulenum . '"'; - print " SELECTED " if $form->{$taxmodule} eq $form->{"taxmodulename_$i"}; - print ">".$form->{$taxmodule}."</option>\n"; - } - print qq|</select></td> + foreach my $taxmodule ( sort keys %$form ) { + next if ( $taxmodule !~ /^taxmodule_/ ); + next if ( $taxmodule =~ /^taxmodule_id_/ ); + my $modulenum = $taxmodule; + $modulenum =~ s/^taxmodule_//; + print '<option label="' + . $form->{$taxmodule} + . '" value="' + . $modulenum . '"'; + print " SELECTED " + if $form->{$taxmodule} eq $form->{"taxmodulename_$i"}; + print ">" . $form->{$taxmodule} . "</option>\n"; + } + print qq|</select></td> </tr> |; - $sametax = $form->{"taxdescription_$i"}; - - } + $sametax = $form->{"taxdescription_$i"}; - print qq| + } + + print qq| </table> </td> </tr> @@ -1950,23 +2118,27 @@ sub display_taxes { </table> |; - $form->hide_form(qw(taxaccounts path login sessionid)); - foreach my $taxmodule (sort keys %$form) { - next if ($taxmodule !~ /^taxmodule_/); - next if ($taxmodule =~ /^taxmodule_id_/); - $form->hide_form("$taxmodule"); - } - - print qq| -<button type="submit" class="submit" name="action" value="update">|.$locale->text('Update').qq|</button> -<button type="submit" class="submit" name="action" value="save_taxes">|.$locale->text('Save').qq|</button>|; + $form->hide_form(qw(taxaccounts path login sessionid)); + foreach my $taxmodule ( sort keys %$form ) { + next if ( $taxmodule !~ /^taxmodule_/ ); + next if ( $taxmodule =~ /^taxmodule_id_/ ); + $form->hide_form("$taxmodule"); + } - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + print qq| +<button type="submit" class="submit" name="action" value="update">| + . $locale->text('Update') + . qq|</button> +<button type="submit" class="submit" name="action" value="save_taxes">| + . $locale->text('Save') + . qq|</button>|; + + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } - print qq| + print qq| </form> </body> @@ -1975,119 +2147,146 @@ sub display_taxes { } - sub update { - @a = split / /, $form->{taxaccounts}; - $ndx = $#a + 1; - - foreach $item (@a) { - ($accno, $i) = split /_/, $item; - push @t, $accno; - $form->{"taxmodulename_$i"} = $form->{"taxmodule_".$form->{"taxmodule_id_$i"}}; - - if ($form->{"validto_$i"}) { - $j = $i + 1; - if ($form->{"taxdescription_$i"} ne $form->{"taxdescription_$j"}) { - #insert line - for ($j = $ndx + 1; $j > $i; $j--) { - $k = $j - 1; - for (qw(taxrate taxdescription taxnumber validto)) { $form->{"${_}_$j"} = $form->{"${_}_$k"} } - } - $ndx++; - $k = $i + 1; - for (qw(taxdescription taxnumber)) { $form->{"${_}_$k"} = $form->{"${_}_$i"} } - for (qw(taxrate validto)) { $form->{"${_}_$k"} = "" } - push @t, $accno; - } - } else { - # remove line - $j = $i + 1; - if ($form->{"taxdescription_$i"} eq $form->{"taxdescription_$j"}) { - for ($j = $i + 1; $j <= $ndx; $j++) { - $k = $j + 1; - for (qw(taxrate taxdescription taxnumber validto)) { $form->{"${_}_$j"} = $form->{"${_}_$k"} } - } - $ndx--; - splice @t, $i-1, 1; - } - } - - } - - $i = 1; - $form->{taxaccounts} = ""; - for (@t) { - $form->{taxaccounts} .= "${_}_$i "; - $i++; - } - chop $form->{taxaccounts}; - - &display_taxes; - -} + @a = split / /, $form->{taxaccounts}; + $ndx = $#a + 1; + + foreach $item (@a) { + ( $accno, $i ) = split /_/, $item; + push @t, $accno; + $form->{"taxmodulename_$i"} = + $form->{ "taxmodule_" . $form->{"taxmodule_id_$i"} }; + + if ( $form->{"validto_$i"} ) { + $j = $i + 1; + if ( $form->{"taxdescription_$i"} ne $form->{"taxdescription_$j"} ) + { + + #insert line + for ( $j = $ndx + 1 ; $j > $i ; $j-- ) { + $k = $j - 1; + for (qw(taxrate taxdescription taxnumber validto)) { + $form->{"${_}_$j"} = $form->{"${_}_$k"}; + } + } + $ndx++; + $k = $i + 1; + for (qw(taxdescription taxnumber)) { + $form->{"${_}_$k"} = $form->{"${_}_$i"}; + } + for (qw(taxrate validto)) { $form->{"${_}_$k"} = "" } + push @t, $accno; + } + } + else { + + # remove line + $j = $i + 1; + if ( $form->{"taxdescription_$i"} eq $form->{"taxdescription_$j"} ) + { + for ( $j = $i + 1 ; $j <= $ndx ; $j++ ) { + $k = $j + 1; + for (qw(taxrate taxdescription taxnumber validto)) { + $form->{"${_}_$j"} = $form->{"${_}_$k"}; + } + } + $ndx--; + splice @t, $i - 1, 1; + } + } + } + $i = 1; + $form->{taxaccounts} = ""; + for (@t) { + $form->{taxaccounts} .= "${_}_$i "; + $i++; + } + chop $form->{taxaccounts}; -sub config { + &display_taxes; - foreach $item (qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd)) { - $dateformat .= ($item eq $myconfig{dateformat}) ? "<option selected>$item\n" : "<option>$item\n"; - } +} - my @formats = qw(1,000.00 1000.00 1.000,00 1000,00 1'000.00); - push @formats, '1 000.00'; - foreach $item (@formats) { - $numberformat .= ($item eq $myconfig{numberformat}) ? "<option selected>$item\n" : "<option>$item\n"; - } +sub config { - for (qw(name company address signature)) { $myconfig{$_} = $form->quote($myconfig{$_}) } - for (qw(address signature)) { $myconfig{$_} =~ s/\\n/\n/g } + foreach $item (qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd)) + { + $dateformat .= + ( $item eq $myconfig{dateformat} ) + ? "<option selected>$item\n" + : "<option>$item\n"; + } - %countrycodes = LedgerSMB::User->country_codes; - $countrycodes = ''; - my $selectedcode = ($myconfig{countrycode}) ? $myconfig{countrycode} : 'en'; - - foreach $key (sort { $countrycodes{$a} cmp $countrycodes{$b} } keys %countrycodes) { - $countrycodes .= ($selectedcode eq $key) ? "<option selected value=$key>$countrycodes{$key}\n" : "<option value=$key>$countrycodes{$key}\n"; - } - - opendir CSS, "css/."; - @all = grep /.*\.css$/, readdir CSS; - closedir CSS; - - foreach $item (@all) { - if ($item eq $myconfig{stylesheet}) { - $selectstylesheet .= qq|<option selected>$item\n|; - } else { - $selectstylesheet .= qq|<option>$item\n|; - } - } - $selectstylesheet .= "<option>\n"; - - if (%{LedgerSMB::Sysconfig::printer} && ${LedgerSMB::Sysconfig::latex}) { - $selectprinter = "<option>\n"; - foreach $item (sort keys %{LedgerSMB::Sysconfig::printer}) { - if ($myconfig{printer} eq $item) { - $selectprinter .= qq|<option value="$item" selected>$item\n|; - } else { - $selectprinter .= qq|<option value="$item">$item\n|; - } + my @formats = qw(1,000.00 1000.00 1.000,00 1000,00 1'000.00); + push @formats, '1 000.00'; + foreach $item (@formats) { + $numberformat .= + ( $item eq $myconfig{numberformat} ) + ? "<option selected>$item\n" + : "<option>$item\n"; } - $printer = qq| + for (qw(name company address signature)) { + $myconfig{$_} = $form->quote( $myconfig{$_} ); + } + for (qw(address signature)) { $myconfig{$_} =~ s/\\n/\n/g } + + %countrycodes = LedgerSMB::User->country_codes; + $countrycodes = ''; + my $selectedcode = + ( $myconfig{countrycode} ) ? $myconfig{countrycode} : 'en'; + + foreach $key ( sort { $countrycodes{$a} cmp $countrycodes{$b} } + keys %countrycodes ) + { + $countrycodes .= + ( $selectedcode eq $key ) + ? "<option selected value=$key>$countrycodes{$key}\n" + : "<option value=$key>$countrycodes{$key}\n"; + } + + opendir CSS, "css/."; + @all = grep /.*\.css$/, readdir CSS; + closedir CSS; + + foreach $item (@all) { + if ( $item eq $myconfig{stylesheet} ) { + $selectstylesheet .= qq|<option selected>$item\n|; + } + else { + $selectstylesheet .= qq|<option>$item\n|; + } + } + $selectstylesheet .= "<option>\n"; + + if ( %{LedgerSMB::Sysconfig::printer} && ${LedgerSMB::Sysconfig::latex} ) { + $selectprinter = "<option>\n"; + foreach $item ( sort keys %{LedgerSMB::Sysconfig::printer} ) { + if ( $myconfig{printer} eq $item ) { + $selectprinter .= qq|<option value="$item" selected>$item\n|; + } + else { + $selectprinter .= qq|<option value="$item">$item\n|; + } + } + + $printer = qq| <tr> - <th align="right">|.$locale->text('Printer').qq|</th> + <th align="right">| . $locale->text('Printer') . qq|</th> <td><select name=printer>$selectprinter</select></td> </tr> |; - } - - $form->{title} = $locale->text('Edit Preferences for [_1]', $form->{login}); - - $form->header; + } + + $form->{title} = + $locale->text( 'Edit Preferences for [_1]', $form->{login} ); - print qq| + $form->header; + + print qq| <body> <form method=post action=$form->{script}> @@ -2105,31 +2304,31 @@ sub config { <td> <table> <tr> - <th align="right">|.$locale->text('Name').qq|</th> + <th align="right">| . $locale->text('Name') . qq|</th> <td><input name=name size=20 value="$myconfig{name}"></td> </tr> <tr> - <th align="right">|.$locale->text('E-mail').qq|</th> + <th align="right">| . $locale->text('E-mail') . qq|</th> <td><input name=email size=35 value="$myconfig{email}"></td> </tr> <tr valign=top> - <th align="right">|.$locale->text('Signature').qq|</th> + <th align="right">| . $locale->text('Signature') . qq|</th> <td><textarea name=signature rows=3 cols=35>$myconfig{signature}</textarea></td> </tr> <tr> - <th align="right">|.$locale->text('Phone').qq|</th> + <th align="right">| . $locale->text('Phone') . qq|</th> <td><input name=tel size=14 value="$myconfig{tel}"></td> </tr> <tr> - <th align="right">|.$locale->text('Fax').qq|</th> + <th align="right">| . $locale->text('Fax') . qq|</th> <td><input name=fax size=14 value="$myconfig{fax}"></td> </tr> <tr> - <th align="right">|.$locale->text('Company').qq|</th> + <th align="right">| . $locale->text('Company') . qq|</th> <td><input name=company size=35 value="$myconfig{company}"></td> </tr> <tr valign=top> - <th align="right">|.$locale->text('Address').qq|</th> + <th align="right">| . $locale->text('Address') . qq|</th> <td><textarea name=address rows=4 cols=35>$myconfig{address}</textarea></td> </tr> </table> @@ -2137,39 +2336,39 @@ sub config { <td> <table> <tr> - <th align="right">|.$locale->text('Password').qq|</th> + <th align="right">| . $locale->text('Password') . qq|</th> <td><input type=password name=new_password size=10 value=$myconfig{password}></td> </tr> <tr> - <th align="right">|.$locale->text('Confirm').qq|</th> + <th align="right">| . $locale->text('Confirm') . qq|</th> <td><input type=password name=confirm_password size=10></td> </tr> <tr> - <th align="right">|.$locale->text('Date Format').qq|</th> + <th align="right">| . $locale->text('Date Format') . qq|</th> <td><select name=dateformat>$dateformat</select></td> </tr> <tr> - <th align="right">|.$locale->text('Number Format').qq|</th> + <th align="right">| . $locale->text('Number Format') . qq|</th> <td><select name=numberformat>$numberformat</select></td> </tr> <tr> - <th align="right">|.$locale->text('Dropdown Limit').qq|</th> + <th align="right">| . $locale->text('Dropdown Limit') . qq|</th> <td><input name=vclimit size=10 value="$myconfig{vclimit}"></td> </tr> <tr> - <th align="right">|.$locale->text('Menu Width').qq|</th> + <th align="right">| . $locale->text('Menu Width') . qq|</th> <td><input name=menuwidth size=10 value="$myconfig{menuwidth}"></td> </tr> <tr> - <th align="right">|.$locale->text('Language').qq|</th> + <th align="right">| . $locale->text('Language') . qq|</th> <td><select name=countrycode>$countrycodes</select></td> </tr> <tr> - <th align="right">|.$locale->text('Session Timeout').qq|</th> + <th align="right">| . $locale->text('Session Timeout') . qq|</th> <td><input name=timeout size=10 value="$myconfig{timeout}"></td> </tr> <tr> - <th align="right">|.$locale->text('Stylesheet').qq|</th> + <th align="right">| . $locale->text('Stylesheet') . qq|</th> <td><select name=usestylesheet>$selectstylesheet</select></td> </tr> $printer @@ -2184,17 +2383,19 @@ sub config { </table> |; - $form->hide_form(qw(path login sessionid)); - - print qq| -<button type="submit" class="submit" name="action" value="save">|.$locale->text('Save').qq|</button>|; + $form->hide_form(qw(path login sessionid)); - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + print qq| +<button type="submit" class="submit" name="action" value="save">| + . $locale->text('Save') + . qq|</button>|; - print qq| + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } + + print qq| </form> </body> @@ -2203,84 +2404,91 @@ sub config { } - sub save_defaults { - if (AM->save_defaults(\%myconfig, \%$form)) { - $form->redirect($locale->text('Defaults saved!')); - } else { - $form->error($locale->text('Cannot save defaults!')); - } + if ( AM->save_defaults( \%myconfig, \%$form ) ) { + $form->redirect( $locale->text('Defaults saved!') ); + } + else { + $form->error( $locale->text('Cannot save defaults!') ); + } } - sub save_taxes { - if (AM->save_taxes(\%myconfig, \%$form)) { - $form->redirect($locale->text('Taxes saved!')); - } else { - $form->error($locale->text('Cannot save taxes!')); - } + if ( AM->save_taxes( \%myconfig, \%$form ) ) { + $form->redirect( $locale->text('Taxes saved!') ); + } + else { + $form->error( $locale->text('Cannot save taxes!') ); + } } - sub save_preferences { - $form->{stylesheet} = $form->{usestylesheet}; + $form->{stylesheet} = $form->{usestylesheet}; - if ($form->{new_password} ne $form->{old_password}) { - $form->error($locale->text('Password does not match!')) if $form->{new_password} ne $form->{confirm_password}; - } + if ( $form->{new_password} ne $form->{old_password} ) { + $form->error( $locale->text('Password does not match!') ) + if $form->{new_password} ne $form->{confirm_password}; + } - if (AM->save_preferences(\%myconfig, \%$form)) { - $form->info($locale->text('Preferences saved!')); - } else { - $form->error($locale->text('Cannot save preferences!')); - } + if ( AM->save_preferences( \%myconfig, \%$form ) ) { + $form->info( $locale->text('Preferences saved!') ); + } + else { + $form->error( $locale->text('Cannot save preferences!') ); + } } - sub backup { - if ($form->{media} eq 'email') { - $form->error($locale->text('No email address for [_1]', $myconfig{name})) unless ($myconfig{email}); - } + if ( $form->{media} eq 'email' ) { + $form->error( + $locale->text( 'No email address for [_1]', $myconfig{name} ) ) + unless ( $myconfig{email} ); + } - $SIG{INT} = 'IGNORE'; - AM->backup(\%myconfig, \%$form, ${LedgerSMB::Sysconfig::userspath}, ${LedgerSMB::Sysconfig::gzip}); + $SIG{INT} = 'IGNORE'; + AM->backup( + \%myconfig, \%$form, + ${LedgerSMB::Sysconfig::userspath}, + ${LedgerSMB::Sysconfig::gzip} + ); - if ($form->{media} eq 'email') { - $form->redirect($locale->text('Backup sent to [_1]', $myconfig{email})); - } + if ( $form->{media} eq 'email' ) { + $form->redirect( + $locale->text( 'Backup sent to [_1]', $myconfig{email} ) ); + } } +sub audit_control { + $form->{title} = $locale->text('Audit Control'); -sub audit_control { + AM->closedto( \%myconfig, \%$form ); - $form->{title} = $locale->text('Audit Control'); + if ( $form->{revtrans} ) { + $checked{revtransY} = "checked"; + } + else { + $checked{revtransN} = "checked"; + } - AM->closedto(\%myconfig, \%$form); - - if ($form->{revtrans}) { - $checked{revtransY} = "checked"; - } else { - $checked{revtransN} = "checked"; - } - - if ($form->{audittrail}) { - $checked{audittrailY} = "checked"; - } else { - $checked{audittrailN} = "checked"; - } - - $form->header; - - print qq| + if ( $form->{audittrail} ) { + $checked{audittrailY} = "checked"; + } + else { + $checked{audittrailN} = "checked"; + } + + $form->header; + + print qq| <body> <form method=post action=$form->{script}> @@ -2296,19 +2504,29 @@ sub audit_control { <td> <table> <tr> - <th align="right">|.$locale->text('Enforce transaction reversal for all dates').qq|</th> - <td><input name=revtrans class=radio type=radio value="1" $checked{revtransY}> |.$locale->text('Yes').qq| <input name=revtrans class=radio type=radio value="0" $checked{revtransN}> |.$locale->text('No').qq|</td> + <th align="right">| + . $locale->text('Enforce transaction reversal for all dates') + . qq|</th> + <td><input name=revtrans class=radio type=radio value="1" $checked{revtransY}> | + . $locale->text('Yes') + . qq| <input name=revtrans class=radio type=radio value="0" $checked{revtransN}> | + . $locale->text('No') + . qq|</td> </tr> <tr> - <th align="right">|.$locale->text('Close Books up to').qq|</th> + <th align="right">| . $locale->text('Close Books up to') . qq|</th> <td><input name=closedto size=11 title="$myconfig{dateformat}" value=$form->{closedto}></td> </tr> <tr> - <th align="right">|.$locale->text('Activate Audit trail').qq|</th> - <td><input name=audittrail class=radio type=radio value="1" $checked{audittrailY}> |.$locale->text('Yes').qq| <input name=audittrail class=radio type=radio value="0" $checked{audittrailN}> |.$locale->text('No').qq|</td> + <th align="right">| . $locale->text('Activate Audit trail') . qq|</th> + <td><input name=audittrail class=radio type=radio value="1" $checked{audittrailY}> | + . $locale->text('Yes') + . qq| <input name=audittrail class=radio type=radio value="0" $checked{audittrailN}> | + . $locale->text('No') + . qq|</td> </tr> <tr> - <th align="right">|.$locale->text('Remove Audit trail up to').qq|</th> + <th align="right">| . $locale->text('Remove Audit trail up to') . qq|</th> <td><input name=removeaudittrail size=11 title="$myconfig{dateformat}"></td> </tr> </table> @@ -2321,7 +2539,9 @@ sub audit_control { <br> <input type=hidden name=nextsub value=doclose> <input type=hidden name=action value=continue> -<button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button> +<button type="submit" class="submit" name="action" value="continue">| + . $locale->text('Continue') + . qq|</button> </form> @@ -2331,86 +2551,94 @@ sub audit_control { } - sub doclose { - AM->closebooks(\%myconfig, \%$form); - - if ($form->{revtrans}) { - $msg = $locale->text('Transaction reversal enforced for all dates'); - } else { - - if ($form->{closedto}) { - $msg = $locale->text('Transaction reversal enforced up to') - ." ".$locale->date(\%myconfig, $form->{closedto}, 1); - } else { - $msg = $locale->text('Books are open'); - } - } - - $msg .= "<p>"; - if ($form->{audittrail}) { - $msg .= $locale->text('Audit trail enabled'); - } else { - $msg .= $locale->text('Audit trail disabled'); - } - - $msg .= "<p>"; - if ($form->{removeaudittrail}) { - $msg .= $locale->text('Audit trail removed up to') - ." ".$locale->date(\%myconfig, $form->{removeaudittrail}, 1); - } - - $form->redirect($msg); - -} + AM->closebooks( \%myconfig, \%$form ); + if ( $form->{revtrans} ) { + $msg = $locale->text('Transaction reversal enforced for all dates'); + } + else { + + if ( $form->{closedto} ) { + $msg = + $locale->text('Transaction reversal enforced up to') . " " + . $locale->date( \%myconfig, $form->{closedto}, 1 ); + } + else { + $msg = $locale->text('Books are open'); + } + } -sub add_warehouse { + $msg .= "<p>"; + if ( $form->{audittrail} ) { + $msg .= $locale->text('Audit trail enabled'); + } + else { + $msg .= $locale->text('Audit trail disabled'); + } - $form->{title} = "Add"; - - $form->{callback} = "$form->{script}?action=add_warehouse&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + $msg .= "<p>"; + if ( $form->{removeaudittrail} ) { + $msg .= + $locale->text('Audit trail removed up to') . " " + . $locale->date( \%myconfig, $form->{removeaudittrail}, 1 ); + } - &warehouse_header; - &form_footer; + $form->redirect($msg); } +sub add_warehouse { + + $form->{title} = "Add"; + + $form->{callback} = +"$form->{script}?action=add_warehouse&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" + unless $form->{callback}; + + &warehouse_header; + &form_footer; + +} sub edit_warehouse { - $form->{title} = "Edit"; + $form->{title} = "Edit"; - AM->get_warehouse(\%myconfig, \%$form); + AM->get_warehouse( \%myconfig, \%$form ); - &warehouse_header; - &form_footer; + &warehouse_header; + &form_footer; } - sub list_warehouse { - AM->warehouses(\%myconfig, \%$form); + AM->warehouses( \%myconfig, \%$form ); - $href = "$form->{script}?action=list_warehouse&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + $href = +"$form->{script}?action=list_warehouse&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - $form->sort_order(); - - $form->{callback} = "$form->{script}?action=list_warehouse&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + $form->sort_order(); - $callback = $form->escape($form->{callback}); - - $form->{title} = $locale->text('Warehouses'); + $form->{callback} = +"$form->{script}?action=list_warehouse&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $callback = $form->escape( $form->{callback} ); + + $form->{title} = $locale->text('Warehouses'); - @column_index = qw(description); + @column_index = qw(description); - $column_header{description} = qq|<th width=100%><a class="listheading" href=$href>|.$locale->text('Description').qq|</a></th>|; + $column_header{description} = + qq|<th width=100%><a class="listheading" href=$href>| + . $locale->text('Description') + . qq|</a></th>|; - $form->header; + $form->header; - print qq| + print qq| <body> <table width=100%> @@ -2424,30 +2652,32 @@ sub list_warehouse { <tr class="listheading"> |; - for (@column_index) { print "$column_header{$_}\n" } + for (@column_index) { print "$column_header{$_}\n" } - print qq| + print qq| </tr> |; - foreach $ref (@{ $form->{ALL} }) { - - $i++; $i %= 2; - - print qq| + foreach $ref ( @{ $form->{ALL} } ) { + + $i++; + $i %= 2; + + print qq| <tr valign=top class=listrow$i> |; - $column_data{description} = qq|<td><a href=$form->{script}?action=edit_warehouse&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}</td>|; + $column_data{description} = +qq|<td><a href=$form->{script}?action=edit_warehouse&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}</td>|; - for (@column_index) { print "$column_data{$_}\n" } + for (@column_index) { print "$column_data{$_}\n" } - print qq| + print qq| </tr> |; - } + } - print qq| + print qq| </table> </td> </tr> @@ -2460,48 +2690,50 @@ sub list_warehouse { <form method=post action=$form->{script}> |; - $form->{type} = "warehouse"; + $form->{type} = "warehouse"; - $form->hide_form(qw(type callback path login sessionid)); - - print qq| -<button class="submit" type="submit" name="action" value="add_warehouse">|.$locale->text('Add Warehouse').qq|</button>|; + $form->hide_form(qw(type callback path login sessionid)); - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + print qq| +<button class="submit" type="submit" name="action" value="add_warehouse">| + . $locale->text('Add Warehouse') + . qq|</button>|; - print qq| + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } + + print qq| </form> </body> </html> |; - -} - +} sub warehouse_header { - $form->{title} = $locale->text("$form->{title} Warehouse"); + $form->{title} = $locale->text("$form->{title} Warehouse"); -# $locale->text('Add Warehouse') -# $locale->text('Edit Warehouse') + # $locale->text('Add Warehouse') + # $locale->text('Edit Warehouse') - $form->{description} = $form->quote($form->{description}); + $form->{description} = $form->quote( $form->{description} ); - if (($rows = $form->numtextrows($form->{description}, 60)) > 1) { - $description = qq|<textarea name="description" rows=$rows cols=60 wrap=soft>$form->{description}</textarea>|; - } else { - $description = qq|<input name=description size=60 value="$form->{description}">|; - } + if ( ( $rows = $form->numtextrows( $form->{description}, 60 ) ) > 1 ) { + $description = +qq|<textarea name="description" rows=$rows cols=60 wrap=soft>$form->{description}</textarea>|; + } + else { + $description = + qq|<input name=description size=60 value="$form->{description}">|; + } - - $form->header; + $form->header; - print qq| + print qq| <body> <form method=post action=$form->{script}> @@ -2515,7 +2747,7 @@ sub warehouse_header { </tr> <tr height="5"></tr> <tr> - <th align="right">|.$locale->text('Description').qq|</th> + <th align="right">| . $locale->text('Description') . qq|</th> <td>$description</td> </tr> <tr> @@ -2526,34 +2758,33 @@ sub warehouse_header { } - sub save_warehouse { - $form->isblank("description", $locale->text('Description missing!')); - AM->save_warehouse(\%myconfig, \%$form); - $form->redirect($locale->text('Warehouse saved!')); + $form->isblank( "description", $locale->text('Description missing!') ); + AM->save_warehouse( \%myconfig, \%$form ); + $form->redirect( $locale->text('Warehouse saved!') ); } - sub delete_warehouse { - AM->delete_warehouse(\%myconfig, \%$form); - $form->redirect($locale->text('Warehouse deleted!')); + AM->delete_warehouse( \%myconfig, \%$form ); + $form->redirect( $locale->text('Warehouse deleted!') ); } - sub yearend { - AM->earningsaccounts(\%myconfig, \%$form); - $chart = ""; - for (@{ $form->{chart} }) { $chart .= "<option>$_->{accno}--$_->{description}" } - - $form->{title} = $locale->text('Yearend'); - $form->header; - - print qq| + AM->earningsaccounts( \%myconfig, \%$form ); + $chart = ""; + for ( @{ $form->{chart} } ) { + $chart .= "<option>$_->{accno}--$_->{description}"; + } + + $form->{title} = $locale->text('Yearend'); + $form->header; + + print qq| <body> <form method=post action=$form->{script}> @@ -2570,24 +2801,30 @@ sub yearend { <td> <table> <tr> - <th align="right">|.$locale->text('Yearend').qq|</th> + <th align="right">| . $locale->text('Yearend') . qq|</th> <td><input name=todate size=11 title="$myconfig{dateformat}" value=$todate></td> </tr> <tr> - <th align="right">|.$locale->text('Reference').qq|</th> - <td><input name=reference size=20 value="|.$locale->text('Yearend').qq|"></td> + <th align="right">| . $locale->text('Reference') . qq|</th> + <td><input name=reference size=20 value="| + . $locale->text('Yearend') + . qq|"></td> </tr> <tr> - <th align="right">|.$locale->text('Description').qq|</th> + <th align="right">| . $locale->text('Description') . qq|</th> <td><textarea name=description rows=3 cols=50 wrap=soft></textarea></td> </tr> <tr> - <th align="right">|.$locale->text('Retained Earnings').qq|</th> + <th align="right">| . $locale->text('Retained Earnings') . qq|</th> <td><select name=accno>$chart</select></td> </tr> <tr> - <th align="right">|.$locale->text('Method').qq|</th> - <td><input name=method class=radio type=radio value=accrual checked> |.$locale->text('Accrual').qq| <input name=method class=radio type=radio value=cash> |.$locale->text('Cash').qq|</td> + <th align="right">| . $locale->text('Method') . qq|</th> + <td><input name=method class=radio type=radio value=accrual checked> | + . $locale->text('Accrual') + . qq| <input name=method class=radio type=radio value=cash> | + . $locale->text('Cash') + . qq|</td> </tr> </table> </td> @@ -2599,79 +2836,81 @@ sub yearend { <input type=hidden name=nextsub value=generate_yearend> |; - $form->hide_form(qw(path login sessionid)); - - print qq| -<button class="submit" type="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>|; + $form->hide_form(qw(path login sessionid)); -} + print qq| +<button class="submit" type="submit" name="action" value="continue">| + . $locale->text('Continue') + . qq|</button>|; +} sub generate_yearend { - $form->isblank("todate", $locale->text('Yearend date missing!')); + $form->isblank( "todate", $locale->text('Yearend date missing!') ); - RP->yearend_statement(\%myconfig, \%$form); - - $form->{transdate} = $form->{todate}; + RP->yearend_statement( \%myconfig, \%$form ); - $earnings = 0; - - $form->{rowcount} = 1; - foreach $key (keys %{ $form->{I} }) { - if ($form->{I}{$key}{charttype} eq "A") { - $form->{"debit_$form->{rowcount}"} = $form->{I}{$key}{this}; - $earnings += $form->{I}{$key}{this}; - $form->{"accno_$form->{rowcount}"} = $key; - $form->{rowcount}++; - $ok = 1; - } - } - - foreach $key (keys %{ $form->{E} }) { - if ($form->{E}{$key}{charttype} eq "A") { - $form->{"credit_$form->{rowcount}"} = $form->{E}{$key}{this} * -1; - $earnings += $form->{E}{$key}{this}; - $form->{"accno_$form->{rowcount}"} = $key; - $form->{rowcount}++; - $ok = 1; - } - } - if ($earnings > 0) { - $form->{"credit_$form->{rowcount}"} = $earnings; - $form->{"accno_$form->{rowcount}"} = $form->{accno} - } else { - $form->{"debit_$form->{rowcount}"} = $earnings * -1; - $form->{"accno_$form->{rowcount}"} = $form->{accno} - } - - if ($ok) { - if (AM->post_yearend(\%myconfig, \%$form)) { - $form->redirect($locale->text('Yearend posted!')); - } else { - $form->error($locale->text('Yearend posting failed!')); - } - } else { - $form->error('Nothing to do!'); - } - -} + $form->{transdate} = $form->{todate}; + + $earnings = 0; + + $form->{rowcount} = 1; + foreach $key ( keys %{ $form->{I} } ) { + if ( $form->{I}{$key}{charttype} eq "A" ) { + $form->{"debit_$form->{rowcount}"} = $form->{I}{$key}{this}; + $earnings += $form->{I}{$key}{this}; + $form->{"accno_$form->{rowcount}"} = $key; + $form->{rowcount}++; + $ok = 1; + } + } + + foreach $key ( keys %{ $form->{E} } ) { + if ( $form->{E}{$key}{charttype} eq "A" ) { + $form->{"credit_$form->{rowcount}"} = $form->{E}{$key}{this} * -1; + $earnings += $form->{E}{$key}{this}; + $form->{"accno_$form->{rowcount}"} = $key; + $form->{rowcount}++; + $ok = 1; + } + } + if ( $earnings > 0 ) { + $form->{"credit_$form->{rowcount}"} = $earnings; + $form->{"accno_$form->{rowcount}"} = $form->{accno}; + } + else { + $form->{"debit_$form->{rowcount}"} = $earnings * -1; + $form->{"accno_$form->{rowcount}"} = $form->{accno}; + } + if ($ok) { + if ( AM->post_yearend( \%myconfig, \%$form ) ) { + $form->redirect( $locale->text('Yearend posted!') ); + } + else { + $form->error( $locale->text('Yearend posting failed!') ); + } + } + else { + $form->error('Nothing to do!'); + } +} sub company_logo { - - $myconfig{address} =~ s/\\n/<br>/g; - $myconfig{dbhost} = $locale->text('localhost') unless $myconfig{dbhost}; - $form->{stylesheet} = $myconfig{stylesheet}; + $myconfig{address} =~ s/\\n/<br>/g; + $myconfig{dbhost} = $locale->text('localhost') unless $myconfig{dbhost}; - $form->{title} = $locale->text('About'); - - # create the logo screen - $form->header; + $form->{stylesheet} = $myconfig{stylesheet}; + + $form->{title} = $locale->text('About'); + + # create the logo screen + $form->header; - print qq| + print qq| <body> <pre> @@ -2679,7 +2918,7 @@ sub company_logo { </pre> <center> <a href="http://www.ledgersmb.org/" target="_blank"><img src="images/ledgersmb.png" width="200" height="100" border="0" alt="LedgerSMB Logo" /></a> -<h1 class="login">|.$locale->text('Version').qq| $form->{version}</h1> +<h1 class="login">| . $locale->text('Version') . qq| $form->{version}</h1> <p> |.$locale->text('Company').qq| : @@ -2692,15 +2931,15 @@ $myconfig{company} <p> <table border=0> <tr> - <th align="right">|.$locale->text('User').qq|</th> + <th align="right">| . $locale->text('User') . qq|</th> <td>$myconfig{name}</td> </tr> <tr> - <th align="right">|.$locale->text('Dataset').qq|</th> + <th align="right">| . $locale->text('Dataset') . qq|</th> <td>$myconfig{dbname}</td> </tr> <tr> - <th align="right">|.$locale->text('Database Host').qq|</th> + <th align="right">| . $locale->text('Database Host') . qq|</th> <td>$myconfig{dbhost}</td> </tr> </table> @@ -2713,52 +2952,70 @@ $myconfig{company} } - sub recurring_transactions { -# $locale->text('Day') -# $locale->text('Days') -# $locale->text('Month') -# $locale->text('Months') -# $locale->text('Week') -# $locale->text('Weeks') -# $locale->text('Year') -# $locale->text('Years') + # $locale->text('Day') + # $locale->text('Days') + # $locale->text('Month') + # $locale->text('Months') + # $locale->text('Week') + # $locale->text('Weeks') + # $locale->text('Year') + # $locale->text('Years') - $form->{stylesheet} = $myconfig{stylesheet}; + $form->{stylesheet} = $myconfig{stylesheet}; - $form->{title} = $locale->text('Recurring Transactions'); + $form->{title} = $locale->text('Recurring Transactions'); - $column_header{id} = ""; + $column_header{id} = ""; - AM->recurring_transactions(\%myconfig, \%$form); + AM->recurring_transactions( \%myconfig, \%$form ); - $href = "$form->{script}?action=recurring_transactions"; - for (qw(direction oldsort path login sessionid)) { $href .= qq|&$_=$form->{$_}| } - - $form->sort_order(); - - # create the logo screen - $form->header; + $href = "$form->{script}?action=recurring_transactions"; + for (qw(direction oldsort path login sessionid)) { + $href .= qq|&$_=$form->{$_}|; + } - @column_index = qw(ndx reference description); - - push @column_index, qw(nextdate enddate id amount curr repeat howmany recurringemail recurringprint); - - $column_header{reference} = qq|<th><a class="listheading" href="$href&sort=reference">|.$locale->text('Reference').q|</a></th>|; - $column_header{ndx} = q|<th class="listheading"> </th>|; - $column_header{id} = q|<th class="listheading">|.$locale->text('ID').q|</th>|; - $column_header{description} = q|<th class="listheading">|.$locale->text('Description').q|</th>|; - $column_header{nextdate} = qq|<th><a class="listheading" href="$href&sort=nextdate">|.$locale->text('Next').q|</a></th>|; - $column_header{enddate} = qq|<th><a class="listheading" href="$href&sort=enddate">|.$locale->text('Ends').q|</a></th>|; - $column_header{amount} = q|<th class="listheading">|.$locale->text('Amount').q|</th>|; - $column_header{curr} = q|<th class="listheading"> </th>|; - $column_header{repeat} = q|<th class="listheading">|.$locale->text('Every').q|</th>|; - $column_header{howmany} = q|<th class="listheading">|.$locale->text('Times').q|</th>|; - $column_header{recurringemail} = q|<th class="listheading">|.$locale->text('E-mail').q|</th>|; - $column_header{recurringprint} = q|<th class="listheading">|.$locale->text('Print').q|</th>|; - -print qq| + $form->sort_order(); + + # create the logo screen + $form->header; + + @column_index = qw(ndx reference description); + + push @column_index, + qw(nextdate enddate id amount curr repeat howmany recurringemail recurringprint); + + $column_header{reference} = + qq|<th><a class="listheading" href="$href&sort=reference">| + . $locale->text('Reference') + . q|</a></th>|; + $column_header{ndx} = q|<th class="listheading"> </th>|; + $column_header{id} = + q|<th class="listheading">| . $locale->text('ID') . q|</th>|; + $column_header{description} = + q|<th class="listheading">| . $locale->text('Description') . q|</th>|; + $column_header{nextdate} = + qq|<th><a class="listheading" href="$href&sort=nextdate">| + . $locale->text('Next') + . q|</a></th>|; + $column_header{enddate} = + qq|<th><a class="listheading" href="$href&sort=enddate">| + . $locale->text('Ends') + . q|</a></th>|; + $column_header{amount} = + q|<th class="listheading">| . $locale->text('Amount') . q|</th>|; + $column_header{curr} = q|<th class="listheading"> </th>|; + $column_header{repeat} = + q|<th class="listheading">| . $locale->text('Every') . q|</th>|; + $column_header{howmany} = + q|<th class="listheading">| . $locale->text('Times') . q|</th>|; + $column_header{recurringemail} = + q|<th class="listheading">| . $locale->text('E-mail') . q|</th>|; + $column_header{recurringprint} = + q|<th class="listheading">| . $locale->text('Print') . q|</th>|; + + print qq| <body> <form method=post action=$form->{script}> @@ -2774,100 +3031,122 @@ print qq| <tr class="listheading"> |; - for (@column_index) { print "\n$column_header{$_}" } + for (@column_index) { print "\n$column_header{$_}" } - print qq| + print qq| </tr> |; - $i = 1; - $colspan = $#column_index + 1; + $i = 1; + $colspan = $#column_index + 1; - %tr = ( ar => $locale->text('AR'), - ap => $locale->text('AP'), - gl => $locale->text('GL'), - so => $locale->text('Sales Orders'), - po => $locale->text('Purchase Orders'), - ); + %tr = ( + ar => $locale->text('AR'), + ap => $locale->text('AP'), + gl => $locale->text('GL'), + so => $locale->text('Sales Orders'), + po => $locale->text('Purchase Orders'), + ); - %f = &formnames; - - foreach $transaction (sort keys %{ $form->{transactions} }) { - print qq| + %f = &formnames; + + foreach $transaction ( sort keys %{ $form->{transactions} } ) { + print qq| <tr> <th class="listheading" colspan=$colspan>$tr{$transaction}</th> </tr> |; - - foreach $ref (@{ $form->{transactions}{$transaction} }) { - - for (@column_index) { $column_data{$_} = "<td nowrap>$ref->{$_}</td>" } - - if ($ref->{repeat} > 1) { - $unit = $locale->text(ucfirst $ref->{unit}); - $repeat = "$ref->{repeat} $unit"; - } else { - chop $ref->{unit}; - $unit = $locale->text(ucfirst $ref->{unit}); - $repeat = $unit; - } - - $column_data{ndx} = qq|<td></td>|; - - if (!$ref->{expired}) { - if ($ref->{overdue} <= 0) { - $k++; - $column_data{ndx} = qq|<td nowrap><input name="ndx_$k" class=checkbox type=checkbox value=$ref->{id} checked></td>|; - } - } - - $reference = ($ref->{reference}) ? $ref->{reference} : $locale->text('Next Number'); - $column_data{reference} = qq|<td nowrap><a href=$form->{script}?action=edit_recurring&id=$ref->{id}&vc=$ref->{vc}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&module=$ref->{module}&invoice=$ref->{invoice}&transaction=$ref->{transaction}&recurringnextdate=$ref->{nextdate}>$reference</a></td>|; - - $module = "$ref->{module}.pl"; - $type = ""; - if ($ref->{module} eq 'ar') { - $module = "is.pl" if $ref->{invoice}; - $ref->{amount} /= $ref->{exchangerate}; - } - if ($ref->{module} eq 'ap') { - $module = "ir.pl" if $ref->{invoice}; - $ref->{amount} /= $ref->{exchangerate}; - } - if ($ref->{module} eq 'oe') { - $type = ($ref->{vc} eq 'customer') ? "sales_order" : "purchase_order"; - } - - $column_data{id} = qq|<td><a href="$module?action=edit&id=$ref->{id}&vc=$ref->{vc}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&type=$type&readonly=1">$ref->{id}</a></td>|; - - $column_data{repeat} = qq|<td align="right" nowrap>$repeat</td>|; - $column_data{howmany} = qq|<td align="right" nowrap>|.$form->format_amount(\%myconfig, $ref->{howmany})."</td>"; - $column_data{amount} = qq|<td align="right" nowrap>|.$form->format_amount(\%myconfig, $ref->{amount}, 2)."</td>"; - - $column_data{recurringemail} = "<td nowrap>"; - @f = split /:/, $ref->{recurringemail}; - for (0 .. $#f) { $column_data{recurringemail} .= "$f{$f[$_]}<br>" } - $column_data{recurringemail} .= "</td>"; - - $column_data{recurringprint} = "<td nowrap>"; - @f = split /:/, $ref->{recurringprint}; - for (0 .. $#f) { $column_data{recurringprint} .= "$f{$f[$_]}<br>" } - $column_data{recurringprint} .= "</td>"; - - $j++; $j %= 2; - print qq| + + foreach $ref ( @{ $form->{transactions}{$transaction} } ) { + + for (@column_index) { + $column_data{$_} = "<td nowrap>$ref->{$_}</td>"; + } + + if ( $ref->{repeat} > 1 ) { + $unit = $locale->text( ucfirst $ref->{unit} ); + $repeat = "$ref->{repeat} $unit"; + } + else { + chop $ref->{unit}; + $unit = $locale->text( ucfirst $ref->{unit} ); + $repeat = $unit; + } + + $column_data{ndx} = qq|<td></td>|; + + if ( !$ref->{expired} ) { + if ( $ref->{overdue} <= 0 ) { + $k++; + $column_data{ndx} = +qq|<td nowrap><input name="ndx_$k" class=checkbox type=checkbox value=$ref->{id} checked></td>|; + } + } + + $reference = + ( $ref->{reference} ) + ? $ref->{reference} + : $locale->text('Next Number'); + $column_data{reference} = +qq|<td nowrap><a href=$form->{script}?action=edit_recurring&id=$ref->{id}&vc=$ref->{vc}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&module=$ref->{module}&invoice=$ref->{invoice}&transaction=$ref->{transaction}&recurringnextdate=$ref->{nextdate}>$reference</a></td>|; + + $module = "$ref->{module}.pl"; + $type = ""; + if ( $ref->{module} eq 'ar' ) { + $module = "is.pl" if $ref->{invoice}; + $ref->{amount} /= $ref->{exchangerate}; + } + if ( $ref->{module} eq 'ap' ) { + $module = "ir.pl" if $ref->{invoice}; + $ref->{amount} /= $ref->{exchangerate}; + } + if ( $ref->{module} eq 'oe' ) { + $type = + ( $ref->{vc} eq 'customer' ) + ? "sales_order" + : "purchase_order"; + } + + $column_data{id} = +qq|<td><a href="$module?action=edit&id=$ref->{id}&vc=$ref->{vc}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&type=$type&readonly=1">$ref->{id}</a></td>|; + + $column_data{repeat} = qq|<td align="right" nowrap>$repeat</td>|; + $column_data{howmany} = + qq|<td align="right" nowrap>| + . $form->format_amount( \%myconfig, $ref->{howmany} ) . "</td>"; + $column_data{amount} = + qq|<td align="right" nowrap>| + . $form->format_amount( \%myconfig, $ref->{amount}, 2 ) . "</td>"; + + $column_data{recurringemail} = "<td nowrap>"; + @f = split /:/, $ref->{recurringemail}; + for ( 0 .. $#f ) { + $column_data{recurringemail} .= "$f{$f[$_]}<br>"; + } + $column_data{recurringemail} .= "</td>"; + + $column_data{recurringprint} = "<td nowrap>"; + @f = split /:/, $ref->{recurringprint}; + for ( 0 .. $#f ) { + $column_data{recurringprint} .= "$f{$f[$_]}<br>"; + } + $column_data{recurringprint} .= "</td>"; + + $j++; + $j %= 2; + print qq| <tr class=listrow$j> |; - for (@column_index) { print "\n$column_data{$_}" } + for (@column_index) { print "\n$column_data{$_}" } - print qq| + print qq| </tr> |; + } } - } - print qq| + print qq| </tr> </table> </td> @@ -2880,17 +3159,20 @@ print qq| <input name=lastndx type=hidden value=$k> |; - $form->hide_form(qw(path login sessionid)); + $form->hide_form(qw(path login sessionid)); - print qq| -<button class="submit" type="submit" name="action" value="process_transactions">|.$locale->text('Process Transactions').qq|</button>| if $k; + print qq| +<button class="submit" type="submit" name="action" value="process_transactions">| + . $locale->text('Process Transactions') + . qq|</button>| + if $k; + + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } - - print qq| + print qq| </form> </body> @@ -2899,401 +3181,514 @@ print qq| } - sub edit_recurring { - %links = ( ar => 'create_links', - ap => 'create_links', - gl => 'create_links', - is => 'invoice_links', - ir => 'invoice_links', - oe => 'order_links', - ); - %prepare = ( is => 'prepare_invoice', - ir => 'prepare_invoice', - oe => 'prepare_order', - ); - - $form->{callback} = "$form->{script}?action=recurring_transactions&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - - $form->{type} = "transaction"; - - if ($form->{module} eq 'ar') { - if ($form->{invoice}) { - $form->{type} = "invoice"; - $form->{module} = "is"; - } - } - if ($form->{module} eq 'ap') { - if ($form->{invoice}) { - $form->{type} = "invoice"; - $form->{module} = "ir"; - } - } - - if ($form->{module} eq 'oe') { - %tr = ( so => sales_order, - po => purchase_order, - ); - - $form->{type} = $tr{$form->{transaction}}; - } + %links = ( + ar => 'create_links', + ap => 'create_links', + gl => 'create_links', + is => 'invoice_links', + ir => 'invoice_links', + oe => 'order_links', + ); + %prepare = ( + is => 'prepare_invoice', + ir => 'prepare_invoice', + oe => 'prepare_order', + ); + + $form->{callback} = +"$form->{script}?action=recurring_transactions&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $form->{type} = "transaction"; + + if ( $form->{module} eq 'ar' ) { + if ( $form->{invoice} ) { + $form->{type} = "invoice"; + $form->{module} = "is"; + } + } + if ( $form->{module} eq 'ap' ) { + if ( $form->{invoice} ) { + $form->{type} = "invoice"; + $form->{module} = "ir"; + } + } - $form->{script} = "$form->{module}.pl"; - do "bin/$form->{script}"; + if ( $form->{module} eq 'oe' ) { + %tr = ( + so => sales_order, + po => purchase_order, + ); - &{ $links{$form->{module}} }; - - # return if transaction doesn't exist - $form->redirect unless $form->{recurring}; - - if ($prepare{$form->{module}}) { - &{ $prepare{$form->{module}} }; - } - - $form->{selectformat} = qq|<option value="html">html\n|; - if (${LedgerSMB::Sysconfig::latex}) { - $form->{selectformat} .= qq| - <option value="postscript">|.$locale->text('Postscript').qq| - <option value="pdf">|.$locale->text('PDF'); - } + $form->{type} = $tr{ $form->{transaction} }; + } - &schedule; - -} + $form->{script} = "$form->{module}.pl"; + do "bin/$form->{script}"; + &{ $links{ $form->{module} } }; -sub process_transactions { + # return if transaction doesn't exist + $form->redirect unless $form->{recurring}; - # save variables - my $pt = new Form; - for (keys %$form) { $pt->{$_} = $form->{$_} } + if ( $prepare{ $form->{module} } ) { + &{ $prepare{ $form->{module} } }; + } - my $defaultprinter; - while (my ($key, $value) = each %{LedgerSMB::Sysconfig::printer}) { - if ($value =~ /lpr/) { - $defaultprinter = $key; - last; + $form->{selectformat} = qq|<option value="html">html\n|; + if ( ${LedgerSMB::Sysconfig::latex} ) { + $form->{selectformat} .= qq| + <option value="postscript">| . $locale->text('Postscript') . qq| + <option value="pdf">| . $locale->text('PDF'); } - } - $myconfig{vclimit} = 0; - %f = &formnames; - - for (my $i = 1; $i <= $pt->{lastndx}; $i++) { - if ($pt->{"ndx_$i"}) { - $id = $pt->{"ndx_$i"}; - - # process transaction - AM->recurring_details(\%myconfig, \%$pt, $id); - - $header = $form->{header}; - # reset $form - for (keys %$form) { delete $form->{$_}; } - for (qw(login path sessionid stylesheet timeout)) { $form->{$_} = $pt->{$_}; } - $form->{id} = $id; - $form->{header} = $header; - - # post, print, email - if ($pt->{arid} || $pt->{apid} || $pt->{oeid}) { - if ($pt->{arid} || $pt->{apid}) { - if ($pt->{arid}) { - $form->{script} = ($pt->{invoice}) ? "is.pl" : "ar.pl"; - $form->{ARAP} = "AR"; - $form->{module} = "ar"; - $invfld = "sinumber"; - } else { - $form->{script} = ($pt->{invoice}) ? "ir.pl" : "ap.pl"; - $form->{ARAP} = "AP"; - $form->{module} = "ap"; - $invfld = "vinumber"; - } - do "bin/$form->{script}"; - - if ($pt->{invoice}) { - &invoice_links; - &prepare_invoice; - - for (keys %$form) { $form->{$_} = $form->unquote($form->{$_}) } - - } else { - &create_links; - - $form->{type} = "transaction"; - for (1 .. $form->{rowcount} - 1) { $form->{"amount_$_"} = $form->format_amount(\%myconfig, $form->{"amount_$_"}, 2) } - for (1 .. $form->{paidaccounts}) { $form->{"paid_$_"} = $form->format_amount(\%myconfig, $form->{"paid_$_"}, 2) } - - } - - delete $form->{"$form->{ARAP}_links"}; - for (qw(acc_trans invoice_details)) { delete $form->{$_} } - for (qw(department employee language month partsgroup project years)) { delete $form->{"all_$_"} } - - $form->{invnumber} = $pt->{reference}; - $form->{transdate} = $pt->{nextdate}; - - # tax accounts - $form->all_taxaccounts(\%myconfig, undef, $form->{transdate}); - - # calculate duedate - $form->{duedate} = $form->add_date(\%myconfig, $form->{transdate}, $pt->{overdue}, "days"); - - if ($pt->{payment}) { - # calculate date paid - for ($j = 1; $j <= $form->{paidaccounts}; $j++) { - $form->{"datepaid_$j"} = $form->add_date(\%myconfig, $form->{transdate}, $pt->{paid}, "days"); - - ($form->{"$form->{ARAP}_paid_$j"}) = split /--/, $form->{"$form->{ARAP}_paid_$j"}; - delete $form->{"cleared_$j"}; - } - - $form->{paidaccounts}++; - } else { - $form->{paidaccounts} = -1; - } - - for (qw(id recurring intnotes printed emailed queued)) { delete $form->{$_} } - - ($form->{$form->{ARAP}}) = split /--/, $form->{$form->{ARAP}}; - - $form->{invnumber} = $form->update_defaults(\%myconfig, "$invfld") unless $form->{invnumber}; - $form->{reference} = $form->{invnumber}; - for (qw(invnumber reference)) { $form->{$_} = $form->unquote($form->{$_}) } - - if ($pt->{invoice}) { - if ($pt->{arid}) { - $form->info("\n".$locale->text('Posting Sales Invoice [_1]', $form->{invnumber})); - $ok = IS->post_invoice(\%myconfig, \%$form); - } else { - $form->info("\n".$locale->text('Posting Vendor Invoice [_1]', $form->{invnumber})); - $ok = IR->post_invoice(\%myconfig, \%$form); - } - } else { - if ($pt->{arid}) { - $form->info("\n".$locale->text('Posting Transaction [_1]', $form->{invnumber})); - } else { - $form->info("\n".$locale->text('Posting Transaction [_1]', $form->{invnumber})); - } - - $ok = AA->post_transaction(\%myconfig, \%$form); - - } - $form->info(" ..... ".$locale->text('done')); - - # print form - if (${LedgerSMB::Sysconfig::latex} && $ok) { - $ok = &print_recurring(\%$pt, $defaultprinter); - } - - &email_recurring(\%$pt) if $ok; - - } else { - - # order - $form->{script} = "oe.pl"; - $form->{module} = "oe"; - - $ordnumber = "ordnumber"; - if ($pt->{customer_id}) { - $form->{vc} = "customer"; - $form->{type} = "sales_order"; - $ordfld = "sonumber"; - $flabel = $locale->text('Sales Order'); - } else { - $form->{vc} = "vendor"; - $form->{type} = "purchase_order"; - $ordfld = "ponumber"; - $flabel = $locale->text('Purchase Order'); - } - require "bin/$form->{script}"; - - &order_links; - &prepare_order; - - for (keys %$form) { $form->{$_} = $form->unquote($form->{$_}) } - - $form->{$ordnumber} = $pt->{reference}; - $form->{transdate} = $pt->{nextdate}; - - # calculate reqdate - $form->{reqdate} = $form->add_date(\%myconfig, $form->{transdate}, $pt->{req}, "days") if $form->{reqdate}; - - for (qw(id recurring intnotes printed emailed queued)) { delete $form->{$_} } - for (1 .. $form->{rowcount}) { delete $form->{"orderitems_id_$_"} } - - $form->{$ordnumber} = $form->update_defaults(\%myconfig, "$ordfld") unless $form->{$ordnumber}; - $form->{reference} = $form->{$ordnumber}; - for ("$ordnumber", "reference") { $form->{$_} = $form->unquote($form->{$_}) } - $form->{closed} = 0; - - $form->info("\n".$locale->text('Saving [_1] [_2]', $flabel, $form->{$ordnumber})); - if ($ok = OE->save(\%myconfig, \%$form)) { - $form->info(" ..... ".$locale->text('done')); - } else { - $form->info(" ..... ".$locale->text('failed')); - } - - # print form - if (${LedgerSMB::Sysconfig::latex} && $ok) { - &print_recurring(\%$pt, $defaultprinter); - } - - &email_recurring(\%$pt); - - } - - } else { - # GL transaction - GL->transaction(\%myconfig, \%$form); - - $form->{reference} = $pt->{reference}; - $form->{transdate} = $pt->{nextdate}; - - $j = 1; - foreach $ref (@{ $form->{GL} }) { - $form->{"accno_$j"} = "$ref->{accno}--$ref->{description}"; - - $form->{"projectnumber_$j"} = "$ref->{projectnumber}--$ref->{project_id}" if $ref->{project_id}; - $form->{"fx_transaction_$j"} = $ref->{fx_transaction}; - - if ($ref->{amount} < 0) { - $form->{"debit_$j"} = $ref->{amount} * -1; - } else { - $form->{"credit_$j"} = $ref->{amount}; - } - - $j++; - } - - $form->{rowcount} = $j; - - for (qw(id recurring)) { delete $form->{$_} } - $form->info("\n".$locale->text('Posting GL Transaction [_1]', $form->{reference})); - $ok = GL->post_transaction(\%myconfig, \%$form); - $form->info(" ..... ".$locale->text('done')); - - } - - AM->update_recurring(\%myconfig, \%$pt, $id) if $ok; - - } - } - - $form->{callback} = "am.pl?action=recurring_transactions&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&header=$form->{header}"; - $form->redirect; + &schedule; } +sub process_transactions { -sub print_recurring { - my ($pt, $defaultprinter) = @_; - use List::Util qw(first); + # save variables + my $pt = new Form; + for ( keys %$form ) { $pt->{$_} = $form->{$_} } + + my $defaultprinter; + while ( my ( $key, $value ) = each %{LedgerSMB::Sysconfig::printer} ) { + if ( $value =~ /lpr/ ) { + $defaultprinter = $key; + last; + } + } + + $myconfig{vclimit} = 0; + %f = &formnames; + + for ( my $i = 1 ; $i <= $pt->{lastndx} ; $i++ ) { + if ( $pt->{"ndx_$i"} ) { + $id = $pt->{"ndx_$i"}; + + # process transaction + AM->recurring_details( \%myconfig, \%$pt, $id ); + + $header = $form->{header}; + + # reset $form + for ( keys %$form ) { delete $form->{$_}; } + for (qw(login path sessionid stylesheet timeout)) { + $form->{$_} = $pt->{$_}; + } + $form->{id} = $id; + $form->{header} = $header; + + # post, print, email + if ( $pt->{arid} || $pt->{apid} || $pt->{oeid} ) { + if ( $pt->{arid} || $pt->{apid} ) { + if ( $pt->{arid} ) { + $form->{script} = + ( $pt->{invoice} ) ? "is.pl" : "ar.pl"; + $form->{ARAP} = "AR"; + $form->{module} = "ar"; + $invfld = "sinumber"; + } + else { + $form->{script} = + ( $pt->{invoice} ) ? "ir.pl" : "ap.pl"; + $form->{ARAP} = "AP"; + $form->{module} = "ap"; + $invfld = "vinumber"; + } + do "bin/$form->{script}"; + + if ( $pt->{invoice} ) { + &invoice_links; + &prepare_invoice; + + for ( keys %$form ) { + $form->{$_} = $form->unquote( $form->{$_} ); + } + + } + else { + &create_links; + + $form->{type} = "transaction"; + for ( 1 .. $form->{rowcount} - 1 ) { + $form->{"amount_$_"} = + $form->format_amount( \%myconfig, + $form->{"amount_$_"}, 2 ); + } + for ( 1 .. $form->{paidaccounts} ) { + $form->{"paid_$_"} = + $form->format_amount( \%myconfig, + $form->{"paid_$_"}, 2 ); + } + + } + + delete $form->{"$form->{ARAP}_links"}; + for (qw(acc_trans invoice_details)) { delete $form->{$_} } + for ( + qw(department employee language month partsgroup project years) + ) + { + delete $form->{"all_$_"}; + } + + $form->{invnumber} = $pt->{reference}; + $form->{transdate} = $pt->{nextdate}; + + # tax accounts + $form->all_taxaccounts( \%myconfig, undef, + $form->{transdate} ); + + # calculate duedate + $form->{duedate} = + $form->add_date( \%myconfig, $form->{transdate}, + $pt->{overdue}, "days" ); + + if ( $pt->{payment} ) { + + # calculate date paid + for ( $j = 1 ; $j <= $form->{paidaccounts} ; $j++ ) { + $form->{"datepaid_$j"} = + $form->add_date( \%myconfig, $form->{transdate}, + $pt->{paid}, "days" ); + + ( $form->{"$form->{ARAP}_paid_$j"} ) = split /--/, + $form->{"$form->{ARAP}_paid_$j"}; + delete $form->{"cleared_$j"}; + } + + $form->{paidaccounts}++; + } + else { + $form->{paidaccounts} = -1; + } + + for (qw(id recurring intnotes printed emailed queued)) { + delete $form->{$_}; + } + + ( $form->{ $form->{ARAP} } ) = split /--/, + $form->{ $form->{ARAP} }; + + $form->{invnumber} = + $form->update_defaults( \%myconfig, "$invfld" ) + unless $form->{invnumber}; + $form->{reference} = $form->{invnumber}; + for (qw(invnumber reference)) { + $form->{$_} = $form->unquote( $form->{$_} ); + } + + if ( $pt->{invoice} ) { + if ( $pt->{arid} ) { + $form->info( + "\n" + . $locale->text( + 'Posting Sales Invoice [_1]', + $form->{invnumber} + ) + ); + $ok = IS->post_invoice( \%myconfig, \%$form ); + } + else { + $form->info( + "\n" + . $locale->text( + 'Posting Vendor Invoice [_1]', + $form->{invnumber} + ) + ); + $ok = IR->post_invoice( \%myconfig, \%$form ); + } + } + else { + if ( $pt->{arid} ) { + $form->info( + "\n" + . $locale->text( + 'Posting Transaction [_1]', + $form->{invnumber} + ) + ); + } + else { + $form->info( + "\n" + . $locale->text( + 'Posting Transaction [_1]', + $form->{invnumber} + ) + ); + } + + $ok = AA->post_transaction( \%myconfig, \%$form ); + + } + $form->info( " ..... " . $locale->text('done') ); + + # print form + if ( ${LedgerSMB::Sysconfig::latex} && $ok ) { + $ok = &print_recurring( \%$pt, $defaultprinter ); + } + + &email_recurring( \%$pt ) if $ok; + + } + else { + + # order + $form->{script} = "oe.pl"; + $form->{module} = "oe"; + + $ordnumber = "ordnumber"; + if ( $pt->{customer_id} ) { + $form->{vc} = "customer"; + $form->{type} = "sales_order"; + $ordfld = "sonumber"; + $flabel = $locale->text('Sales Order'); + } + else { + $form->{vc} = "vendor"; + $form->{type} = "purchase_order"; + $ordfld = "ponumber"; + $flabel = $locale->text('Purchase Order'); + } + require "bin/$form->{script}"; + + &order_links; + &prepare_order; + + for ( keys %$form ) { + $form->{$_} = $form->unquote( $form->{$_} ); + } + + $form->{$ordnumber} = $pt->{reference}; + $form->{transdate} = $pt->{nextdate}; + + # calculate reqdate + $form->{reqdate} = + $form->add_date( \%myconfig, $form->{transdate}, + $pt->{req}, "days" ) + if $form->{reqdate}; + + for (qw(id recurring intnotes printed emailed queued)) { + delete $form->{$_}; + } + for ( 1 .. $form->{rowcount} ) { + delete $form->{"orderitems_id_$_"}; + } + + $form->{$ordnumber} = + $form->update_defaults( \%myconfig, "$ordfld" ) + unless $form->{$ordnumber}; + $form->{reference} = $form->{$ordnumber}; + for ( "$ordnumber", "reference" ) { + $form->{$_} = $form->unquote( $form->{$_} ); + } + $form->{closed} = 0; + + $form->info( + "\n" + . $locale->text( + 'Saving [_1] [_2]', + $flabel, $form->{$ordnumber} + ) + ); + if ( $ok = OE->save( \%myconfig, \%$form ) ) { + $form->info( " ..... " . $locale->text('done') ); + } + else { + $form->info( " ..... " . $locale->text('failed') ); + } + + # print form + if ( ${LedgerSMB::Sysconfig::latex} && $ok ) { + &print_recurring( \%$pt, $defaultprinter ); + } + + &email_recurring( \%$pt ); + + } + + } + else { + + # GL transaction + GL->transaction( \%myconfig, \%$form ); + + $form->{reference} = $pt->{reference}; + $form->{transdate} = $pt->{nextdate}; + + $j = 1; + foreach $ref ( @{ $form->{GL} } ) { + $form->{"accno_$j"} = "$ref->{accno}--$ref->{description}"; + + $form->{"projectnumber_$j"} = + "$ref->{projectnumber}--$ref->{project_id}" + if $ref->{project_id}; + $form->{"fx_transaction_$j"} = $ref->{fx_transaction}; + + if ( $ref->{amount} < 0 ) { + $form->{"debit_$j"} = $ref->{amount} * -1; + } + else { + $form->{"credit_$j"} = $ref->{amount}; + } + + $j++; + } + + $form->{rowcount} = $j; + + for (qw(id recurring)) { delete $form->{$_} } + $form->info( + "\n" + . $locale->text( + 'Posting GL Transaction [_1]', + $form->{reference} + ) + ); + $ok = GL->post_transaction( \%myconfig, \%$form ); + $form->info( " ..... " . $locale->text('done') ); + + } + + AM->update_recurring( \%myconfig, \%$pt, $id ) if $ok; + + } + } + + $form->{callback} = +"am.pl?action=recurring_transactions&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&header=$form->{header}"; + $form->redirect; - my %f = &formnames; - my $ok = 1; - - if ($pt->{recurringprint}) { - @f = split /:/, $pt->{recurringprint}; - for ($j = 0; $j <= $#f; $j += 3) { - $media = $f[$j+2]; - $media ||= $myconfig->{printer} - if ${LedgerSMB::Sysconfig::printer}{$myconfig->{printer}}; - $media ||= $defaultprinter; - - $form->info("\n".$locale->text('Printing')." ".$locale->text($f{$f[$j]})." $form->{reference}"); - - @a = ("perl", "$form->{script}", "action=reprint&module=$form->{module}&type=$form->{type}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}&id=$form->{id}&formname=$f[$j]&format=$f[$j+1]&media=$media&vc=$form->{vc}&ARAP=$form->{ARAP}"); - - $form->error($locale->text('Invalid redirect')) unless - first {$_ eq $form->{script}} @{LedgerSMB::Sysconfig::scripts}; - $ok = !(system(@a)); - - if ($ok) { - $form->info(" ..... ".$locale->text('done')); - } else { - $form->info(" ..... ".$locale->text('failed')); - last; - } - } - } - - $ok; - } +sub print_recurring { + my ( $pt, $defaultprinter ) = @_; + use List::Util qw(first); + + my %f = &formnames; + my $ok = 1; + + if ( $pt->{recurringprint} ) { + @f = split /:/, $pt->{recurringprint}; + for ( $j = 0 ; $j <= $#f ; $j += 3 ) { + $media = $f[ $j + 2 ]; + $media ||= $myconfig->{printer} + if ${LedgerSMB::Sysconfig::printer}{ $myconfig->{printer} }; + $media ||= $defaultprinter; + + $form->info( "\n" + . $locale->text('Printing') . " " + . $locale->text( $f{ $f[$j] } ) + . " $form->{reference}" ); + + @a = ( + "perl", "$form->{script}", +"action=reprint&module=$form->{module}&type=$form->{type}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}&id=$form->{id}&formname=$f[$j]&format=$f[$j+1]&media=$media&vc=$form->{vc}&ARAP=$form->{ARAP}" + ); + + $form->error( $locale->text('Invalid redirect') ) + unless first { $_ eq $form->{script} } + @{LedgerSMB::Sysconfig::scripts}; + $ok = !( system(@a) ); + + if ($ok) { + $form->info( " ..... " . $locale->text('done') ); + } + else { + $form->info( " ..... " . $locale->text('failed') ); + last; + } + } + } -sub email_recurring { - my ($pt) = @_; - use List::Util qw(first); + $ok; - my %f = &formnames; - my $ok = 1; - - if ($pt->{recurringemail}) { - - @f = split /:/, $pt->{recurringemail}; - for ($j = 0; $j <= $#f; $j += 2) { - - $form->info("\n".$locale->text('Sending')." ".$locale->text($f{$f[$j]})." $form->{reference}"); - - # no email, bail out - if (!$form->{email}) { - $form->info(" ..... ".$locale->text('E-mail address missing!')); - last; - } - - $message = $form->escape($pt->{message},1); - - @a = ("perl", "$form->{script}", "action=reprint&module=$form->{module}&type=$form->{type}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}&id=$form->{id}&formname=$f[$j]&format=$f[$j+1]&media=email&vc=$form->{vc}&ARAP=$form->{ARAP}&message=$message"); - - $form->error($locale->text('Invalid redirect')) unless - first {$_ eq $form->{script}} @{LedgerSMB::Sysconfig::scripts}; - $ok = !(system(@a)); - - if ($ok) { - $form->info(" ..... ".$locale->text('done')); - } else { - $form->info(" ..... ".$locale->text('failed')); - last; - } - } - } - - $ok; - } +sub email_recurring { + my ($pt) = @_; + use List::Util qw(first); + + my %f = &formnames; + my $ok = 1; + + if ( $pt->{recurringemail} ) { + + @f = split /:/, $pt->{recurringemail}; + for ( $j = 0 ; $j <= $#f ; $j += 2 ) { + + $form->info( "\n" + . $locale->text('Sending') . " " + . $locale->text( $f{ $f[$j] } ) + . " $form->{reference}" ); + + # no email, bail out + if ( !$form->{email} ) { + $form->info( + " ..... " . $locale->text('E-mail address missing!') ); + last; + } + + $message = $form->escape( $pt->{message}, 1 ); + + @a = ( + "perl", "$form->{script}", +"action=reprint&module=$form->{module}&type=$form->{type}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}&id=$form->{id}&formname=$f[$j]&format=$f[$j+1]&media=email&vc=$form->{vc}&ARAP=$form->{ARAP}&message=$message" + ); + + $form->error( $locale->text('Invalid redirect') ) + unless first { $_ eq $form->{script} } + @{LedgerSMB::Sysconfig::scripts}; + $ok = !( system(@a) ); + + if ($ok) { + $form->info( " ..... " . $locale->text('done') ); + } + else { + $form->info( " ..... " . $locale->text('failed') ); + last; + } + } + } + + $ok; +} sub formnames { - -# $locale->text('Transaction') -# $locale->text('Invoice') -# $locale->text('Credit Invoice') -# $locale->text('Debit Invoice') -# $locale->text('Packing List') -# $locale->text('Pick List') -# $locale->text('Sales Order') -# $locale->text('Work Order') -# $locale->text('Purchase Order') -# $locale->text('Bin List') - - my %f = ( transaction => 'Transaction', - invoice => 'Invoice', - credit_invoice => 'Credit Invoice', - debit_invoice => 'Debit Invoice', - packing_list => 'Packing List', - pick_list => 'Pick List', - sales_order => 'Sales Order', - work_order => 'Work Order', - purchase_order => 'Purchase Order', - bin_list => 'Bin List', - ); - - %f; - -} - - -sub continue { &{ $form->{nextsub} } }; + + # $locale->text('Transaction') + # $locale->text('Invoice') + # $locale->text('Credit Invoice') + # $locale->text('Debit Invoice') + # $locale->text('Packing List') + # $locale->text('Pick List') + # $locale->text('Sales Order') + # $locale->text('Work Order') + # $locale->text('Purchase Order') + # $locale->text('Bin List') + + my %f = ( + transaction => 'Transaction', + invoice => 'Invoice', + credit_invoice => 'Credit Invoice', + debit_invoice => 'Debit Invoice', + packing_list => 'Packing List', + pick_list => 'Pick List', + sales_order => 'Sales Order', + work_order => 'Work Order', + purchase_order => 'Purchase Order', + bin_list => 'Bin List', + ); + + %f; + +} + +sub continue { &{ $form->{nextsub} } } |