From 747394652bfeba319c5e1b5c63fbec3c544c65e9 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 17 Feb 2006 19:48:52 +0000
Subject: [PATCH] adding open-ils.actor.user.checked_out.count from the wiki
 todo

git-svn-id: svn://svn.open-ils.org/ILS/trunk@3103 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../src/perlmods/OpenILS/Application/Actor.pm | 42 +++++++++++++++++++
 1 file changed, 42 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index af4b028064..46f44b40fa 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -17,11 +17,15 @@ use OpenILS::Utils::Fieldmapper;
 use OpenILS::Application::Search::Actor;
 use OpenILS::Utils::ModsParser;
 use OpenSRF::Utils::Logger qw/$logger/;
+use OpenSRF::Utils qw/:datetime/;
 
 use OpenSRF::Utils::Cache;
 
+use DateTime;
+use DateTime::Format::ISO8601;
 
 use OpenILS::Application::Actor::Container;
+
 sub initialize {
 	OpenILS::Application::Actor::Container->initialize();
 }
@@ -1453,6 +1457,44 @@ sub user_transaction_retrieve {
 	return {transaction => $trans, circ => $circ, record => $mods };
 }
 
+
+__PACKAGE__->register_method(
+	method	=> "checkedout_count",
+	api_name	=> "open-ils.actor.user.checked_out.count",
+	argc		=> 1,
+	notes		=> <<"	NOTES");
+	Returns a transaction record
+	NOTES
+sub checkedout_count {
+	my( $self, $client, $login_session, $userid ) = @_;
+
+	my( $user_obj, $target, $evt ) = $apputils->checkses_requestor(
+		$login_session, $userid, 'VIEW_CIRCULATIONS' );
+	return $evt if $evt;
+	
+
+	my $circs = $apputils->simple_scalar_request(
+			"open-ils.storage",
+			"open-ils.storage.direct.action.circulation.search_where.atomic",
+			{ usr => $userid,
+			  checkin_time => {"=" => undef } }
+	);
+
+	my $parser = DateTime::Format::ISO8601->new;
+
+	my (@out,@overdue);
+	for my $c (@$circs) {
+		my $due_dt = $parser->parse_datetime( clense_ISO8601( $c->due_date ) );
+		my $due = $due_dt->epoch;
+
+		if ($due < time) {
+			push @overdue, $c;
+		}
+	}
+
+	return { total => scalar(@$circs), overdue => scalar(@overdue) };
+}
+
 __PACKAGE__->register_method(
 	method	=> "user_transaction_history",
 	api_name	=> "open-ils.actor.user.transactions.history",
-- 
2.43.2