From 3e5eba9ebdafe5f35dcdb36c496f2f36eabfc322 Mon Sep 17 00:00:00 2001 From: dbs Date: Mon, 31 Jan 2011 03:41:40 +0000 Subject: [PATCH] The new, ultra-basic tests caught this syntax error in BadDebt.pm Yay for ultra-basic tests! git-svn-id: svn://svn.open-ils.org/ILS/trunk@19343 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/lib/OpenILS/WWW/BadDebt.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/BadDebt.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/BadDebt.pm index cb7c322d69..72cce27a94 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/BadDebt.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/BadDebt.pm @@ -100,7 +100,7 @@ sub handler { my $w; if ($s->xact_type eq 'circulation') { - $w = $cstore->request('open-ils.cstore.direct.action.circulation.retrieve' => $xact)->gather(1)->circ_lib : + $w = $cstore->request('open-ils.cstore.direct.action.circulation.retrieve' => $xact)->gather(1)->circ_lib; } elsif ($s->xact_type eq 'grocery') { $w = $cstore->request('open-ils.cstore.direct.money.grocery.retrieve' => $xact)->gather(1)->billing_location; } elsif ($s->xact_type eq 'reservation') { -- 2.11.0