From 079de02c16c1bc9516cd7ff6a88ef560978c9188 Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 4 Sep 2006 16:58:36 +0000 Subject: [PATCH] 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 --- Open-ILS/src/perlmods/OpenILS/Application/Actor.pm | 11 +++++++++++ Open-ILS/src/perlmods/OpenILS/Const.pm | 1 + 2 files changed, 12 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm index 18093d42ff..69579eaa4d 100644 --- 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 e9cf3b5256..4e4b7e718e 100644 --- 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'; # --------------------------------------------------------------------- -- 2.43.2