[open-ils-commits] r19343 - trunk/Open-ILS/src/perlmods/lib/OpenILS/WWW (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2011-01-30 22:41:40 -0500 (Sun, 30 Jan 2011)
New Revision: 19343

Modified:
   trunk/Open-ILS/src/perlmods/lib/OpenILS/WWW/BadDebt.pm
Log:
The new, ultra-basic tests caught this syntax error in BadDebt.pm

Yay for ultra-basic tests!


Modified: trunk/Open-ILS/src/perlmods/lib/OpenILS/WWW/BadDebt.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/lib/OpenILS/WWW/BadDebt.pm	2011-01-31 03:30:42 UTC (rev 19342)
+++ trunk/Open-ILS/src/perlmods/lib/OpenILS/WWW/BadDebt.pm	2011-01-31 03:41:40 UTC (rev 19343)
@@ -100,7 +100,7 @@
             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') {