--- trunk/lib/WebPAC/Input.pm	2006/05/15 13:15:01	507
+++ trunk/lib/WebPAC/Input.pm	2006/05/18 13:48:51	519
@@ -243,7 +243,7 @@
 	my $to_rec = $size;
 
 	if (my $s = $self->{offset}) {
-		$log->info("skipping to MFN $s");
+		$log->debug("skipping to MFN $s");
 		$from_rec = $s;
 	} else {
 		$self->{offset} = $from_rec;
@@ -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) } );