more stuff in output

diff --git a/farnell/farnell-find b/farnell/farnell-find
index 83eba123454672942ebb47185ed2c95d02152016..b5a403445e98e81e4d8d9e6129b64a201968286b 100755 (executable)
--- a/farnell/farnell-find
+++ b/farnell/farnell-find
@@ -239,7 +239,7 @@ sub analyse_spec () {
        }
     }
     $total= 0;
-    $desclen= 43;
+    $desclen= 42;
     foreach $item (sort keys %iteminstances) {
        $why= defined $itemdesc{$item} ? $itemdesc{$item}[0].'; ' : '';
        $why .= "line ".(join ",", map { $_->{LineNo} }
@@ -264,9 +264,9 @@ sub analyse_spec () {
        $avail= $bi->{Avail};
        $avail{$avail}= 1;
        $avail= ' '.$stockmap{$avail} if exists $stockmap{$avail};
-       printf("%5d%1s %-11s %-.${desclen}s %6.2f %6.2f %s\n",
+       printf("%5d%1s %-11s %-.${desclen}s %6.2f %6.2f%1s %s\n",
               $toorder, $notechar, $item, $bi->{Description},
-              $bi->{Price}, $price, $avail)
+              $bi->{Price}, $price, $notechar, $avail)
            or die $!;
        $total += $price;
        foreach $desc (@{ $itemdesc{$item} }) {
@@ -339,7 +339,7 @@ sub calcorder ($$) {
        $numer += $denom/2 if !$exact;
        $qty= ceil($numer / $denom);
        $exact= 1;
-       $notechar= '~';
+       $notechar= '/';
     }
     $qty =~ m/^\d+$/ or die "$qty ?";
     $qty++ if !$exact;