Changeset 1410

Timestamp:

10/07/15 15:07:59 (9 years ago)

Author:

nanardon

Message:

Add Json query url

Location:

trunk/LATMOS-Accounts-Web

Files:

• MANIFEST (modified) (2 diffs)
• lib/LATMOS/Accounts/Web/Controller/Json.pm (modified) (1 diff)
• lib/LATMOS/Accounts/Web/Controller/Json/Info.pm (added)
• lib/LATMOS/Accounts/Web/Controller/Json/List.pm (copied) (copied from trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Json.pm) (3 diffs)
• t/controller_Ajax-Services-Mailing.t (deleted)
• t/controller_Json-List.t (added)

trunk/LATMOS-Accounts-Web/MANIFEST

@@ -20 +20 @@
 lib/LATMOS/Accounts/Web/Controller/Json.pm
 lib/LATMOS/Accounts/Web/Controller/Json/FreeIp.pm
+lib/LATMOS/Accounts/Web/Controller/Json/Info.pm
+lib/LATMOS/Accounts/Web/Controller/Json/List.pm
 lib/LATMOS/Accounts/Web/Controller/Json/RefVal.pm
 lib/LATMOS/Accounts/Web/Controller/Json/Stat.pm
@@ -255 +257 @@
 t/04config_load.t
 t/controller_About.t
-t/controller_Ajax-Services-Mailing.t
 t/controller_Ajax.t
 t/controller_Aliases.t
 t/controller_Create.t
 t/controller_Groups.t
+t/controller_Json-List.t
 t/controller_Json-RefVal.t
 t/controller_Json-Stat.t

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

@@ -30 +30 @@
 sub end : Private {
     my ( $self, $c ) = @_;
+    $c->stash->{data} ||= {};
     $c->forward($c->view('Json'));
 }

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

@@ -1 @@
-package LATMOS::Accounts::Web::Controller::Json;
+package LATMOS::Accounts::Web::Controller::Json::List;
 use Moose;
 use namespace::autoclean;
@@ -7 +7 @@
 =head1 NAME
 
-LATMOS::Accounts::Web::Controller::Json - Catalyst Controller
+LATMOS::Accounts::Web::Controller::Json::List - Catalyst Controller
 
 =head1 DESCRIPTION
@@ -25 +25 @@
     my ( $self, $c ) = @_;
 
-    $c->response->body('Matched LATMOS::Accounts::Web::Controller::Json in Json.');
+    my $base = $c->model('Accounts')->db;
+    my $otype = $c->req->param('otype') or return;
+
+    my @objects = $base->list_objects($otype);
+
+    $c->stash->{data} = \@objects;
+
 }
 
-sub end : Private {
-    my ( $self, $c ) = @_;
-    $c->forward($c->view('Json'));
-}
+
 
 =encoding utf8