From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 18 May 2006 13:48:51 +0000 (+0000)
Subject:  r689@llin:  dpavlin | 2006-05-18 15:45:23 +0200
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=b569488d10790254981a9e7408e6ce67fcca5285;p=webpac2

 r689@llin:  dpavlin | 2006-05-18 15:45:23 +0200
 treat field names as strings, not numbers (Excel field names are chars, not numbers)


git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@519 07558da8-63fa-0310-ba24-9fe276d99e06
---

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index c2fa375..de649c0 100644
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -451,7 +451,7 @@ sub stats {
 			my $v = $s->{fld}->{$f} || die "no s->{fld}->{$f}";
 			$max_fld = $v if ($v > $max_fld);
 
-			my $o = sprintf("%4d %d ~", $f, $v);
+			my $o = sprintf("%4s %d ~", $f, $v);
 
 			if (defined($s->{sf}->{$f})) {
 				map {
@@ -464,7 +464,7 @@ sub stats {
 			}
 
 			$o;
-		} sort { $a <=> $b } keys %{ $s->{fld} }
+		} sort { $a cmp $b } keys %{ $s->{fld} }
 	);
 
 	$log->debug( sub { Dumper($s) } );