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