Revision 0aa885f4
Von Sven Schöling vor etwa 7 Jahren hinzugefügt
| SL/Controller/Order.pm | ||
|---|---|---|
| 4 | 4 |
use parent qw(SL::Controller::Base); |
| 5 | 5 |
|
| 6 | 6 |
use SL::Helper::Flash qw(flash_later); |
| 7 |
use SL::Presenter; |
|
| 7 |
use SL::Presenter::Tag qw(select_tag);
|
|
| 8 | 8 |
use SL::Locale::String qw(t8); |
| 9 | 9 |
use SL::SessionFile::Random; |
| 10 | 10 |
use SL::PriceSource; |
| ... | ... | |
| 771 | 771 |
sub build_contact_select {
|
| 772 | 772 |
my ($self) = @_; |
| 773 | 773 |
|
| 774 |
$self->p->select_tag('order.cp_id', [ $self->order->{$self->cv}->contacts ],
|
|
| 775 |
value_key => 'cp_id',
|
|
| 776 |
title_key => 'full_name_dep',
|
|
| 777 |
default => $self->order->cp_id,
|
|
| 778 |
with_empty => 1,
|
|
| 779 |
style => 'width: 300px',
|
|
| 774 |
select_tag('order.cp_id', [ $self->order->{$self->cv}->contacts ],
|
|
| 775 |
value_key => 'cp_id', |
|
| 776 |
title_key => 'full_name_dep', |
|
| 777 |
default => $self->order->cp_id, |
|
| 778 |
with_empty => 1, |
|
| 779 |
style => 'width: 300px', |
|
| 780 | 780 |
); |
| 781 | 781 |
} |
| 782 | 782 |
|
| ... | ... | |
| 786 | 786 |
sub build_shipto_select {
|
| 787 | 787 |
my ($self) = @_; |
| 788 | 788 |
|
| 789 |
$self->p->select_tag('order.shipto_id', [ $self->order->{$self->cv}->shipto ],
|
|
| 790 |
value_key => 'shipto_id',
|
|
| 791 |
title_key => 'displayable_id',
|
|
| 792 |
default => $self->order->shipto_id,
|
|
| 793 |
with_empty => 1,
|
|
| 794 |
style => 'width: 300px',
|
|
| 789 |
select_tag('order.shipto_id', [ $self->order->{$self->cv}->shipto ],
|
|
| 790 |
value_key => 'shipto_id', |
|
| 791 |
title_key => 'displayable_id', |
|
| 792 |
default => $self->order->shipto_id, |
|
| 793 |
with_empty => 1, |
|
| 794 |
style => 'width: 300px', |
|
| 795 | 795 |
); |
| 796 | 796 |
} |
| 797 | 797 |
|
Auch abrufbar als: Unified diff
Presenter: Neue Struktur in Belegen umgesetzt