checking for billing completeness as well as checkin completeness for SC display

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm
index 61b0c13..ef9f28b 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm
@@ -70,7 +70,7 @@ sub usr_breakdown_out {
        my $lost_sql = <<"      SQL";
                        SELECT  id
                          FROM  action.circulation
-                         WHERE usr = ? AND checkin_time IS NULL AND stop_fines = 'LOST'
+                         WHERE usr = ? AND checkin_time IS NULL AND xact_finish IS NULL AND stop_fines = 'LOST'
        SQL
 
        my $lost = actor::user->db_Main->selectcol_arrayref($lost_sql, {}, $usr);
@@ -78,7 +78,7 @@ sub usr_breakdown_out {
        my $cl_sql = <<"        SQL";
                        SELECT  id
                          FROM  action.circulation
-                         WHERE usr = ? AND checkin_time IS NULL AND stop_fines = 'CLAIMSRETURNED'
+                         WHERE usr = ? AND checkin_time IS NULL AND xact_finish IS NULL AND stop_fines = 'CLAIMSRETURNED'
        SQL
 
        my $cl = actor::user->db_Main->selectcol_arrayref($cl_sql, {}, $usr);