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