--- trunk/lib/WebPAC/Input.pm	2007/10/30 01:51:20	910
+++ trunk/lib/WebPAC/Input.pm	2007/11/28 22:51:43	1076
@@ -353,8 +353,8 @@
 			foreach my $fld (keys %{ $rec }) {
 				$self->{_stats}->{fld}->{ $fld }++;
 
-				$log->logdie("invalid record fild $fld, not ARRAY")
-					unless (ref($rec->{ $fld }) eq 'ARRAY');
+				#$log->logdie("invalid record fild $fld, not ARRAY")
+				next unless (ref($rec->{ $fld }) eq 'ARRAY');
 	
 				foreach my $row (@{ $rec->{$fld} }) {
 
@@ -550,7 +550,13 @@
 			}
 
 			$o;
-		} sort { $a <=> $b } keys %{ $s->{fld} }
+		} sort { 
+			if ( $a =~ m/^\d+$/ && $b =~ m/^\d+$/ ) {
+				$a <=> $b
+			} else {
+				$a cmp $b
+			}
+		} keys %{ $s->{fld} }
 	);
 
 	$log->debug( sub { dump($s) } );