projekt kivitendo

use SL::Presenter::Tag qw(select_tag);

__PACKAGE__->run_before(sub { $::auth->assert('developer') },

                        only => [ qw(test_page) ]);

sub action_test_page {

  $_[0]->render('warehouse/test_page');

}

  $self->render(\'', { type => 'json' }); # make emacs happy again ')

}

sub action_wh_bin_select_update_bins {

  my ($self) = @_;

  my $wh_id      = $::form->{wh_id};

  my $bin_dom_id = $::form->{bin_dom_id} || 'bin';

  my $bins = $wh_id ? SL::DB::Warehouse->new(id => $wh_id)->load->bins_sorted_naturally

           : [{id => '', description => ''}];

  $self->js->run('kivi.Warehouse.wh_bin_select_update_bins', $bin_dom_id, [map { {key => $_->{id}, value => $_->{description}} } @$bins])

           ->render;

__END__

=pod

=encoding utf8

=head1 NAME

SL::Controller::Warehouse - Controller module for warehouse and bin objects

=head1 FUNCTIONS

=over 4

=item C<action_test_page>

Renders the test page.

=item C<action_wh_bin_select_update_bins>

This action is used by the C<SL::Presenter::Warehouse::wh_bin_select>

to update the bin selection after the warehouse selection was changed.

See also L<SL::Presenter::Warehouse::wh_bin_select> and

L<js/kivi.Warehouse.js>).

=back

=head1 BUGS

Nothing here yet.

=head1 AUTHOR

Bernd Bleßmann E<lt>bernd@kivitendo-premium.deE<gt>

=cut

use SL::Presenter::Warehouse;

  warehouse                   => 'SL::Presenter::Warehouse',

package SL::Presenter::Warehouse;

use strict;

use SL::DB::Bin;

use SL::DB::Warehouse;

use SL::Locale::String qw(t8);

use SL::Presenter::EscapedText qw(escape is_escaped);

use SL::Presenter::Tag qw(name_to_id div_tag select_tag);

use Exporter qw(import);

our @EXPORT_OK = qw(

  wh_bin_select

);

our %EXPORT_TAGS = (ALL => \@EXPORT_OK);

sub wh_bin_select {

  my ($name, %attributes) = @_;

  my $div_name = $name;

  my $wh_name  = delete $attributes{wh_name}    || "${div_name}_wh";

  my $bin_name = delete $attributes{bin_name}   || "${div_name}_bin";

  my $div_id   = delete $attributes{id}         || name_to_id($name);

  my $wh_id    = delete $attributes{wh_id}      || name_to_id($wh_name)  || "${div_id}_wh";

  my $bin_id   = delete $attributes{bin_id}     || name_to_id($bin_name) || "${div_id}_bin";

  my $bin_default = delete $attributes{bin_default};

  my $wh_default  = delete $attributes{wh_default} || ($bin_default && SL::DB::Bin->new(id => $bin_default)->load->warehouse_id);

  my $with_empty  = delete $attributes{with_empty};

  my %wh_additional_condition = $wh_default ? (id => $wh_default) : undef;

  my $all_warehouses = SL::DB::Manager::Warehouse->get_all_sorted( where => [or => [invalid  => undef, invalid  => 0, %wh_additional_condition]]);

  my $all_bins       = $wh_default ? SL::DB::Warehouse->new(id => $wh_default)->load->bins_sorted_naturally

                     : $with_empty ? undef

                     : $all_warehouses->[0]->bins_sorted_naturally;

  my %div_attributes = (

    name => $div_name,

    id   => $div_id,

    %attributes

  );

  my %wh_attributes = (

    name                => $wh_name,

    id                  => $wh_id,

    default             => $wh_default,

    with_empty          => $with_empty,

    title_key           => 'description',

    onchange            => 'kivi.Warehouse.wh_changed(this);',

    'data-bin-dom-name' => $bin_name,

    'data-bin-dom-id'   => $bin_id,

    %attributes

  );

  my %bin_attributes = (

    name      => $bin_name,

    id        => $bin_id,

    default   => $bin_default,

    title_key => 'description',

    %attributes

  );

  $::request->layout->add_javascripts('kivi.Warehouse.js');

  div_tag(select_tag("${name}_wh", $all_warehouses, %wh_attributes) .

          select_tag($bin_name,    $all_bins,       %bin_attributes),

          %div_attributes);

}

1;

__END__

=pod

=encoding utf8

=head1 NAME

SL::Presenter::Warehouse - Presenter module for warehouse and bin objects

=head1 SYNOPSIS

In template code use:

  [% USE P %]

  [% P.warehouse.wh_bin_select('wh') %]

  with_empty: [% P.warehouse.wh_bin_select('wh2', with_empty=1) %]

=head1 FUNCTIONS

=over 4

=item C<wh_bin_select $name %attributes>

Returns a rendered version of select tags surrounded by a div tag for selecting

a warehouse and a bin. The surrounding div tag gets the name C<$name>.

The presenter takes care of updating the bin selection (via js) when the

warehose selection is changed (see also

L<SL::Controller::Warehouse::action_wh_bin_select_update_bins> and

L<js/kivi.Warehouse.js>).

All valid warehouses are presented for selection.

Remaining C<%attributes> not listed here are passed to the

div and select tag presenters.

C<%attributes> can include:

=over 2

=item * wh_name

The name for the warehouse select tag. It defaults the name

of the div with '_wh' added.

=item * bin_name

The name for the bin select tag.  It defaults the name

of the div with '_bin' added.

=item * id

The id of the div tag. It is derived from the div's name if not given.

=item * wh_id

The id for the warehouse select tag. It defaults the id

of the div with '_wh' added.

=item * bin_id

The id for the bin select tag. It defaults the id

of the div with '_bin' added.

=item * wh_default

An id of a warehouse object to be preselected. It defaults to the warehouse

a given default bin belongs to.

=item * bin_default

An id of a bin object to be preselected.

=item * with_empty

Over an empty selection for the warehouse if this is truish.

=back

=back

=head1 BUGS

Nothing here yet.

=head1 AUTHOR

Bernd Bleßmann E<lt>bernd@kivitendo-premium.deE<gt>

=cut

namespace('kivi.Warehouse', function(ns) {

  ns.wh_changed = function(target) {

    const wh_id        = $(target).val();

    const bin_dom_name = $(target).data('bin-dom-name');

    const bin_dom_id   = $(target).data('bin-dom-id');

    $.post("controller.pl", { action:       'Warehouse/wh_bin_select_update_bins',

                              wh_id:        wh_id,

                              bin_dom_id:   bin_dom_id },

           kivi.eval_json_result);

  };

  ns.wh_bin_select_update_bins = function(bin_dom_id, bins) {

    const $bin_select = $('#' + bin_dom_id);

    $bin_select.empty();

    $.each(bins, function(idx, elt) {

      $bin_select.append($('<option/>', {value: elt.key, text: elt.value}));

    });

  };

});

  'Warehouse Test'              => 'Lager-Test',

  'Warehouse/Bin Testpage'      => 'Lager/Lagerplatz-Testseite',

  'Warehouse Test'              => '',

  'Warehouse/Bin Testpage'      => '',

- parent: develop

  id: warehouse_test

  name: Warehouse Test

  access: developer

  order: 430

  params:

    action: Warehouse/test_page

[% USE T8 %]

[% USE P %]

<h1>[% 'Warehouse/Bin Testpage' | $T8 %]</h1>

<div class="wrapper">

  [% P.warehouse.wh_bin_select('wh') %]

  with_empty: [% P.warehouse.wh_bin_select('wh2', with_empty=1) %]

</div>

[% USE T8 %]

[% USE P %]

<h1>[% 'Warehouse/Bin Testpage' | $T8 %]</h1>

<div>

  [% P.warehouse.wh_bin_select('wh') %]

  with_empty: [% P.warehouse.wh_bin_select('wh2', with_empty=1) %]

</div>