projekt kivitendo

package SL::Controller::Business;

use strict;

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

use SL::DB::Business;

use SL::Helper::Flash;

use Rose::Object::MakeMethods::Generic

(

 scalar => [ qw(business) ],

);

__PACKAGE__->run_before('check_auth');

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

#

# actions

#

sub action_list {

  my ($self) = @_;

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

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

                BUSINESSES => SL::DB::Manager::Business->get_all_sorted);

}

sub action_new {

  my ($self) = @_;

  $self->{business} = SL::DB::Business->new;

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

}

sub action_edit {

  my ($self) = @_;

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

}

sub action_create {

  my ($self) = @_;

  $self->{business} = SL::DB::Business->new;

  $self->create_or_update;

}

sub action_update {

  my ($self) = @_;

  $self->create_or_update;

}

sub action_destroy {

  my ($self) = @_;

  if (eval { $self->{business}->delete; 1; }) {

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

  } else {

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

  }

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

}

#

# filters

#

sub check_auth {

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

}

#

# helpers

#

sub create_or_update {

  my $self   = shift;

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

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

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

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

  if (@errors) {

    flash('error', @errors);

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

    return;

  }

  $self->{business}->save;

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

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

}

sub load_business {

  my ($self) = @_;

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

}

1;

  'Are you sure you want to delete this business?' => 'Sind Sie sicher, dass Sie diesen Kunden-/Lieferantentyp löschen wollen?',

  'Create a new business'       => 'Einen neuen Kunden-/Lieferantentyp erfassen',

  'Create new business'         => 'Kunden-/Lieferantentyp erfassen',

  'No business has been created yet.' => 'Es wurden noch kein Kunden-/Lieferantentyp erfasst.',

  'The business has been created.' => 'Der Kunden-/Lieferantentyp wurde erfasst.',

  'The business has been deleted.' => 'Der Kunden-/Lieferantentyp wurde gelöscht.',

  'The business has been saved.' => 'Der Kunden-/Lieferantentyp wurde gespeichert.',

  'The business is in use and cannot be deleted.' => 'Der Kunden-/Lieferantentyp wird benutzt und kann nicht gelöscht werden.',

    action: Business/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("business.description", SELF.business.description, "size", 30) %]</td>

   </tr>

   <tr>

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

    <td>[% L.input_tag("business.discount_as_percent", SELF.business.discount_as_percent, "size", 5) %]%</td>

   </tr>

   <tr>

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

    <td>[% L.input_tag("business.customernumberinit", SELF.business.customernumberinit, "size", 10) %]</td>

   </tr>

   [%- IF LXCONFIG.features.vertreter %]

    <tr>

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

     <td>[% L.checkbox_tag("business.salesman", "value", 1, "checked", SELF.business.salesman) %]</td>

    </tr>

   [%- END %]

  </table>

  <p>

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

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

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

   [%- IF SELF.business.id %]

    [% L.submit_tag("action_destroy", LxERP.t8("Delete"), "confirm", LxERP.t8("Are you sure you want to delete this business?")) %]

   [%- 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 !BUSINESSES.size %]

   <p>

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

   </p>

  [%- ELSE %]

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

    <thead>

    <tr class="listheading">

     <th width="80%">[%- LxERP.t8('Description') %]</th>

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

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

     [%- IF LXCONFIG.features.vertreter %]

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

     [%- END %]

    </tr>

    </thead>

    <tbody>

    [%- FOREACH business = BUSINESSES %]

    <tr class="listrow[% loop.count % 2 %]" id="business_id_[% business.id %]">

     <td>

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

       [%- HTML.escape(business.description) %]

      </a>

     </td>

     <td align="right">[% LxERP.format_amount(business.discount * 100) %] %</td>

     <td align="right">[%- HTML.escape(business.customernumberinit) %]</td>

     [%- IF LXCONFIG.features.vertreter %]

      <td>[%- IF business.salesman %][%- LxERP.t8('Yes') %][%- ELSE %][%- LxERP.t8('No') %][%- END %]</td>

     [%- END %]

    </tr>

    [%- END %]

    </tbody>

   </table>

  [%- END %]

  <hr size="3" noshade>

  <p>

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

  </p>

 </form>