Revision ed33e2f5
Von Sven Schöling vor mehr als 2 Jahren hinzugefügt
| SL/DB/DeliveryOrder/TypeData.pm | ||
|---|---|---|
| 1 | 1 |
package SL::DB::DeliveryOrder::TypeData; |
| 2 | 2 |
|
| 3 | 3 |
use strict; |
| 4 |
use Carp; |
|
| 4 | 5 |
use Exporter qw(import); |
| 5 | 6 |
use Scalar::Util qw(weaken); |
| 6 | 7 |
use SL::Locale::String qw(t8); |
| ... | ... | |
| 25 | 26 |
saved => t8('Delivery Order has been saved'),
|
| 26 | 27 |
add => t8("Add Sales Delivery Order"),
|
| 27 | 28 |
edit => t8("Edit Sales Delivery Order"),
|
| 29 |
attachment => t8("sales_delivery_order_list"),
|
|
| 28 | 30 |
}, |
| 29 | 31 |
show_menu => {
|
| 30 | 32 |
save_and_quotation => 0, |
| ... | ... | |
| 51 | 53 |
saved => t8('Delivery Order has been saved'),
|
| 52 | 54 |
add => t8("Add Purchase Delivery Order"),
|
| 53 | 55 |
edit => t8("Edit Purchase Delivery Order"),
|
| 56 |
attachment => t8("purchase_delivery_order_list"),
|
|
| 54 | 57 |
}, |
| 55 | 58 |
show_menu => {
|
| 56 | 59 |
save_and_quotation => 0, |
| ... | ... | |
| 77 | 80 |
saved => t8('Delivery Order has been saved'),
|
| 78 | 81 |
add => t8("Add Supplier Delivery Order"),
|
| 79 | 82 |
edit => t8("Edit Supplier Delivery Order"),
|
| 83 |
attachment => t8("supplier_delivery_order_list"),
|
|
| 80 | 84 |
}, |
| 81 | 85 |
show_menu => {
|
| 82 | 86 |
save_and_quotation => 0, |
| ... | ... | |
| 103 | 107 |
saved => t8('Delivery Order has been saved'),
|
| 104 | 108 |
add => t8("Add RMA Delivery Order"),
|
| 105 | 109 |
edit => t8("Edit RMA Delivery Order"),
|
| 110 |
attachment => t8("rma_delivery_order_list"),
|
|
| 106 | 111 |
}, |
| 107 | 112 |
show_menu => {
|
| 108 | 113 |
save_and_quotation => 0, |
| ... | ... | |
| 143 | 148 |
} |
| 144 | 149 |
|
| 145 | 150 |
sub validate_type {
|
| 146 |
my ($self, $type) = @_;
|
|
| 151 |
my ($type) = @_; |
|
| 147 | 152 |
|
| 148 |
return $valid_types{$type} // die "invalid type";
|
|
| 153 |
return $valid_types{$type} // confess "invalid type '$type'";
|
|
| 149 | 154 |
} |
| 150 | 155 |
|
| 151 | 156 |
sub get {
|
| ... | ... | |
| 161 | 166 |
sub get3 {
|
| 162 | 167 |
my ($type, $topic, $key) = @_; |
| 163 | 168 |
|
| 164 |
my $ret = $type_data{$type}{$topic}{$key} // die "unknown property '$key' in topic '$topic'";
|
|
| 169 |
my $ret = $type_data{$type}{$topic}{$key} // die "unknown property '$key' in topic '$topic' for type '$type'";
|
|
| 165 | 170 |
|
| 166 | 171 |
ref $ret eq 'CODE' |
| 167 | 172 |
? $ret->() |
Auch abrufbar als: Unified diff
DeliveryOrder: namen für Anhänge und bessere Fehlermeldungen