canon: key %s on stall,commod separately

diff --git a/yarrg/canon b/yarrg/canon
index 590ffa86c0cbd1b203cbeb6c37acb7f6e1a903ca..bb4d0ca44061396f445c0247776e9bef2aedaf79 100755 (executable)
--- a/yarrg/canon
+++ b/yarrg/canon
@@ -11,9 +11,8 @@ foreach my $ab (qw(0 1)) {
         if ($bs) { @l= ($l[0],$l[1],$l[4],$l[5]); }
         next unless length $l[2];
         $l[3]='1001' if $l[3] eq '>1000';
-        my $k= sprintf "%-31s\t%-23s", $l[1], $l[0];
-        $s{$k}[$ab*2]= $l[2];
-        $s{$k}[$ab*2+1]= $l[3];
+        $s{$l[1]}{$l[0]}[$ab*2]= $l[2];
+        $s{$l[1]}{$l[0]}[$ab*2+1]= $l[3];
     }
     close F or die $!;
 }
@@ -47,10 +46,11 @@ sub findcommod ($) {
 
 my $laststall='';
 
-foreach my $k (sort keys %s) {
-    my @r= @{ $s{$k} };
-    $k =~ m/\t/;
-    my ($stall,$commod) = ($`,$');
+foreach my $stall (sort keys %s) {
+my $stallstuff= $s{$stall};
+foreach my $commod (sort { findcommod($a) <=> findcommod($b) }
+                    keys %$stallstuff) {
+    my @r= @{ $s{$stall}{$commod} };
 
     my $eol= '';
     my $prep= sub {
@@ -82,4 +82,4 @@ foreach my $k (sort keys %s) {
         printf "-%s",alencodenum(-$qtydiff);
     }
     print $eol;
-}
+}}