using new storage method for checkout counts

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6100 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 428ba12..3fa3121 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -1667,6 +1667,14 @@ sub checked_out {
 sub _checked_out {
        my( $iscount, $e, $userid ) = @_;
 
+
+       my $meth = 'open-ils.storage.actor.user.checked_out';
+       $meth = "$meth.count" if $iscount;
+       return $U->storagereq($meth, $userid);
+
+# XXX Old code - moved to storage
+#------------------------------------------------------------------------------
+#------------------------------------------------------------------------------
        my $circs = $e->search_action_circulation( 
                { usr => $userid, checkin_time => undef });