lib/ComponentUI/Controller/TestModel/Bar.pm

   1 package ComponentUI::Controller::TestModel::Bar;
   2
   3 use Reaction::Class;
   4 BEGIN { extends 'Reaction::UI::Controller::Collection::CRUD'; }
   5
   6 __PACKAGE__->config(
   7   model_name => 'TestModel',
   8   collection_name => 'Bar',
   9   action => {
  10     base => { Chained => '/base', PathPart => 'testmodel/bar' },
  11     create => { ViewPort => { layout => 'bar/create' } },
  12     list => {
  13       ViewPort => {
  14         enable_order_by => [qw/name foo published_at/],
  15         coerce_order_by => { foo => ['foo.last_name', 'foo.first_name'] },
  16         layout => 'bar/collection',
  17         member_class => 'Reaction::UI::ViewPort::Object',
  18         Member => { layout => 'bar/member' }
  19       },
  20     },
  21   },
  22 );
  23
  24 around get_collection => sub {
  25   my ($orig, $self, $c) = @_;
  26   my $collection = $self->$orig($c);
  27   return $collection->where({}, { prefetch => 'foo' });
  28 };
  29
  30 1;
  31
  32 __END__;
  33
  34 #put this aside for now
  35 sub create :Chained('base') {
  36   my $self = shift;
  37   my ($c) = @_;
  38   my $action_vp = $self->next::method(@_);
  39   my $self_uri = $c->uri_for($self->action_for('create'));
  40   $action_vp->action($self_uri);
  41
  42   my $params = $c->request->parameters;
  43   if ( defined $params->{return_to_uri} && $params->{return_to_uri} ){
  44     if( $params->{return_to_uri} ne $c->request->uri ){
  45       $action_vp->layout_args->{return_to_uri} = $params->{return_to_uri};
  46     }
  47   } elsif( $c->request->referer ne $c->request->uri) {
  48     $action_vp->layout_args->{return_to_uri} = $c->request->referer;
  49   }
  50
  51   return $action_vp;
  52 }
  53
  54 sub on_create_close_callback {
  55   my($self, $c, $vp) = @_;
  56   if ( my $return_to_uri =  delete $c->request->parameters->{return_to_uri} ){
  57     $c->response->redirect( $return_to_uri );
  58   } else {
  59     $self->redirect_to( $c, 'list' );
  60   }
  61   $c->detach;
  62 }
  63
  64 1;