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

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/BadDebt.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/BadDebt.pm
index cb7c322..72cce27 100644 (file)
--- 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') {