Revision 32823bf0
Von Sven Schöling vor fast 3 Jahren hinzugefügt
bin/mozilla/do.pl | ||
---|---|---|
36 | 36 |
use List::Util qw(max sum); |
37 | 37 |
use POSIX qw(strftime); |
38 | 38 |
|
39 |
use SL::Controller::DeliveryOrder; |
|
39 | 40 |
use SL::DB::DeliveryOrder; |
41 |
use SL::DB::DeliveryOrder::TypeData qw(:types validate_type); |
|
40 | 42 |
use SL::DO; |
41 | 43 |
use SL::IR; |
42 | 44 |
use SL::IS; |
... | ... | |
56 | 58 |
# end of main |
57 | 59 |
|
58 | 60 |
sub check_do_access { |
59 |
$main::auth->assert($main::form->{type} . '_edit'); |
|
61 |
validate_type($::form->{type}); |
|
62 |
|
|
63 |
my $right = SL::DB::DeliveryOrder::TypeData::get($::form->{type}, "right"); |
|
64 |
$main::auth->assert($right); |
|
60 | 65 |
} |
61 | 66 |
|
62 | 67 |
sub set_headings { |
... | ... | |
881 | 886 |
'align' => 'center', |
882 | 887 |
}; |
883 | 888 |
|
884 |
$row->{donumber}->{link} = $edit_url . "&id=" . E($dord->{id}) . "&callback=${callback}"; |
|
889 |
$row->{donumber}->{link} = SL::DB::DeliveryOrder::TypeData::get3($dord->{order_type}, "show_menu", "new_controller") |
|
890 |
? SL::Controller::DeliveryOrder->url_for(action => "edit", id => $dord->{id}, type => $dord->{order_type}) |
|
891 |
: $edit_url . "&id=" . E($dord->{id}) . "&callback=${callback}"; |
|
885 | 892 |
$row->{ordnumber}->{link} = $edit_order_url . "&id=" . E($dord->{oe_id}) . "&callback=${callback}" if $dord->{oe_id}; |
886 | 893 |
$report->add_data($row); |
887 | 894 |
|
Auch abrufbar als: Unified diff
Lieferschein: Suche angepasst auf neue Typen