flow/treasuredb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed Transfer note handling in debit and credit upsert forms.

Browse Source 
Plus, explanation in the case that debit is settled / credit is spent so that checking further items is pointless.
This commit is contained in:
Florian "flowdy" Heß
2017-01-31 22:18:16 +01:00
parent e91405b041
commit 6c43accd5f
4 changed files with 36 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
TrsrDB/HTTP/Credit.pm
View File

@@ -71,6 +71,14 @@ sub upsert {
$db->make_transfers( $self->param("billId") => $to_spend_for);
}
for my $param ( grep { /^note\[/ } @{ $self->req->params->names } ) {
my $note = $self->param($param) || next;
s{^note\[}{} && s{\]$}{} for $param;
$credit->search_related(
outgoings => { billId => $param }
)->update({ note => $note });
}
$self->redirect_to('home');

15
TrsrDB/HTTP/Debit.pm
View File

@@ -105,15 +105,16 @@ sub upsert {
if ( @$to_pay_with ) {
my $billId = $self->param("billId");
$db->make_transfers( $to_pay_with => $billId );
for my $param ( grep { /^note\[/ } @{ $self->req->params->names } ) {
my $note = $self->param($param) || next;
s{^note\[}{} && s{\]$}{} for $param;
$db->resultset("Transfer")->find({
billId => $self->param("billId"), credId => $param
})->update({ note => $note });
}
}
for my $param ( grep { /^note\[/ } @{ $self->req->params->names } ) {
my $note = $self->param($param) || next;
s{^note\[}{} && s{\]$}{} for $param;
$debit->search_related(
incomings => { credId => $param }
)->update({ note => $note });
}
$self->redirect_to('home');
}