$::lxdebug->leave_sub;
}
-sub continue { call_sub($main::form->{"nextsub"}); }
+sub continue { call_sub($::form->{"nextsub"}); }
sub get_payments {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
-
- $main::auth->assert('cash');
+ $::lxdebug->enter_sub;
+ $::auth->assert('cash');
- ($form->{accno}, $form->{account}) = split /--/, $form->{accno};
+ ($::form->{accno}, $::form->{account}) = split /--/, $::form->{accno};
- RC->payment_transactions(\%myconfig, \%$form);
+ RC->payment_transactions(\%::myconfig, $::form);
- &display_form;
+ display_form();
- $main::lxdebug->leave_sub();
+ $::lxdebug->leave_sub;
}
sub display_form {
}
sub update {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
-
- $main::auth->assert('cash');
+ $::lxdebug->enter_sub;
+ $::auth->assert('cash');
- RC->payment_transactions(\%myconfig, \%$form);
+ RC->payment_transactions(\%::myconfig, $::form);
my $i;
- foreach my $ref (@{ $form->{PR} }) {
- if (!$ref->{fx_transaction}) {
- $i++;
- $ref->{cleared} = ($form->{"cleared_$i"}) ? "checked" : "";
- }
+ for my $ref (@{ $::form->{PR} }) {
+ next if $ref->{fx_transaction};
+ $i++;
+ $ref->{cleared} = $::form->{"cleared_$i"};
}
- &display_form;
-
- $main::lxdebug->leave_sub();
-}
-
-sub select_all {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
-
- $main::auth->assert('cash');
-
- RC->payment_transactions(\%myconfig, \%$form);
-
- map { $_->{cleared} = "checked" unless $_->{fx_transaction} }
- @{ $form->{PR} };
-
- &display_form;
+ display_form();
- $main::lxdebug->leave_sub();
+ $::lxdebug->leave_sub;
}
sub done {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
- my $locale = $main::locale;
-
- $main::auth->assert('cash');
+ $::lxdebug->enter_sub;
+ $::auth->assert('cash');
- $form->{callback} = "$form->{script}?action=reconciliation";
+ $::form->{callback} = "$::form->{script}?action=reconciliation";
- $form->error($locale->text('Out of balance!')) if ($form->{difference} *= 1);
+ $::form->error($::locale->text('Out of balance!')) if $::form->{difference} *= 1;
- RC->reconcile(\%myconfig, \%$form);
- $form->redirect;
+ RC->reconcile(\%::myconfig, $::form);
+ $::form->redirect;
- $main::lxdebug->leave_sub();
+ $::lxdebug->leave_sub;
}
[%- USE L %]
[%- USE T8 %]
[%- USE LxERP %]
+[%- L.javascript_tag('jquery.checkall') %]
<body>
<h1>[% accno | html %]--[% account | html %]</h1>
<table width=100%>
<tr class=listheading>
- <th> </th>
+ <th>[% L.checkbox_tag('checkall_checkboxes', checkall='input.checkall') %]</th>
<th>[% 'Date' | $T8 %]</th>
<th>[% 'Source' | $T8 %]</th>
<th>[% 'Description' | $T8 %]</th>
[%- IF row.fx_transaction %]
[% L.hidden_tag('fxoid_' _ row.i, row.oid) %]
[%- ELSE %]
- [% L.checkbox_tag('cleared_' _ row.i, checked=row.cleared) %]
+ [% L.checkbox_tag('cleared_' _ row.i, class='checkall', checked=row.cleared) %]
[% L.hidden_tag('oid_' _ row.i, row.oid) %]
[%- END %]
</td>
<br>
<input type=submit class=submit name=action value="[% 'Update' | $T8 %]">
-<input type=submit class=submit name=action value="[% 'Select all' | $T8 %]">
<input type=submit class=submit name=action value="[% 'Done' | $T8 %]">
</form>