From 36ffd5c7be990d221e84ddded29977c175aac2d6 Mon Sep 17 00:00:00 2001 From: phasefx Date: Wed, 21 Dec 2005 15:21:02 +0000 Subject: [PATCH] tip-toeing into middle layer. different payment types require different fields git-svn-id: svn://svn.open-ils.org/ILS/trunk@2499 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm index d4429b755e..b86727003a 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm @@ -65,6 +65,8 @@ sub make_payments { my $drawer = $payments->{cash_drawer}; my $userid = $payments->{userid}; my $note = $payments->{note}; + my $cc_type = $payments->{cc_type} || 'n/a'; + my $check_number = $payments->{check_number} || 'n/a'; for my $pay (@{$payments->{payments}}) { @@ -86,7 +88,9 @@ sub make_payments { $payobj->accepting_usr($user->id); $payobj->xact($transid); $payobj->note($note); - $payobj->cash_drawer($drawer); + if ($payobj->has_field('cash_drawer')) $payobj->cash_drawer($drawer); + if ($payobj->has_field('cc_type')) $payobj->cc_type($cc_type); + if ($payobj->has_field('check_number')) $payobj->check_number($check_number); # update the transaction if it's done if( ($trans->balance_owed - $amount) <= 0 ) { -- 2.43.2