30 lines
566 B
Perl
30 lines
566 B
Perl
|
package Pear::LocalLoop::Controller::Admin::Feedback;
|
||
|
|
use Mojo::Base 'Mojolicious::Controller';
|
||
|
|
|
||
|
|
has result_set => sub {
|
||
|
|
my $c = shift;
|
||
|
|
return $c->schema->resultset('Feedback');
|
||
|
|
};
|
||
|
|
|
||
|
|
sub index {
|
||
|
|
my $c = shift;
|
||
|
|
|
||
|
|
my $feedback_rs = $c->result_set;
|
||
|
|
$c->stash( feedbacks => [ $feedback_rs->all ] );
|
||
|
|
}
|
||
|
|
|
||
|
|
sub read {
|
||
|
|
my $c = shift;
|
||
|
|
|
||
|
|
my $id = $c->param('id');
|
||
|
|
|
||
|
|
if ( my $feedback = $c->result_set->find($id) ) {
|
||
|
|
$c->stash( feedback => $feedback );
|
||
|
|
} else {
|
||
|
|
$c->flash( error => 'No Feedback found' );
|
||
|
|
$c->redirect_to( '/admin/feedback' );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|