Revision 5e7a4ba2
Von Tamino Steinert vor etwa 2 Jahren hinzugefügt
SL/DB/Shipto.pm | ||
---|---|---|
65 | 65 |
my $module = $type =~ m{::Order$} ? 'OE' |
66 | 66 |
: $type =~ m{::DeliveryOrder$} ? 'DO' |
67 | 67 |
: $type =~ m{::Invoice$} ? 'AR' |
68 |
: $type =~ m{::Reclamation$} ? 'RC' |
|
68 | 69 |
: $type =~ m{::(?:Customer|Vendor)$} ? 'CT' |
69 | 70 |
: croak "Unsupported target class '$type'"; |
70 | 71 |
|
Auch abrufbar als: Unified diff
Reclamation: Controller and Templates created