sub reconciliation {
$lxdebug->enter_sub();
+ $auth->assert('cash');
+
RC->paymentaccounts(\%myconfig, \%$form);
$selection = "";
<br>
<input type=hidden name=nextsub value=get_payments>
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
<input type=submit class=submit name=action value="|
. $locale->text('Continue') . qq|">
sub get_payments {
$lxdebug->enter_sub();
+ $auth->assert('cash');
+
($form->{accno}, $form->{account}) = split /--/, $form->{accno};
RC->payment_transactions(\%myconfig, \%$form);
sub display_form {
$lxdebug->enter_sub();
+ $auth->assert('cash');
+
@column_index = qw(cleared transdate source name credit debit balance);
$column_header{cleared} = "<th> </th>";
<input type=hidden name=fromdate value=$form->{fromdate}>
<input type=hidden name=todate value=$form->{todate}>
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
<br>
<input type=submit class=submit name=action value="|
. $locale->text('Update') . qq|">
sub update {
$lxdebug->enter_sub();
+ $auth->assert('cash');
+
RC->payment_transactions(\%myconfig, \%$form);
foreach $ref (@{ $form->{PR} }) {
sub select_all {
$lxdebug->enter_sub();
+ $auth->assert('cash');
+
RC->payment_transactions(\%myconfig, \%$form);
map { $_->{cleared} = "checked" unless $_->{fx_transaction} }
sub done {
$lxdebug->enter_sub();
- $form->{callback} =
- "$form->{script}?path=$form->{path}&action=reconciliation&login=$form->{login}&password=$form->{password}";
+ $auth->assert('cash');
+
+ $form->{callback} = "$form->{script}?action=reconciliation";
$form->error($locale->text('Out of balance!')) if ($form->{difference} *= 1);