--- trunk/lib/WebPAC/Input.pm	2006/05/16 13:08:31	513
+++ trunk/lib/WebPAC/Input.pm	2006/05/18 13:48:51	519
@@ -451,7 +451,7 @@
 			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 @@
 			}
 
 			$o;
-		} sort { $a <=> $b } keys %{ $s->{fld} }
+		} sort { $a cmp $b } keys %{ $s->{fld} }
 	);
 
 	$log->debug( sub { Dumper($s) } );