shoving payment time into the payment object

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5567 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
index 395d809..e7ff9ff 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
@@ -250,6 +250,7 @@ sub retrieve_payments2 {
                my $type = $_->payment_type;
                my $meth = "retrieve_money_$type";
                my $p = $e->$meth($_->id) or return $e->event;
+               $p->payment_type($type);
                try {
                        $p->cash_drawer($e->retrieve_actor_workstation($p->cash_drawer));
                } catch Error with {};