Hallo bytefender,
Sie können das folgende für den "sub geticon"-Bereich benutzen:
sub geticon {
my $l = $_[0];
my $grenze =20;
if ($l eq "N") {
return "";
}
if ($l eq "B") {
return "";
}
if ($l eq "V") {
return "";
}
}
Alles weitere wird so benutzt wie dem von Ihnen verlinkten Beispiel.
In der neuen Funktion wird per
if ($l eq "X")abgefragt, welcher Textwert in dem benutzerdefinierten Feld LBS existiert.
Dabei kann X ein beliebiger Textwert sein.
Ich habe hier mal exemplarisch die von Ihnen genannten Werte implementiert.