127 lines
3.1 KiB
Perl
127 lines
3.1 KiB
Perl
package Pear::LocalLoop::Controller::Admin::Categories;
|
|
use Mojo::Base 'Mojolicious::Controller';
|
|
|
|
has result_set => sub {
|
|
my $c = shift;
|
|
return $c->schema->resultset('Category');
|
|
};
|
|
|
|
sub idx {
|
|
my $c = shift;
|
|
|
|
my $category_rs = $c->result_set;
|
|
$category_rs->result_class('DBIx::Class::ResultClass::HashRefInflator');
|
|
$c->stash( categories => [ $category_rs->all ] );
|
|
|
|
return 1;
|
|
}
|
|
|
|
# POST
|
|
sub create {
|
|
my $c = shift;
|
|
|
|
my $validation = $c->validation;
|
|
$validation->required( 'category', 'trim' )
|
|
->not_in_resultset( 'name', $c->result_set );
|
|
|
|
my $category_name = $validation->param('category');
|
|
|
|
if ( $validation->has_error ) {
|
|
my $check = shift @{ $c->validation->error('category') };
|
|
if ( $check eq 'required' ) {
|
|
$c->flash( error => 'Category name is required' );
|
|
}
|
|
elsif ( $check eq 'like' ) {
|
|
$c->flash( error =>
|
|
'Category name not valid - Alphanumeric characters and Underscore only'
|
|
);
|
|
}
|
|
elsif ( $check eq 'not_in_resultset' ) {
|
|
$c->flash( error => 'Category Already Exists' );
|
|
}
|
|
}
|
|
else {
|
|
$c->flash( success => 'Category Created' );
|
|
$c->result_set->create( { name => $category_name } );
|
|
}
|
|
$c->redirect_to('/admin/categories');
|
|
|
|
return 1;
|
|
}
|
|
|
|
# GET
|
|
sub get {
|
|
my $c = shift;
|
|
|
|
my $id = $c->param('id');
|
|
|
|
if ( my $category = $c->result_set->find($id) ) {
|
|
$c->stash( category => $category );
|
|
}
|
|
else {
|
|
$c->flash( error => 'No Category found' );
|
|
$c->redirect_to('/admin/categories');
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
# POST
|
|
sub update {
|
|
my $c = shift;
|
|
my $validation = $c->validation;
|
|
$validation->required('id');
|
|
$validation->required( 'category', 'trim' )->like(qr/^[\w]*$/);
|
|
$validation->optional('line_icon');
|
|
|
|
my $id = $c->param('id');
|
|
|
|
if ( $validation->has_error ) {
|
|
my $names = $validation->failed;
|
|
$c->flash(
|
|
error => 'Error in submitted data: ' . join( ', ', @$names ) );
|
|
$c->redirect_to( '/admin/categories/' . $id );
|
|
}
|
|
elsif ( my $category = $c->result_set->find($id) ) {
|
|
$category->update(
|
|
{
|
|
id => $validation->param('id'),
|
|
name => $validation->param('category'),
|
|
line_icon => (
|
|
defined $validation->param('line_icon')
|
|
? $validation->param('line_icon')
|
|
: undef
|
|
),
|
|
}
|
|
);
|
|
$c->flash( success => 'Category Updated' );
|
|
$c->redirect_to( '/admin/categories/' . $validation->param('id') );
|
|
}
|
|
else {
|
|
$c->flash( error => 'No Category found' );
|
|
$c->redirect_to('/admin/categories');
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
# DELETE
|
|
sub del {
|
|
my $c = shift;
|
|
|
|
my $id = $c->param('id');
|
|
|
|
if ( my $category = $c->result_set->find($id) ) {
|
|
$category->transaction_category->delete;
|
|
$category->delete;
|
|
$c->flash( success => 'Category Deleted' );
|
|
}
|
|
else {
|
|
$c->flash( error => 'No Category found' );
|
|
}
|
|
$c->redirect_to('/admin/categories');
|
|
|
|
return 1;
|
|
}
|
|
|
|
1;
|