From: ian <ian>
Date: Wed, 14 Apr 2004 16:51:57 +0000 (+0000)
Subject: more stuff in output
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=6aad7c7067ec7da636b4b88c289bd97a2b7e13d4;p=trains.git

more stuff in output
---

diff --git a/farnell/farnell-find b/farnell/farnell-find
index 83eba12..b5a4034 100755
--- 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;