Changeset 1771 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Timestamp:

05/26/16 16:35:15 (8 years ago)

Author:

nanardon

Message:

Add log search page

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

@@ -126 +126 @@
 }
 
+=head2 getObjectFromOKey ($okey)
+
+Return the object from the db internal key
+
+=cut
+
+sub getObjectFromOKey {
+    my ($self, $okey) = @_;
+
+    my $findobj = $self->{_db}->prepare_cached(q{
+        select * from objects_table where ikey = ?
+    });
+
+    $findobj->execute($okey);
+
+    my $res = $findobj->fetchrow_hashref;
+    $findobj->finish;
+
+    if ($res) {
+        return $self->get_object($res->{relname}, $res->{name});
+    } else {
+        return;
+    }
+}
+
 sub _sync_dyn_group {
     my ($self) = @_;