Changeset 1410 for trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web
- Timestamp:
- 10/07/15 15:07:59 (9 years ago)
- Location:
- trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller
- Files:
-
- 1 added
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
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.