Changeset 1410
- Timestamp:
- 10/07/15 15:07:59 (9 years ago)
- Location:
- trunk/LATMOS-Accounts-Web
- Files:
-
- 2 added
- 1 deleted
- 2 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts-Web/MANIFEST
r1369 r1410 20 20 lib/LATMOS/Accounts/Web/Controller/Json.pm 21 21 lib/LATMOS/Accounts/Web/Controller/Json/FreeIp.pm 22 lib/LATMOS/Accounts/Web/Controller/Json/Info.pm 23 lib/LATMOS/Accounts/Web/Controller/Json/List.pm 22 24 lib/LATMOS/Accounts/Web/Controller/Json/RefVal.pm 23 25 lib/LATMOS/Accounts/Web/Controller/Json/Stat.pm … … 255 257 t/04config_load.t 256 258 t/controller_About.t 257 t/controller_Ajax-Services-Mailing.t258 259 t/controller_Ajax.t 259 260 t/controller_Aliases.t 260 261 t/controller_Create.t 261 262 t/controller_Groups.t 263 t/controller_Json-List.t 262 264 t/controller_Json-RefVal.t 263 265 t/controller_Json-Stat.t -
trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Json.pm
r1329 r1410 30 30 sub end : Private { 31 31 my ( $self, $c ) = @_; 32 $c->stash->{data} ||= {}; 32 33 $c->forward($c->view('Json')); 33 34 } -
trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Json/List.pm
r1409 r1410 1 package LATMOS::Accounts::Web::Controller::Json ;1 package LATMOS::Accounts::Web::Controller::Json::List; 2 2 use Moose; 3 3 use namespace::autoclean; … … 7 7 =head1 NAME 8 8 9 LATMOS::Accounts::Web::Controller::Json - Catalyst Controller9 LATMOS::Accounts::Web::Controller::Json::List - Catalyst Controller 10 10 11 11 =head1 DESCRIPTION … … 25 25 my ( $self, $c ) = @_; 26 26 27 $c->response->body('Matched LATMOS::Accounts::Web::Controller::Json in Json.'); 27 my $base = $c->model('Accounts')->db; 28 my $otype = $c->req->param('otype') or return; 29 30 my @objects = $base->list_objects($otype); 31 32 $c->stash->{data} = \@objects; 33 28 34 } 29 35 30 sub end : Private { 31 my ( $self, $c ) = @_; 32 $c->forward($c->view('Json')); 33 } 36 34 37 35 38 =encoding utf8
Note: See TracChangeset
for help on using the changeset viewer.