suppress works

diff --git a/farnell/farnell-find b/farnell/farnell-find
index 07088df8733b56c5612fd17f2332dca3df2ed072..0c73682c790e325916e562aa79ae830a98f7dd26 100755 (executable)
--- a/farnell/farnell-find
+++ b/farnell/farnell-find
@@ -229,7 +229,7 @@ sub read_spec ($) {
 
 sub itemsortmap ($) {
     my ($item) = @_;
-    my ($o, $bi, $how, $title);
+    my ($o, $bi, $how, $price,$title);
     $o= '';
     $bi= $iteminfo{$item};
     if (!defined $bi) {
@@ -238,7 +238,8 @@ sub itemsortmap ($) {
     }
     foreach $how (@sorthow) {
        if ($how eq 'price') {
-           $o .= sprintf "%030.20f ", 1.0 / ($show{$item}{Price} + 0.0001);
+           $price= exists $show{$item} ? $show{$item}{Price} : 0.0;
+           $o .= sprintf "%030.20f ", 1.0 / ($price + 0.0001);
        } elsif ($how eq 'desc') {
            $title= $bi->{Description};
            $title .= "\n".$1 if $title =~ s/^(\[[^][]+\]) //;