projekt kivitendo

  my ($self) = @_;

  SL::DB::Manager::PartsGroup->get_all_sorted(query => [ or => [ id => $self->part->partsgroup_id, obsolete => 0 ] ]);

package SL::Controller::PartsGroup;

use strict;

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

use SL::Helper::Flash;

use SL::Locale::String;

use SL::DB::Default;

use SL::DB::Manager::PartsGroup;

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

  scalar                  => [ qw(partsgroup) ],

  'scalar --get_set_init' => [ qw(all_partsgroups) ],

);

__PACKAGE__->run_before('check_auth');

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

#

# actions

#

sub action_list {

  my ($self) = @_;

  $self->render('partsgroup/list',

                title   => t8('Partsgroups'),

               );

}

sub action_new {

  my ($self) = @_;

  $self->partsgroup( SL::DB::PartsGroup->new );

  $self->render('partsgroup/form',

                 title => t8('Add partsgroup'),

               );

}

sub action_edit {

  my ($self) = @_;

  $self->render('partsgroup/form',

                 title   => t8('Edit partsgroup'),

                );

}

sub action_create {

  my ($self) = @_;

  $self->partsgroup( SL::DB::PartsGroup->new );

  $self->create_or_update;

}

sub action_update {

  my ($self) = @_;

  $self->create_or_update;

}

sub action_delete {

  my ($self) = @_;

  if ( !$self->partsgroup->orphaned ) {

    flash_later('error', $::locale->text('The partsgroup has been used and cannot be deleted.'));

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

    flash_later('info',  $::locale->text('The partsgroup has been deleted.'));

  } else {

    flash_later('error', $::locale->text('The partsgroup has been used and cannot be deleted.'));

  };

  $self->redirect_to(action => 'list');

}

sub action_reorder {

  my ($self) = @_;

  SL::DB::PartsGroup->reorder_list(@{ $::form->{partsgroup_id} || [] });

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

}

#

# filters

#

sub check_auth {

  $::auth->assert('config');

}

sub load_partsgroup {

  my ($self) = @_;

  $self->partsgroup( SL::DB::PartsGroup->new(id => $::form->{id})->load );

}

sub init_all_partsgroups { SL::DB::Manager::PartsGroup->get_all_sorted }

#

# helpers

#

sub create_or_update {

  my ($self) = @_;

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

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

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

  my @errors = $self->partsgroup->validate;

  if (@errors) {

    flash('error', @errors);

    $self->render('partsgroup/form',

                   title => $is_new ? t8('Add partsgroup') : t8('Edit partsgroup'),

                 );

    return;

  }

  $self->partsgroup->save;

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

  $self->redirect_to(action => 'list');

}

1;

__END__

=encoding utf-8

=head1 NAME

SL::Controller::PartsGroup - CRUD controller for partsgroups

=head1 SYNOPSIS

A new controller to create / edit / delete partsgroups.

Partsgroups can only be deleted if they haven't been used anywhere.

=head1 OBSOLETE PARTSGROUPS

A partsgroup can be deleted if it hasn't been used anywhere / is orphaned.

A partsgroup can be set to obsolete, which means new items can't be assigned

that partsgroup, but old items with that partsgroup can keep it. And you can

also still filter for these obsolete partsgroups in reports.

=head1 ISSUES

Unlike the old version (pe.pl/PE.pm), there is no way to filter/search the

partsgroups in the overview page, it always shows the complete (ordered) list,

ordered by sortkey.

=head1 AUTHOR

G. Richardson E<lt>grichardson@kivitendo-premium.deE<gt>

=cut

  return ( default => [ 'sortkey', 1 ],

  obsolete   => { type => 'boolean', default => 'false' },

  sortkey    => { type => 'integer', not_null => 1 },

use SL::DB::Helper::ActsAsList;

sub validate {

  my ($self) = @_;

  require SL::DB::Customer;

  my @errors;

  push @errors, $::locale->text('The description is missing.') if $self->id and !$self->partsgroup;

  return @errors;

}

sub orphaned {

  my ($self) = @_;

  die 'not an accessor' if @_ > 1;

  return 1 unless $self->id;

  my @relations = qw(

    SL::DB::Part

    SL::DB::CustomVariableConfigPartsgroup

  );

  for my $class (@relations) {

    eval "require $class";

    return 0 if $class->_get_manager_class->get_all_count(query => [ partsgroup_id => $self->id ]);

  }

  return 1;

}

  'Add partsgroup'              => 'Warengruppe hinzufügen',

  'Edit partsgroup'             => 'Warengruppe bearbeiten',

  'Partsgroups'                 => 'Warengruppen',

  'The partsgroup has been created.' => 'Die Warengruppe wurde erstellt.',

  'The partsgroup has been deleted.' => 'Die Warengruppe wurde gelöscht.',

  'The partsgroup has been saved.' => 'Die Warengruppe wurde gespeichert.',

  'The partsgroup has been used and cannot be deleted.' => 'Die Warengruppe wurde bereits verwendet und kann nicht gelöscht werden.',

  'Add partsgroup'              => '',

  'Edit partsgroup'             => '',

  'Partsgroup'                  => '',

  'Partsgroups'                 => '',

  'The partsgroup has been created.' => '',

  'The partsgroup has been deleted.' => '',

  'The partsgroup has been saved.' => '',

  'The partsgroup has been used and cannot be deleted.' => '',

  id: system_partsgroups

  name: Partsgroups

    action: PartsGroup/list

-- @tag: partsgroup_sortkey_obsolete

-- @description: Sortierreihenfolge und ungültig für Warengruppen

-- @charset: UTF-8

-- @depends: release_3_4_1

-- @ignore: 0

ALTER TABLE partsgroup ADD COLUMN obsolete BOOLEAN DEFAULT FALSE;

ALTER TABLE partsgroup ADD COLUMN sortkey INTEGER;

CREATE SEQUENCE tmp_counter;

UPDATE partsgroup SET sortkey = nextval('tmp_counter');

DROP SEQUENCE tmp_counter;

ALTER TABLE partsgroup ALTER COLUMN sortkey SET NOT NULL;

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

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

[% SET size=15 %]

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

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

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

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

<table>

  <tr>

    <th align="right">[% 'Description' | $T8 %]</th>

    <td>

       [%- L.input_tag("partsgroup.partsgroup", SELF.partsgroup.partsgroup) %]

   </td>

  [% IF SELF.partsgroup.id %]

  <tr>

    <th align="right">[% 'Obsolete' | $T8 %]</th>

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

  </tr>

  </tr>

  [% END %]

</table>

 <p>

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

  [% L.submit_tag("action_" _  (SELF.partsgroup.id ? "update" : "create"), LxERP.t8('Save'), onclick="return check_prerequisites();") %]

  [%- IF SELF.partsgroup.id AND SELF.partsgroup.orphaned -%]

    [% L.submit_tag("action_delete", LxERP.t8('Delete')) %]

  [%- END %]

  <a href="[% SELF.url_for(action='list') %]">[%- LxERP.t8("Cancel") %]</a>

 </p>

 <hr>

<script type="text/javascript">

<!--

function check_prerequisites() {

  if ($('#partsgroup_partsgroup').val() === "") {

    alert(kivi.t8('The description is missing.'));

    return false;

  }

  return true;

}

-->

</script>