… | |
… | |
60 | my ($ob) = @_; |
60 | my ($ob) = @_; |
61 | $match = $ob; |
61 | $match = $ob; |
62 | }); |
62 | }); |
63 | if ($match) { |
63 | if ($match) { |
64 | $match->decrease_ob_nr ($cfg->{decrease_by_cnt}) if $cfg->{decrease_by_cnt}; |
64 | $match->decrease_ob_nr ($cfg->{decrease_by_cnt}) if $cfg->{decrease_by_cnt}; |
65 | $pl->message ($cfg->{message_on_match}) if defined $cfg->{message_on_match}; |
65 | $pl->message ($cfg->{message_on_match}, cf::NDI_UNIQUE) if defined $cfg->{message_on_match}; |
66 | } else { |
66 | } else { |
67 | $pl->message ($cfg->{message_on_nomatch}) if defined $cfg->{message_on_nomatch}; |
67 | $pl->message ($cfg->{message_on_nomatch}, cf::NDI_RED | cf::NDI_UNIQUE) if defined $cfg->{message_on_nomatch}; |
68 | cf::override; |
68 | cf::override; |
69 | } |
69 | } |
70 | }; |
70 | }; |
71 | |
71 | |
72 | =back |
72 | =back |