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;

}