projekt kivitendo

package SL::Controller::SimpleSystemSetting;

use strict;

use utf8;

use parent qw(SL::Controller::Base);

use SL::Helper::Flash;

use SL::Locale::String;

use SL::DB::Default;

use SL::System::Process;

use Rose::Object::MakeMethods::Generic (

  scalar                  => [ qw(type config) ],

  'scalar --get_set_init' => [ qw(defaults object all_objects class manager_class list_attributes list_url supports_reordering) ],

);

__PACKAGE__->run_before('check_type_and_auth');

__PACKAGE__->run_before('setup_javascript', only => [ qw(add create edit update delete) ]);

# Make locales.pl happy: $self->render("simple_system_setting/_default_form")

my %supported_types = (

  pricegroup => {

    # Make locales.pl happy: $self->render("simple_system_setting/_pricegroup_form")

    class  => 'Pricegroup',

    titles => {

      list => t8('Pricegroups'),

      add  => t8('Add pricegroup'),

      edit => t8('Edit pricegroup'),

    },

    list_attributes => [

      { method => 'pricegroup', title => t8('Description') },

      { method => 'obsolete',   title => t8('Obsolete'), formatter => sub { $_[0]->obsolete ? t8('yes') : t8('no') } },

    ],

  },

);

my @default_list_attributes = (

  { method => 'description', title => t8('Description') },

);

#

# actions

#

sub action_list {

  my ($self) = @_;

  $self->render('simple_system_setting/list', title => $self->config->{titles}->{list});

}

sub action_new {

  my ($self) = @_;

  $self->object($self->class->new);

  $self->render_form(title => $self->config->{titles}->{add});

}

sub action_edit {

  my ($self) = @_;

  $self->render_form(title => $self->config->{titles}->{edit});

}

sub action_create {

  my ($self) = @_;

  $self->object($self->class->new);

  $self->create_or_update;

}

sub action_update {

  my ($self) = @_;

  $self->create_or_update;

}

sub action_delete {

  my ($self) = @_;

  if ($self->object->can('orphaned') && !$self->object->orphaned) {

    flash_later('error', t8('The object is in use and cannot be deleted.'));

  } elsif ( eval { $self->object->delete; 1; } ) {

    flash_later('info',  t8('The object has been deleted.'));

  } else {

    flash_later('error', t8('The object is in use and cannot be deleted.'));

  }

  $self->redirect_to($self->list_url);

}

sub action_reorder {

  my ($self) = @_;

  $self->class->reorder_list(@{ $::form->{object_id} || [] });

  $self->render(\'', { type => 'json' });

}

#

# filters

#

sub check_type_and_auth {

  my ($self) = @_;

  $self->type($::form->{type});

  $self->config($supported_types{$self->type}) || die "Unsupported type";

  $::auth->assert($self->config->{auth} || 'config');

  my $pm = (map { s{::}{/}g; "${_}.pm" } $self->class)[0];

  require $pm;

  my $setup = "setup_" . $self->type;

  $self->$setup if $self->can($setup);

  1;

}

sub setup_javascript {

  $::request->layout->use_javascript("${_}.js") for qw(ckeditor/ckeditor ckeditor/adapters/jquery);

}

sub init_class               { "SL::DB::"          . $_[0]->config->{class}                  }

sub init_manager_class       { "SL::DB::Manager::" . $_[0]->config->{class}                  }

sub init_object              { $_[0]->class->new(id => $::form->{id})->load                  }

sub init_all_objects         { $_[0]->manager_class->get_all_sorted                          }

sub init_list_url            { $_[0]->url_for(action => 'list', type => $_[0]->type)         }

sub init_supports_reordering { $_[0]->class->new->can('reorder_list')                        }

sub init_defaults            { SL::DB::Default->get                                          }

sub init_list_attributes {

  my ($self) = @_;

  my $method = "list_attributes_" . $self->type;

  return $self->$method if $self->can($method);

  return $self->config->{list_attributes} // \@default_list_attributes;

}

#

# helpers

#

sub create_or_update {

  my ($self) = @_;

  my $is_new = !$self->object->id;

  my $params = delete($::form->{object}) || { };

  $self->object->assign_attributes(%{ $params });

  my @errors;

  push @errors, $self->object->validate if $self->object->can('validate');

  if (@errors) {

    flash('error', @errors);

    return $self->render_form(title => $self->config->{titles}->{$is_new ? 'add' : 'edit'});

  }

  $self->object->save;

  flash_later('info', $is_new ? t8('The object has been created.') : t8('The object has been saved.'));

  $self->redirect_to($self->list_url);

}

sub render_form {

  my ($self, %params) = @_;

  my $sub_form_template = SL::System::Process->exe_dir . '/templates/webpages/simple_system_setting/_' . $self->type . '_form.html';

  $self->render(

    'simple_system_setting/form',

    %params,

    sub_form_template => (-f $sub_form_template ? $self->type : 'default'),

  );

}

#

# type-specific helper functions

#

1;

__END__

=encoding utf-8

=head1 NAME

SL::Controller::SimpleSystemSettings — a common CRUD controller for

various settings in the "System" menu

=head1 AUTHOR

Moritz Bunkus <m.bunkus@linet-services.de>

=cut

  'The object has been created.' => 'Das Objekt wurde angelegt.',

  'The object has been deleted.' => 'Das Objekt wurde gelöscht..',

  'The object has been saved.'  => 'Das Objekt wurde gespeichert.',

  'The object is in use and cannot be deleted.' => 'Das Objekt ist in Benutzung und kann nicht gelöscht werden.',

    action: SimpleSystemSetting/list

    type: pricegroup

[%- USE LxERP -%][%- USE L -%]

<table>

 <tr>

  <th align="right">[% LxERP.t8("Description") %]</th>

  <td>[% L.input_tag("object.description", LxERP.t8(SELF.object.description), "data-validate"="required", "data-title"=LxERP.t8("Description")) %]</td>

 </tr>

</table>

[%- USE LxERP -%][%- USE L -%]

<table>

 <tr>

  <th align="right">[% LxERP.t8("Description") %]</th>

  <td>

   [%- L.input_tag("object.pricegroup", SELF.object.pricegroup, "data-validate"="required", "data-title"=LxERP.t8("Description")) %]

  </td>

 </tr>

 <tr>

  <th align="right">[% LxERP.t8("Obsolete") %]</th>

  <td>[% L.checkbox_tag("object.obsolete", checked=SELF.object.obsolete, for_submit=1) %]</td>

 </tr>

</table>

[%- USE HTML -%][%- USE LxERP -%][%- USE L -%][%- USE T8 -%]

[% SET style="width: 400px" %]

[% SET size=15 %]

<h1>[% HTML.escape(title) %]</h1>

[%- INCLUDE "common/flash.html" %]

<form action="controller.pl" method="post" id="form">

 [%- L.hidden_tag("type", SELF.type) %]

 [%- L.hidden_tag("id", SELF.object.id) %]

 [%- SET sub_file = "simple_system_setting/_" _ sub_form_template _ "_form.html";

     INCLUDE $sub_file %]

 <p>

  [% L.hidden_tag("action", "SimpleSystemSetting/dispatch") %]

  [% L.submit_tag("action_" _  (SELF.object.id ? "update" : "create"), LxERP.t8("Save"), onclick="return kivi.validate_form('#form');") %]

  [%- IF SELF.object.id && (!SELF.object.can("orphaned") || SELF.object.orphaned) -%]

    [% L.submit_tag("action_delete", LxERP.t8("Delete"), confirm=LxERP.t8("Do you really want to delete this object?")) %]

  [%- END %]

  <a href="[% SELF.list_url %]">[%- LxERP.t8("Cancel") %]</a>

 </p>

</form>

[%- USE HTML -%][%- USE LxERP -%][%- USE L -%][%- USE T8 -%]

<h1>[% HTML.escape(title) %]</h1>

[%- INCLUDE 'common/flash.html' %]

<table width="100%" id="object_list">

 <thead>

  <tr class="listheading">

   [% IF SELF.supports_reordering %]

    <th align="center" width="1%"><img src="image/updown.png" alt="[ LxERP.t8('reorder item') %]"></th>

   [% END %]

   [% FOREACH attribute = SELF.list_attributes %]

    <th[% IF attribute.align %] align="[% attribute.align %]"[% END %]>[% HTML.escape(attribute.title) %]</th>

   [% END %]

  </tr>

 </thead>

 <tbody>

  [%- FOREACH object = SELF.all_objects %]

   <tr class="listrow" id="object_id_[% object.id %]">

   [% IF SELF.supports_reordering %]

    <td align="center" class="dragdrop">[% L.img_tag(src="image/updown.png", alt=LxERP.t8("reorder item")) %]</td>

   [% END %][%# IF SELF.supports_reordering %]

   [% FOREACH attribute = SELF.list_attributes %]

    <td[% IF attribute.align %] align="[% attribute.align %]"[% END %]>

     [% IF loop.count == 1 %]

      <a href="[% SELF.url_for(action='edit', type=SELF.type, id=object.id) %]">

     [% END %][%# IF loop.count == 0 %]

     [% SET method = attribute.method

            value  = attribute.exists('formatter') ? attribute.formatter(object) : object.$method ;

        HTML.escape(value) %]

     [% IF loop.count == 1 %]

      </a>

     [% END %][%# IF loop.count == 0 %]

    </td>

   [% END %][%# FOREACH attribute… %]

   </tr>

  [%- END %][%# FOREACH object… %]

 </tbody>

</table>

<hr height="3">

<p>

 <a href="[% SELF.url_for(action="new", type=SELF.type) %]">[%- "Add" | $T8 %]</a>

</p>

[% IF SELF.supports_reordering %]

[% L.sortable_element("#object_list tbody", url=SELF.url_for(action="reorder", type=SELF.type), with="object_id") %]

[% END %]