From 12c3dd237b1052961afb202733f91c7fa99732c6 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Thu, 3 Mar 2005 19:16:04 +0000
Subject: [PATCH] added .slot.find for bill

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@168 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/Application/Persist.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/perlmods/OpenSRF/Application/Persist.pm b/src/perlmods/OpenSRF/Application/Persist.pm
index 379aa1a..3a5e2ce 100644
--- a/src/perlmods/OpenSRF/Application/Persist.pm
+++ b/src/perlmods/OpenSRF/Application/Persist.pm
@@ -160,6 +160,21 @@ __PACKAGE__->register_method(
 	argc => 2,
 );
 
+sub find_slot {
+	my $self = shift;
+	my $client = shift;
+	my $slot = shift;
+
+	my $sid = _get_name_id($slot);
+	return $slot if ($sid);
+	return undef;
+}
+__PACKAGE__->register_method(
+	api_name => 'opensrf.persist.slot.find',
+	method => 'find_slot',
+	argc => 2,
+);
+
 sub get_expire_interval {
 	my $self = shift;
 	my $client = shift;
-- 
2.43.2