projekt kivitendo

package SL::Controller::PartClassification;

use strict;

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

use SL::DB::PartClassification;

use SL::Helper::Flash;

use Rose::Object::MakeMethods::Generic

(

 scalar => [ qw(part_classification) ],

);

__PACKAGE__->run_before('check_auth');

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

#

# This Controller is responsible for creating,editing or deleting

# Part Classifications.

#

# The use of Part Classifications is described in SL::DB::PartClassification

#

#

# List all available part classifications

#

sub action_list {

  my ($self) = @_;

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

                title                => $::locale->text('Parts Classifications'),

                PART_CLASSIFICATIONS => SL::DB::Manager::PartClassification->get_all_sorted);

}

# A Form for a new creatable part classifications is generated

#

sub action_new {

  my ($self) = @_;

  $self->{part_classification} = SL::DB::PartClassification->new;

  $self->render('part_classification/form', title => $::locale->text('Create a new parts classification'));

}

# Edit an existing part classifications

#

sub action_edit {

  my ($self) = @_;

  $self->render('part_classification/form', title => $::locale->text('Edit parts classification'));

}

# A new part classification is saved

#

sub action_create {

  my ($self) = @_;

  $self->{part_classification} = SL::DB::PartClassification->new;

  $self->create_or_update;

}

# An existing part classification is saved

#

sub action_update {

  my ($self) = @_;

  $self->create_or_update;

}

# An existing part classification is deleted

#

# The basic classifications cannot be deleted, also classifications which are in use

#

sub action_destroy {

  my ($self) = @_;

  if ( $self->{part_classification}->id < 5 ) {

    flash_later('error', $::locale->text('The basic parts classification cannot be deleted.'));

  }

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

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

  } else {

    flash_later('error', $::locale->text('The parts classification is in use and cannot be deleted.'));

  }

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

}

# reordering the lines

#

sub action_reorder {

  my ($self) = @_;

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

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

}

#

# filters

#

# check authentication, only "config" is allowed

#

sub check_auth {

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

}

#

# helpers

#

# submethod for update the database

#

sub create_or_update {

  my $self   = shift;

  my $is_new = !$self->{part_classification}->id;

  $::form->{part_classification}->{used_for_purchase} = 0 if ! $::form->{part_classification}->{used_for_purchase};

  $::form->{part_classification}->{used_for_sale}     = 0 if ! $::form->{part_classification}->{used_for_sale};

  $::form->{part_classification}->{report_separate}   = 0 if ! $::form->{part_classification}->{report_separate};

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

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

  my @errors = $self->{part_classification}->validate;

  if (@errors) {

    flash('error', @errors);

    $self->render('part_classification/form', title => $is_new ? $::locale->text('Create a new parts classification') : $::locale->text('Edit parts classification'));

    return;

  }

  $self->{part_classification}->save;

  flash_later('info', $is_new ? $::locale->text('The parts classification has been created.') : $::locale->text('The parts classification has been saved.'));

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

}

# submethod for loading one item from the database

#

sub load_part_classification {

  my ($self) = @_;

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

}

1;

__END__

=encoding utf-8

=head1 NAME

SL::Controller::PartClassification

=head1 SYNOPSIS

This Controller is responsible for creating,editing or deleting

Part Classifications.

=head1 DESCRIPTION

The use of Part Classifications is described in L<SL::DB::PartClassification>

=head1 METHODS

=head2 action_create

 $self->action_create();

A new part classification is saved

=head2 action_destroy

 $self->action_destroy();

An existing part classification is deleted

The basic classifications cannot be deleted, also classifications which are in use

=head2 action_edit

 $self->action_edit();

Edit an existing part classifications

=head2 action_list

 $self->action_list();

List all available part classifications

=head2 action_new

 $self->action_new();

A Form for a new creatable part classifications is generated

=head2 action_reorder

 $self->action_reorder();

reordering the lines

=head2 action_update

 $self->action_update();

An existing part classification is saved

=head1 AUTHOR

Martin Helmling E<lt>martin.helmling@opendynamic.deE<gt>

=cut

  'Create a new parts classification' => 'Erzeuge eine neue Artikel-Klassifizierung',

  'Edit parts classification'   => 'Bearbeite eine Artikel-Klassifizierung',

  'No parts classification has been created yet.' => 'Keine Artikel-Klassifizierung erzeugt.',

  'Parts Classifications'       => 'Artikel-Klassifizierung',

  'The basic parts classification cannot be deleted.' => 'Eine Basis Artikel-Klassifizierung darf nicht gelöscht werden.',

  'The parts classification has been created.' => 'Die Artikel-Klassifizierung ist erzeugt',

  'The parts classification has been deleted.' => 'Die Artikel-Klassifizierung ist gelöscht',

  'The parts classification has been saved.' => 'Die Artikel-Klassifizierung ist gespeichert',

  'The parts classification is in use and cannot be deleted.' => 'Die Artikel-Klassifizierung ist in Verwendung, kann deshalb nicht gelöscht werden.',

    action: PartClassification/list

[% USE HTML %][% USE L %][% USE LxERP %]

<h1>[% FORM.title %]</h1>

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

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

  <table>

   <tr>

    <td>[% LxERP.t8('Description') %]</td>

    <td>[% L.input_tag("part_classification.description",  LxERP.t8(SELF.part_classification.description)) %]</td>

   </tr>

   <tr>

    <td>[% LxERP.t8('TypeAbbreviation') %]</td>

    <td>[% L.input_tag("part_classification.abbreviation",  LxERP.t8(SELF.part_classification.abbreviation),size=>"2",maxlength=>"2" ) %]</td>

   </tr>

   <tr>

    <td>[% LxERP.t8('Used for Purchase') %]</td>

    <td>[% L.checkbox_tag("part_classification.used_for_purchase", checked=(SELF.part_classification.used_for_purchase ? 1:'')) %]</td>

   </tr>

   <tr>

    <td>[% LxERP.t8('Used for Sale') %]</td>

    <td>[% L.checkbox_tag("part_classification.used_for_sale", checked=(SELF.part_classification.used_for_sale ? 1:'')) %]</td>

   </tr>

   <tr>

    <td>[% LxERP.t8('Report separately') %]</td>

    <td>[% L.checkbox_tag("part_classification.report_separate", checked=(SELF.part_classification.report_separate ? 1:'')) %]</td>

   </tr>

  </table>

  <p>

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

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

   [% L.submit_tag("action_" _ (SELF.part_classification.id ? 'update' : 'create'), LxERP.t8('Save')) %]

   [%- IF SELF.part_classification.id %]

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

   [%- END %]

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

  </p>

 </form>

[% USE HTML %][% USE L %][% USE LxERP %]

<h1>[% FORM.title %]</h1>

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

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

  [% IF !PART_CLASSIFICATIONS.size %]

   <p>

    [%-  LxERP.t8('No parts classification has been created yet.') %]

   </p>

  [%- ELSE %]

   <table id="part_classification_list">

    <thead>

    <tr class="listheading">

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

     <th>[%- LxERP.t8('Description') %]</th>

     <th>[%- LxERP.t8('TypeAbbreviation') %]</th>

     <th>[%- LxERP.t8('Used for Purchase') %]</th>

     <th>[%- LxERP.t8('Used for Sale') %]</th>

     <th>[%- LxERP.t8('Report separately') %]</th>

    </tr>

    </thead>

    <tbody>

    [%- FOREACH part_classification = PART_CLASSIFICATIONS %]

    <tr class="listrow[% loop.count % 2 %]" id="part_classification_id_[% part_classification.id %]">

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

     <td>

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

       [%- HTML.escape(LxERP.t8(part_classification.description)) %]

      </a>

     </td>

     <td>[%- HTML.escape(LxERP.t8(part_classification.abbreviation)) %]</td>

     <td>[% IF part_classification.used_for_purchase %][% LxERP.t8('Yes') %][% ELSE %][%  LxERP.t8('No') %][% END %]</td>

     <td>[% IF part_classification.used_for_sale     %][% LxERP.t8('Yes') %][% ELSE %][%  LxERP.t8('No') %][% END %]</td>

     <td>[% IF part_classification.report_separate   %][% LxERP.t8('Yes') %][% ELSE %][%  LxERP.t8('No') %][% END %]</td>

    </tr>

    [%- END %]

    </tbody>

   </table>

  [%- END %]

  <p>

   <a href="[% SELF.url_for(action => 'new') %]">[%- LxERP.t8('Create a new parts classification') %]</a>

  </p>

 </form>

 [% L.sortable_element('#part_classification_list tbody', url => 'controller.pl?action=PartClassification/reorder', with => 'part_classification_id') %]