From 7bf3bf914001d505bca501809fdc147dbfd71803 Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 1 Sep 2006 21:35:14 +0000 Subject: [PATCH] removed try-catch in favor of cleaner code git-svn-id: svn://svn.open-ils.org/ILS/trunk@5850 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm index 60ed9982a0..a41b892fad 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm @@ -244,6 +244,7 @@ sub retrieve_payments { } + __PACKAGE__->register_method( method => "retrieve_payments2", api_name => "open-ils.circ.money.payment.retrieve.all", @@ -264,9 +265,8 @@ sub retrieve_payments2 { 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 {}; + $p->cash_drawer($e->retrieve_actor_workstation($p->cash_drawer)) + if $p->has_field('cash_drawer'); push( @payments, $p ); } -- 2.11.0