added .slot.find for bill

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@168 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/OpenSRF/Application/Persist.pm b/src/perlmods/OpenSRF/Application/Persist.pm
index 379aa1a..3a5e2ce 100644 (file)
--- 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;