Revision 0aa885f4
Von Sven Schöling vor etwa 7 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 50 | 50 |
use SL::DB::Default; |
| 51 | 51 |
use SL::DB::TaxZone; |
| 52 | 52 |
use SL::DB; |
| 53 |
use SL::Presenter::Part qw(type_abbreviation classification_abbreviation); |
|
| 53 | 54 |
use List::Util qw(min); |
| 54 | 55 |
|
| 55 | 56 |
use strict; |
| ... | ... | |
| 1309 | 1310 |
if (($::form->{"partnumber_$i"} ne '') && ($ref->{ean} eq $::form->{"partnumber_$i"})) {
|
| 1310 | 1311 |
push @{ $ref->{matches} ||= [] }, $::locale->text('EAN') . ': ' . $ref->{ean};
|
| 1311 | 1312 |
} |
| 1312 |
$ref->{type_and_classific} = $::request->presenter->type_abbreviation($ref->{part_type}).
|
|
| 1313 |
$::request->presenter->classification_abbreviation($ref->{classification_id});
|
|
| 1313 |
$ref->{type_and_classific} = type_abbreviation($ref->{part_type}) .
|
|
| 1314 |
classification_abbreviation($ref->{classification_id});
|
|
| 1314 | 1315 |
|
| 1315 | 1316 |
if (! $ref->{used_for_purchase} ) {
|
| 1316 | 1317 |
$has_wrong_pclass = PCLASS_NOTFORPURCHASE; |
Auch abrufbar als: Unified diff
Presenter: Neue Struktur in Belegen umgesetzt