Revision eb1089c2
Von Bernd Bleßmann vor 8 Monaten hinzugefügt
| SL/Controller/Warehouse.pm | ||
|---|---|---|
|
use parent qw(SL::Controller::Base);
|
||
|
|
||
|
use SL::DB::Warehouse;
|
||
|
use SL::Presenter::Tag qw(select_tag);
|
||
|
|
||
|
__PACKAGE__->run_before('check_auth');
|
||
|
__PACKAGE__->run_before(sub { $::auth->assert('developer') },
|
||
|
only => [ qw(test_page) ]);
|
||
|
|
||
|
#
|
||
|
# actions
|
||
|
#
|
||
|
|
||
|
sub action_test_page {
|
||
|
$_[0]->render('warehouse/test_page');
|
||
|
}
|
||
|
|
||
|
sub action_reorder {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
SL::DB::Warehouse->reorder_list(@{ $::form->{warehouse_id} || [] });
|
||
|
|
||
|
$self->render(\'', { type => 'json' });
|
||
|
$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;
|
||
|
}
|
||
|
|
||
|
|
||
|
#
|
||
|
# filters
|
||
|
#
|
||
Auch abrufbar als: Unified diff
Presenter für Lager/Lagerplatz-Auswahl