diff options
author | christopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-13 16:28:21 +0000 |
---|---|---|
committer | christopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-13 16:28:21 +0000 |
commit | edacf95ad24fca3c4ae08b44ffdfe4be5c68fdc1 (patch) | |
tree | 70407a0ef31c2cdf8a15170967f6ebbe45eb7073 /bin/mozilla/rc.pl | |
parent | 2da98858e16ce370ece0bd79fae96b2e6312b2b5 (diff) |
removing bin/lynx and bin/mozilla folders. All scripts are now at bin/ with bin/custom for custom scripts (user specific or otherwise)
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@208 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin/mozilla/rc.pl')
-rwxr-xr-x | bin/mozilla/rc.pl | 800 |
1 files changed, 0 insertions, 800 deletions
diff --git a/bin/mozilla/rc.pl b/bin/mozilla/rc.pl deleted file mode 100755 index e257a386..00000000 --- a/bin/mozilla/rc.pl +++ /dev/null @@ -1,800 +0,0 @@ -#===================================================================== -# LedgerSMB Small Medium Business Accounting -# http://www.ledgersmb.org/ -# - -# Copyright (C) 2006 -# This work contains copyrighted information from a number of sources all used -# with permission. -# -# This file contains source code included with or based on SQL-Ledger which -# is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed -# under the GNU General Public License version 2 or, at your option, any later -# version. For a full list including contact information of contributors, -# maintainers, and copyright holders, see the CONTRIBUTORS file. -# -# Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork): -# Copyright (c) 2003 -# -# Author: DWS Systems Inc. -# Web: http://www.sql-ledger.org -# -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -#====================================================================== -# -# Account reconciliation module -# -#====================================================================== - -use LedgerSMB::RC; - -1; -# end of main - -# this is for our long dates -# $locale->text('January') -# $locale->text('February') -# $locale->text('March') -# $locale->text('April') -# $locale->text('May ') -# $locale->text('June') -# $locale->text('July') -# $locale->text('August') -# $locale->text('September') -# $locale->text('October') -# $locale->text('November') -# $locale->text('December') - -# this is for our short month -# $locale->text('Jan') -# $locale->text('Feb') -# $locale->text('Mar') -# $locale->text('Apr') -# $locale->text('May') -# $locale->text('Jun') -# $locale->text('Jul') -# $locale->text('Aug') -# $locale->text('Sep') -# $locale->text('Oct') -# $locale->text('Nov') -# $locale->text('Dec') - - -sub reconciliation { - - RC->paymentaccounts(\%myconfig, \%$form); - - $selection = ""; - for (@{ $form->{PR} }) { $selection .= "<option>$_->{accno}--$_->{description}\n" } - - $form->{title} = $locale->text('Reconciliation'); - - if ($form->{report}) { - $form->{title} = $locale->text('Reconciliation Report'); - $cleared = qq| - <input type=hidden name=report value=1> - <tr> - <td align=right><input type=checkbox class=checkbox name=outstanding value=1 checked></td> - <td>|.$locale->text('Outstanding').qq|</td> - <td align=right><input type=checkbox class=checkbox name=cleared value=1></td> - <td>|.$locale->text('Cleared').qq|</td> - </tr> -|; - - } - - if (@{ $form->{all_years} }) { - # accounting years - $form->{selectaccountingyear} = "<option>\n"; - for (@{ $form->{all_years} }) { $form->{selectaccountingyear} .= qq|<option>$_\n| } - $form->{selectaccountingmonth} = "<option>\n"; - for (sort keys %{ $form->{all_month} }) { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } - - $selectfrom = qq| - <tr> - <th align=right>|.$locale->text('Period').qq|</th> - <td colspan=3> - <select name=month>$form->{selectaccountingmonth}</select> - <select name=year>$form->{selectaccountingyear}</select> - <input name=interval class=radio type=radio value=0 checked> |.$locale->text('Current').qq| - <input name=interval class=radio type=radio value=1> |.$locale->text('Month').qq| - <input name=interval class=radio type=radio value=3> |.$locale->text('Quarter').qq| - <input name=interval class=radio type=radio value=12> |.$locale->text('Year').qq| - </td> - </tr> -|; - } - - - $form->header; - - print qq| -<body> - -<form method=post action=$form->{script}> - -<table width=100%> - <tr> - <th class=listtop>$form->{title}</th> - </tr> - <tr height="5"></tr> - <tr> - <td> - <table> - <tr> - <th align=right nowrap>|.$locale->text('Account').qq|</th> - <td colspan=3><select name=accno>$selection</select></td> - </tr> - <tr> - <th align=right>|.$locale->text('From').qq|</th> - <td colspan=3><input name=fromdate size=11 title="$myconfig{dateformat}"> <b>|.$locale->text('To').qq|</b> <input name=todate size=11 title="$myconfig{dateformat}"></td> - </tr> - $selectfrom - $cleared - <tr> - <td></td> - <td colspan=3><input type=radio style=radio name=summary value=1 checked> |.$locale->text('Summary').qq| - <input type=radio style=radio name=summary value=0> |.$locale->text('Detail').qq|</td> - </tr> - <tr> - <td></td> - <td colspan=3><input type=checkbox class=checkbox name=fx_transaction value=1 checked> |.$locale->text('Include Exchange Rate Difference').qq|</td> - </tr> - </table> - </td> - </tr> - <tr> - <td><hr size=3 noshade></td> - </tr> -</table> - -<br> -<input type=hidden name=nextsub value=get_payments> -|; - - $form->hide_form(qw(path login sessionid)); - - print qq| -<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|"> - -</form> -|; - - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } - - print qq| - -</body> -</html> -|; - -} - - -sub continue { &{ $form->{nextsub} } }; - -sub till_closing { - $form->{callback} = "$form->{script}?path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - - @colheadings = qw(Source Actual Expected Error); - my $curren = $pos_config{'curren'}; - - $form->{title} = "Closing Till For $form->{login}"; - require "pos.conf.pl"; - RC->getposlines(\%myconfig, \%$form); - $form->header; - print qq| -<body> - -<form method=post action=$form->{script}> -<input type=hidden name=path value=$form->{path}> -<input type=hidden name=login value=$form->{login}> -<input type=hidden name=sessionid value=$form->{sessionid}> - -<input type=hidden name=callback value="$form->{callback}"> -<input type=hidden name=sum value="|.$form->{sum} * -1 .qq|"> -<table width=100%> - <tr> - <th class=listtop>$form->{title}</th> - </tr> -</table> -<table width=100%> -|; - - print "<tr>"; - map {print "<td class=listheading>$_</td>";} @colheadings; - print "</tr>"; - my $j; - my $source; - foreach $source (sort keys %pos_sources){ - $amount = 0; - foreach $ref (@{$form->{TB}}){ - if ($ref->{source} eq $source){ - $amount = $ref->{amount} * -1; - last; - } - } - ++$j; - $j = $j % 2; - print qq|<tr class=listrow$j><td>|.$pos_sources{$source}.qq|</td> - <td><input name="amount_$source"> - <input type=hidden name="expected_$source" - value="$amount"></td> - <td>${curren}$amount</td> - <td id="error_$source"> </td></tr>|; - } - print qq| -<script type='text/javascript'> - -function money_round(m){ - var r; - r = Math.round(m * 100)/100; - return r; -} - -function custom_calc_total(){ - |; - my $subgen = 'document.forms[0].sub_sub.value = '; - foreach my $unit ($pos_config{'breakdown'}) { - # XXX Needs to take into account currencies that don't use 2 dp - my $parsed = $form->parse_amount(\%pos_config, $unit); - my $calcval = $parsed; - $calcval = sprintf('%03d', $calcval * 100) if $calcval < 1; - my $subval = 'sub_' . $calcval; - $calcval = 'calc_' . $calcval; - print qq| - document.forms[0].${subval}.value = document.forms[0].${calcval}.value * $parsed; - |; - $subgen .= "document.forms[0].${subval}.value * 1 + "; - } - print $subgen . "0;"; - print qq|document.forms[0].sub_sub.value = - money_round(document.forms[0].sub_sub.value); - document.forms[0].amount_cash.value = money_round( - document.forms[0].sub_sub.value - $pos_config{till_cash}); - check_errors(); -} -function check_errors(){ - var cumulative_error = 0; - var source_error = 0; - var err_cell; - |; - map { - print " source_error = money_round( - document.forms[0].amount_$_.value - - document.forms[0].expected_$_.value); - cumulative_error = cumulative_error + source_error; - err_cell = document.getElementById('error_$_'); - err_cell.innerHTML = '$curren' + source_error;\n"; - } (keys %pos_sources); - print qq| - alert('Cumulative Error: $curren' + money_round(cumulative_error)); -} -</script> - -<table> -<col><col><col>|; - foreach my $unit ($pos_config{'breakdown'}) { - # XXX Needs to take into account currencies that don't use 2 dp - my $calcval = $form->parse_amount(\%pos_config, $unit); - $calcval = sprintf('%03d', $calcval * 100) if $calcval < 1; - my $subval = 'sub_' . $calcval; - $calcval = 'calc_' . $calcval; - print qq|<tr> - <td><input type=text name=$calcval value="$form->{$calcval}"></td> - <th>X ${curren}${unit} = </th> - <td><input type=text name=$subval value="$form->{$subval}"></td> - </tr>|; - } - print qq|<tr> - <td> </td> - <th>Subtotal:</th> - <td><input type=text name=sub_sub value="$form->{sub_sub}"></td> - </tr> - </table> -<input type=button name=calculate class=submit onClick="custom_calc_total()" - value='Calculate'> -|; - print qq|</table><input type=submit name=action value="|. - $locale->text("close_till").qq|">|; - print qq| -</form> - -</body> -</html> -|; -} - - -sub close_till { - use LedgerSMB::GL; - require 'pos.conf.pl'; - RC->clear_till(\%myconfig, \%$form); - my $amount = 0; - my $expected = 0; - my $difference = 0; - my $lines = ''; - $form->{rowcount} = 2; - foreach $key (keys %pos_sources){ - $amount = 0; - $expected = 0; - $amount = $form->parse_amount(\%myconfig, $form->{"amount_$key"}); - $expected = $form->parse_amount(\%myconfig, $form->{"expected_$key"}); - $gl_entry = "Closing Till $pos_config{till} source = $key"; - $accno1 = $pos_config{till_accno}; - if (${$pos_config{'source_accno_override'}{$key}}){ - $accno2 = ${$pos_config{'source_accno_override'}{$key}}; - } else { - $accno2 = $pos_config{'close_cash_accno'}; - } - $form->{reference} = $gl_entry; - $form->{accno_1} = $accno1; - $form->{credit_1} = $amount; - $form->{accno_2} = $accno2; - $form->{debit_2} = $amount; - $form->{transdate} = $form->current_date(\%myconfig); - GL->post_transaction(\%myconfig, \%$form); - delete $form->{id}; - $error = $amount - $expected; - $difference += $error; - $lines .= "Source: $key, Amount: $amount\nExpected: $expected. Error= $error\n\n"; - } - $gl_entry = "Closing Till: $pos_config{till} Over/Under"; - $amount = $difference * -1; - $form->{reference} = $gl_entry; - $form->{accno_1} = $accno1; - $form->{credit_1} = $amount; - $form->{accno_2} = $pos_config{coa_prefix}; - $form->{debit_2} = $amount; - $form->{transdate} = $form->current_date(\%myconfig); - GL->post_transaction(\%myconfig, \%$form); - delete $form->{id}; - $lines .= "Cumulative Error: $amount"; - $form->{accno} = $form->{accno_1}; - RC->getbalance(\%myconfig, \%$form); - $amount = $form->{balance} * -1; - $gl_entry = "Resetting Till: $pos_config{till}"; - $form->{reference} = $gl_entry; - $form->{accno_1} = $accno1; - $form->{credit_1} = $amount; - $form->{accno_2} = $pos_config{coa_prefix}; - $form->{debit_2} = $amount; - $form->{transdate} = $form->current_date(\%myconfig); - GL->post_transaction(\%myconfig, \%$form); - delete $form->{id}; - - $head = "Closing Till $pos_config{till} for $form->{login}\n". - "Date: $form->{transdate}\n\n\n"; - my @cashlines = [$locale->text("Cash Breakdown:")]; - foreach my $unit ($pos_config{'breakdown'}) { - # XXX Needs to take into account currencies that don't use 2 dp - my $parsed = $form->parse_amount(\%pos_config, $unit); - my $calcval = $parsed; - $calcval = sprintf('%03d', $calcval * 100) if $calcval < 1; - my $subval = 'sub_' . $calcval; - $calcval = 'calc_' . $calcval; - push @cashlines, "$form->{$calcval} x $parseval = $form->{$subval}"; - } - push @cashlines, $locale->text("Total Cash in Drawer:") . $form->{sub_sub}; - push @cashlines, $locale->text("Less Cash in Till At Start:") . - $form->{till_cash}; - push @cashlines, "\n"; - $cash = join ("\n", @cashlines); - $foot = $locale->text("Cumulative Error: ")."$difference\n"; - $foot .= $locale->text('Reset Till By ')."$amount\n\n\n\n\n\n\n\n\n\n"; - open (PRN, "|-", $printer{Printer}); - print PRN $head; - print PRN $lines; - print PRN $cash; - print PRN $cash; - print PRN $foot; - close PRN; - if ($difference > 0){ - $message = $locale->text("You are over by ").$difference; - } elsif ($difference < 0){ - $message = $locale->text("You are under by ").$difference * -1; - } - else { - $message = $local->text("Congratulations! Your till is exactly balanced."); - } - $form->info($message); -} - -sub get_payments { - - ($form->{accno}, $form->{account}) = split /--/, $form->{accno}; - if ($form->{'pos'}){ - require "pos.conf.pl"; - $form->{fromdate} = $form->current_date(\%myconfig); - unless ($form->{source}){ - $form->{source} = (sort keys(%pos_sources))[0]; - } - if ($form->{source} eq 'cash'){ - $form->{summary} = "true"; - } else { - $form->{summary} = ""; - } - $form->{accno} = $pos_config{'coa_prefix'} . "." . $pos_config{'till'}; - $form->{account} = $form->{source}; - } - - RC->payment_transactions(\%myconfig, \%$form); - - $ml = ($form->{category} eq 'A') ? -1 : 1; - $form->{statementbalance} = $form->{endingbalance} * $ml; - if (! $form->{fx_transaction}) { - $form->{statementbalance} = ($form->{endingbalance} - $form->{fx_endingbalance}) * $ml; - } - - $form->{statementbalance} = $form->format_amount(\%myconfig, $form->{statementbalance}, 2, 0); - - &display_form; - -} - - -sub display_form { - - if ($form->{report}) { - @column_index = qw(transdate source name cleared debit credit); - } else { - @column_index = qw(transdate source name cleared debit credit balance); - } - - $column_header{cleared} = qq|<th>|.$locale->text('R').qq|</th>|; - $column_header{source} = "<th class=listheading>".$locale->text('Source')."</a></th>"; - $column_header{name} = "<th class=listheading>".$locale->text('Description')."</a></th>"; - $column_header{transdate} = "<th class=listheading>".$locale->text('Date')."</a></th>"; - - $column_header{debit} = "<th class=listheading>".$locale->text('Debit')."</a></th>"; - $column_header{credit} = "<th class=listheading>".$locale->text('Credit')."</a></th>"; - $column_header{balance} = "<th class=listheading>".$locale->text('Balance')."</a></th>"; - - if ($form->{fromdate}) { - $option .= "\n<br>" if ($option); - $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{fromdate}, 1); - } - if ($form->{todate}) { - $option .= "\n<br>" if ($option); - $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{todate}, 1); - } - - $form->{title} = "$form->{accno}--$form->{account}"; - - $form->header; - - print qq| -<body> - -<form method=post action=$form->{script}> - -<input type=hidden name=source value="$form->{source}"> -<input type=hidden name=cumulative_error value="$form->{cumulative_error}"> -<table width=100%> - <tr> - <th class=listtop>$form->{title}</th> - </tr> - <tr height="5"></tr> - <tr> - <td>$option</td> - </tr> - <tr> - <td> - <table width=100%> - <tr class=listheading> -|; - - for (@column_index) { print "\n$column_header{$_}" } - - print qq| - </tr> -|; - - $ml = ($form->{category} eq 'A') ? -1 : 1; - $form->{beginningbalance} *= $ml; - $form->{fx_balance} *= $ml; - - if (! $form->{fx_transaction}) { - $form->{beginningbalance} -= $form->{fx_balance}; - } - $balance = $form->{beginningbalance}; - - $i = 0; - $j = 0; - - for (qw(cleared transdate source debit credit)) { $column_data{$_} = "<td> </td>" } - - if (! $form->{report}) { - $column_data{name} = qq|<td>|.$locale->text('Beginning Balance').qq|</td>|; - $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $balance, 2, 0)."</td>"; - print qq| - <tr class=listrow$j> -|; - - for (@column_index) { print "\n$column_data{$_}" } - - print qq| - </tr> -|; - } - - - foreach $ref (@{ $form->{PR} }) { - - $i++; - - if (! $form->{fx_transaction}) { - next if $ref->{fx_transaction}; - } - - $checked = ($ref->{cleared}) ? "checked" : ""; - - %temp = (); - if (!$ref->{fx_transaction}) { - for (qw(name source transdate)) { $temp{$_} = $ref->{$_} } - } - - $column_data{name} = "<td>"; - for (@{ $temp{name} }) { $column_data{name} .= "$_<br>" } - $column_data{name} .= "</td>"; - $column_data{source} = qq|<td>$temp{source} </td> - <input type=hidden name="id_$i" value=$ref->{id}>|; - - $column_data{debit} = "<td> </td>"; - $column_data{credit} = "<td> </td>"; - - $balance += $ref->{amount} * $ml; - - if ($ref->{amount} < 0) { - - $totaldebits += $ref->{amount} * -1; - - $column_data{debit} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount} * -1, 2, " ")."</td>"; - - } else { - - $totalcredits += $ref->{amount}; - - $column_data{credit} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount}, 2, " ")."</td>"; - - } - - $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $balance, 2, 0)."</td>"; - - if ($ref->{fx_transaction}) { - - $column_data{cleared} = ($clearfx) ? qq|<td align=center>*</td>| : qq|<td> </td>|; - $cleared += $ref->{amount} * $ml if $clearfx; - - } else { - - if ($form->{report}) { - - if ($ref->{cleared}) { - $column_data{cleared} = qq|<td align=center>*</td>|; - $clearfx = 1; - } else { - $column_data{cleared} = qq|<td> </td>|; - $clearfx = 0; - } - - } else { - - if ($ref->{oldcleared}) { - $cleared += $ref->{amount} * $ml; - $clearfx = 1; - $column_data{cleared} = qq|<td align=center>*</td> - <input type=hidden name="cleared_$i" value=$ref->{cleared}> - <input type=hidden name="oldcleared_$i" value=$ref->{oldcleared}> - <input type=hidden name="source_$i" value="$ref->{source}"> - <input type=hidden name="amount_$1" value="$ref->{amount}">|; - } else { - $cleared += $ref->{amount} * $ml if $checked; - $clearfx = ($checked) ? 1 : 0; - $column_data{cleared} = qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=1 $checked> - <input type=hidden name="source_$i" value="$ref->{source}"> - <input type=hidden name="amount_$i" value="$ref->{amount}"> - </td>|; - } - - } - } - - $column_data{transdate} = qq|<td>$temp{transdate} </td> - <input type=hidden name="transdate_$i" value=$ref->{transdate}>|; - - $j++; $j %= 2; - print qq| - <tr class=listrow$j> -|; - - for (@column_index) { print "\n$column_data{$_}" } - - print qq| - </tr> -|; - - } - - $form->{rowcount} = $i; - - # print totals - for (@column_index) { $column_data{$_} = "<td> </td>" } - - $column_data{debit} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totaldebits, 2, " ")."</th>"; - $column_data{credit} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalcredits, 2, " ")."</th>"; - - print qq| - <tr class=listtotal> -|; - - for (@column_index) { print "\n$column_data{$_}" } - - $form->{statementbalance} = $form->parse_amount(\%myconfig, $form->{statementbalance}); - $difference = $form->format_amount(\%myconfig, $form->{beginningbalance} + $cleared - $form->{statementbalance}, 2, 0); - if ($form->{source}){ - $difference = 0; - } - $form->{statementbalance} = $form->format_amount(\%myconfig, $form->{statementbalance}, 2, 0); - - print qq| - </tr> - </table> - </td> - </tr> -|; - - if ($form->{'pos'}){ - $close_next = qq|<input type=submit class=submit name=action - value="|.$locale->text('close_next').qq|">|; - $done = ""; - } - else { - $close_next = ""; - $done = qq|<input type=submit class=submit name=action - value="|.$locale->text('Done').qq|">|; - } - if ($form->{'pos'}){ - $difference = qq| - <tr> - <th align=right><select name=over_under> - <option value=under>|.$locale->text('Under').qq|</option> - <option value=over>|.$locale->text('Over').qq|</option> - </select><input type=hidden name=pos value='true'> - </th> - <td width=10%></td> - <td align=right><input name=null size=11 - value='|.$form->{null2}.qq|'></td> - <input type=hidden name=difference - value=$difference> - - |; - if ($form->{'over_under'}){ - $o_u = $form->{'over_under'}; - $difference =~ s/(value=$o_u)/SELECTED $1/g; - } - } else { - $difference = qq| - <tr> - <th align=right nowrap>|.$locale->text('Difference').qq|</th> - <td width=10%></td> - <td align=right><input name=null size=11 value=$difference></td> - <input type=hidden name=difference value=$difference> - </tr>|; - } - - - if ($form->{report}) { - - print qq| - </tr> - </table> -|; - - } else { - - print qq| - - <tr> - <td> - <table width=100%> - <tr> - <td align=right> - <table> - <tr> - <th align=right nowrap>|.$locale->text('Statement Balance').qq|</th> - <td width=10%></td> - <td align=right><input name=statementbalance size=11 value=$form->{statementbalance}></td> - </tr> - $difference - </table> - </td> - </tr> - </table> - </td> - </tr> - <tr> - <td><hr size=3 noshade></td> - </tr> -</table> -|; - - $form->hide_form(qw(fx_transaction summary rowcount accno account fromdate todate path login sessionid)); - - print qq| -<br> -<input type=submit class=submit name=action value="|.$locale->text('Update').qq|"> -<input type=submit class=submit name=action value="|.$locale->text('Select all').qq|"> - $done - $close_next |; - } - - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } - - print qq| -</form> - -</body> -</html> -|; - -} - - -sub update { - $form->{null2} = $form->{null}; - - RC->payment_transactions(\%myconfig, \%$form); - - $i = 0; - foreach $ref (@{ $form->{PR} }) { - $i++; - $ref->{cleared} = ($form->{"cleared_$i"}) ? 1 : 0; - } - - &display_form; - -} - - -sub select_all { - - RC->payment_transactions(\%myconfig, \%$form); - - for (@{ $form->{PR} }) { $_->{cleared} = 1 } - - &display_form; - -} - - -sub done { - - $form->{callback} = "$form->{script}?path=$form->{path}&action=reconciliation&login=$form->{login}&sessionid=$form->{sessionid}"; - - $form->error($locale->text('Out of balance!')) if ($form->{difference} *= 1); - - RC->reconcile(\%myconfig, \%$form); - $form->redirect; - -} - - |