Revision 0aa885f4
Von Sven Schöling vor etwa 7 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 57 | 57 |
use SL::DB::TaxZone; |
| 58 | 58 |
use SL::TransNumber; |
| 59 | 59 |
use SL::DB; |
| 60 |
use SL::Presenter::Part qw(type_abbreviation classification_abbreviation); |
|
| 60 | 61 |
use Data::Dumper; |
| 61 | 62 |
|
| 62 | 63 |
use strict; |
| ... | ... | |
| 2353 | 2354 |
push @{ $ref->{matches} ||= [] }, $::locale->text('EAN') . ': ' . $ref->{ean};
|
| 2354 | 2355 |
} |
| 2355 | 2356 |
|
| 2356 |
$ref->{type_and_classific} = $::request->presenter->type_abbreviation($ref->{part_type}).
|
|
| 2357 |
$::request->presenter->classification_abbreviation($ref->{classification_id});
|
|
| 2357 |
$ref->{type_and_classific} = type_abbreviation($ref->{part_type}) .
|
|
| 2358 |
classification_abbreviation($ref->{classification_id});
|
|
| 2358 | 2359 |
if (! $ref->{used_for_sale} ) {
|
| 2359 | 2360 |
$has_wrong_pclass = PCLASS_NOTFORSALE ; |
| 2360 | 2361 |
next; |
Auch abrufbar als: Unified diff
Presenter: Neue Struktur in Belegen umgesetzt