aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ComponentUI/Controller/TestModel/Bar.pm
blob: 7ede58e14443e2dbffca09fa64d712bf1fed8d69 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
package ComponentUI::Controller::TestModel::Bar;

use base 'Reaction::UI::Controller::Collection::CRUD';
use Reaction::Class;

__PACKAGE__->config(
  model_name => 'TestModel',
  collection_name => 'Bar',
  action => {
    base => { Chained => '/base', PathPart => 'testmodel/bar' },
    create => { ViewPort => { layout => 'bar/create' } },
    list => {
      ViewPort => {
        enable_order_by => [qw/name foo published_at/],
        coerce_order_by => { foo => ['foo.last_name', 'foo.first_name'] },
        layout => 'bar/collection',
        member_class => 'Reaction::UI::ViewPort::Object',
        Member => { layout => 'bar/member' }
      },
    },
  },
);

around get_collection => sub {
  my ($orig, $self, $c) = @_;
  my $collection = $self->$orig($c);
  return $collection->where({}, { prefetch => 'foo' });
};

1;

__END__;

#put this aside for now
sub create :Chained('base') {
  my $self = shift;
  my ($c) = @_;
  my $action_vp = $self->next::method(@_);
  my $self_uri = $c->uri_for($self->action_for('create'));
  $action_vp->action($self_uri);

  my $params = $c->request->parameters;
  if ( defined $params->{return_to_uri} && $params->{return_to_uri} ){
    if( $params->{return_to_uri} ne $c->request->uri ){
      $action_vp->layout_args->{return_to_uri} = $params->{return_to_uri};
    }
  } elsif( $c->request->referer ne $c->request->uri) {
    $action_vp->layout_args->{return_to_uri} = $c->request->referer;
  }

  return $action_vp;
}

sub on_create_close_callback {
  my($self, $c, $vp) = @_;
  if ( my $return_to_uri =  delete $c->request->parameters->{return_to_uri} ){
    $c->response->redirect( $return_to_uri );
  } else {
    $self->redirect_to( $c, 'list' );
  }
  $c->detach;
}

1;