added MAXFINES circs to the list of checked out items

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index 18093d4..69579ea 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -1614,6 +1614,17 @@ sub _checked_out {
        my $circs = $e->search_action_circulation( 
                { usr => $userid, stop_fines => undef });
 
+       my $mcircs = $e->search_action_circulation( 
+               { 
+                       usr => $userid, 
+                       checkin_time => undef, 
+                       xact_finish => undef, 
+                       stop_fines => OILS_STOP_FINES_MAX_FINES 
+               });
+
+       
+       push( @$circs, @$mcircs );
+
        my $parser = DateTime::Format::ISO8601->new;
 
        # split the circs up into overdue and not-overdue circs

diff --git a/Open-ILS/src/perlmods/OpenILS/Const.pm b/Open-ILS/src/perlmods/OpenILS/Const.pm
index e9cf3b5..4e4b7e7 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Const.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Const.pm
@@ -66,6 +66,7 @@ econst OILS_STOP_FINES_RENEW          => 'RENEW';
 econst OILS_STOP_FINES_LOST           => 'LOST';
 econst OILS_STOP_FINES_CLAIMSRETURNED => 'CLAIMSRETURNED';
 econst OILS_STOP_FINES_LONGOVERDUE    => 'LONGOVERDUE';
+econst OILS_STOP_FINES_MAX_FINES      => 'MAXFINES';
 econst OILS_UNLIMITED_CIRC_DURATION   => 'unlimited';
 
 # ---------------------------------------------------------------------