taking fees and refunds into account for circ script

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
index f1bcdd9..b876e8c 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
@@ -235,7 +235,7 @@ sub fetch_user_data {
 
                # Grab the fines
                my $fxacts = $e->search_money_open_billable_transaction_summary(
-                       { usr => $patron->id, balance_owed => { ">" => 0 } });
+                       { usr => $patron->id, balance_owed => { "!=" => 0 } });
 
                my $fines = 0;
                $fines += $_->balance_owed for @$fxacts;