Changeset 1771

Timestamp:

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

Author:

nanardon

Message:

Add log search page

Location:

trunk

Files:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Json/List.pm (modified) (1 diff)
• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Logs.pm (added)
• LATMOS-Accounts-Web/root/html/logs (added)
• LATMOS-Accounts-Web/root/html/logs/index.tt (added)
• LATMOS-Accounts-Web/t/controller_Logs.t (added)
• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm (modified) (1 diff)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Json/List.pm

@@ -29 +29 @@
 
     my @objects = $base->list_objects($otype);
+    if (my $term = $c->req->param('term')) {
+        @objects = grep { /\E$term\Q/ } @objects;
+    }
 
     $c->stash->{data} = \@objects;
+    #[ map { { label => $_ } } @objects ];
 
 }

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) = @_;