kivitendo/SL/Controller/ReclamationReason.pm @ 912e5eff
| dd9a78c5 | Tamino Steinert | package SL::Controller::ReclamationReason;
|
|
use strict;
|
|||
use parent qw(SL::Controller::Base);
|
|||
use SL::DB::ReclamationReason;
|
|||
use SL::Helper::Flash;
|
|||
use SL::Locale::String;
|
|||
use List::MoreUtils qw(any);
|
|||
use SL::CVar;
|
|||
use Rose::Object::MakeMethods::Generic (
|
|||
scalar => [ qw(reclamation_reason) ],
|
|||
'scalar --get_set_init' => [ qw(reclamation_reason) ],
|
|||
);
|
|||
__PACKAGE__->run_before('check_auth');
|
|||
__PACKAGE__->run_before('load_reclamation_reason', only => [ qw(edit delete) ]);
|
|||
sub check_auth {
|
|||
$::auth->assert('config');
|
|||
}
|
|||
#
|
|||
# actions
|
|||
#
|
|||
sub action_list {
|
|||
my ($self, %params) = @_;
|
|||
$self->setup_list_action_bar;
|
|||
$self->render(
|
|||
'reclamation_reason/list',
|
|||
title => $::locale->text('Reclamation Reasons'),
|
|||
RECLAMATION_REASONS => SL::DB::Manager::ReclamationReason->get_all_sorted(),
|
|||
);
|
|||
}
|
|||
sub action_sort_list {
|
|||
my ($self, %params) = @_;
|
|||
$self->setup_sort_list_action_bar;
|
|||
$self->render(
|
|||
'reclamation_reason/sort_list',
|
|||
title => $::locale->text('reclamation reasons'),
|
|||
RECLAMATION_REASONS => SL::DB::Manager::ReclamationReason->get_all_sorted(),
|
|||
);
|
|||
}
|
|||
sub action_new {
|
|||
my ($self) = @_;
|
|||
$self->reclamation_reason(SL::DB::ReclamationReason->new());
|
|||
$self->show_form(title => t8('Add reclamation reason'));
|
|||
}
|
|||
sub action_edit {
|
|||
my ($self) = @_;
|
|||
$self->show_form(
|
|||
title => t8('Edit reclamation reason'),
|
|||
);
|
|||
}
|
|||
sub action_save {
|
|||
my ($self) = @_;
|
|||
if ($::form->{id}) {
|
|||
$self->load_reclamation_reason();
|
|||
}
|
|||
$self->create_or_save;
|
|||
}
|
|||
sub action_delete {
|
|||
my ($self) = @_;
|
|||
if (!$self->reclamation_reason->db->with_transaction(sub {
|
|||
$self->reclamation_reason->delete();
|
|||
flash_later('info', $::locale->text('The reclamation reason has been deleted.'));
|
|||
1;
|
|||
})) {
|
|||
flash_later('error', $::locale->text('The reclamation reason is in use and cannot be deleted.'))
|
|||
};
|
|||
$self->redirect_to(action => 'list');
|
|||
}
|
|||
#
|
|||
# ajax actions
|
|||
#
|
|||
sub action_reorder {
|
|||
my ($self) = @_;
|
|||
SL::DB::ReclamationReason->reorder_list(@{ $::form->{reclamation_reason_id} || [] });
|
|||
$self->render(\'', { type => 'json' });
|
|||
}
|
|||
#
|
|||
# action bars
|
|||
#
|
|||
sub setup_form_action_bar {
|
|||
my ($self) = @_;
|
|||
my $is_new = !$self->reclamation_reason->id;
|
|||
for my $bar ($::request->layout->get('actionbar')) {
|
|||
$bar->add(
|
|||
action => [
|
|||
$is_new ? t8('Create') : t8('Save'),
|
|||
submit => [ '#form', { action => 'ReclamationReason/save' } ],
|
|||
checks => [ 'kivi.validate_form' ],
|
|||
accesskey => 'enter',
|
|||
],
|
|||
action => [
|
|||
t8('Delete'),
|
|||
submit => [ '#form', { action => 'ReclamationReason/delete' } ],
|
|||
confirm => t8('Do you really want to delete this reclamation reason?'),
|
|||
only_if => !$is_new,
|
|||
],
|
|||
link => [
|
|||
t8('Abort'),
|
|||
link => $self->url_for(action => 'list'),
|
|||
],
|
|||
);
|
|||
}
|
|||
$::request->layout->add_javascripts('kivi.Validator.js');
|
|||
}
|
|||
sub setup_list_action_bar {
|
|||
my ($self) = @_;
|
|||
for my $bar ($::request->layout->get('actionbar')) {
|
|||
$bar->add(
|
|||
link => [
|
|||
t8('Add'),
|
|||
link => $self->url_for(action => 'new'),
|
|||
],
|
|||
link => [
|
|||
t8('Sort'),
|
|||
link => $self->url_for(action => 'sort_list'),
|
|||
],
|
|||
);
|
|||
}
|
|||
}
|
|||
sub setup_sort_list_action_bar {
|
|||
my ($self) = @_;
|
|||
for my $bar ($::request->layout->get('actionbar')) {
|
|||
$bar->add(
|
|||
link => [
|
|||
t8('Add'),
|
|||
link => $self->url_for(action => 'new'),
|
|||
],
|
|||
link => [
|
|||
t8('List'),
|
|||
link => $self->url_for(action => 'list'),
|
|||
],
|
|||
);
|
|||
}
|
|||
}
|
|||
#
|
|||
# helpers
|
|||
#
|
|||
sub create_or_save {
|
|||
my ($self) = @_;
|
|||
unless ($self->reclamation_reason) {
|
|||
$self->reclamation_reason(SL::DB::ReclamationReason->new());
|
|||
}
|
|||
my $is_new = !$self->reclamation_reason->id;
|
|||
my $params = delete($::form->{reclamation_reason}) || { };
|
|||
delete $params->{id};
|
|||
my @errors;
|
|||
my $db = $self->reclamation_reason->db;
|
|||
if (!$db->with_transaction(sub {
|
|||
# assign attributes and validate
|
|||
$self->reclamation_reason->assign_attributes( %{$params} ) ;
|
|||
push(@errors, $self->reclamation_reason->validate); # check data before DB error
|
|||
if (@errors) {
|
|||
die @errors . "\n";
|
|||
};
|
|||
$self->reclamation_reason->save;
|
|||
1;
|
|||
})) {
|
|||
die @errors ? join("\n", @errors) . "\n" : $db->error . "\n";
|
|||
}
|
|||
flash_later('info', $is_new ? t8('The reclamation reason has been created.') : t8('The reclamation reason has been saved.'));
|
|||
$self->redirect_to(action => 'list');
|
|||
}
|
|||
sub show_form {
|
|||
my ($self, %params) = @_;
|
|||
$self->setup_form_action_bar;
|
|||
$self->render(
|
|||
'reclamation_reason/form',
|
|||
%params,
|
|||
);
|
|||
}
|
|||
sub load_reclamation_reason {
|
|||
my ($self) = @_;
|
|||
$self->reclamation_reason(SL::DB::ReclamationReason->new(id => $::form->{id})->load);
|
|||
}
|
|||
1;
|
|||
__END__
|
|||
=encoding utf-8
|
|||
=head1 NAME
|
|||
SL::Controller::ReclamationReason - controller for reclamation_reasons
|
|||
=head1 SYNOPSIS
|
|||
This is a small controller to add end edit reclamation_reasons.
|
|||
=head2 Key Features
|
|||
=over 4
|
|||
=item *
|
|||
Adding, editing, deleting and sorting of reclamation reasons.
|
|||
=item *
|
|||
Reasons can be valid for purchase, sales or both.
|
|||
=back
|
|||
=head1 CODE
|
|||
=head2 Layout
|
|||
=over 4
|
|||
=item * C<SL/Controller/ReclamationReason.pm>
|
|||
the controller
|
|||
=item * C<template/webpages/reclamation_reason/form.html>
|
|||
main form
|
|||
=item * C<template/webpages/reclamation_reason/list.html>
|
|||
list form
|
|||
=item * C<template/webpages/reclamation_reason/sort_list.html>
|
|||
sorting form
|
|||
=back
|
|||
=head1 AUTHOR
|
|||
Tamino Steinert E<lt>tamino.steinert@tamino.stE<gt>
|
|||
=cut
|