Revision 092d3110
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 {
|
| ... | ... | |
| 887 | 892 |
'align' => 'center', |
| 888 | 893 |
}; |
| 889 | 894 |
|
| 890 |
$row->{donumber}->{link} = $edit_url . "&id=" . E($dord->{id}) . "&callback=${callback}";
|
|
| 895 |
$row->{donumber}->{link} = SL::DB::DeliveryOrder::TypeData::get3($dord->{order_type}, "show_menu", "new_controller")
|
|
| 896 |
? SL::Controller::DeliveryOrder->url_for(action => "edit", id => $dord->{id}, type => $dord->{order_type})
|
|
| 897 |
: $edit_url . "&id=" . E($dord->{id}) . "&callback=${callback}";
|
|
| 891 | 898 |
$row->{ordnumber}->{link} = $edit_order_url . "&id=" . E($dord->{oe_id}) . "&callback=${callback}" if $dord->{oe_id};
|
| 892 | 899 |
$report->add_data($row); |
| 893 | 900 |
|
Auch abrufbar als: Unified diff
Lieferschein: Suche angepasst auf neue Typen