--- trunk/lib/WebPAC/Normalize.pm	2009/05/29 20:55:54	1206
+++ trunk/lib/WebPAC/Normalize.pm	2009/05/30 15:26:25	1210
@@ -366,9 +366,9 @@
 use Data::Dump qw/dump/;
 
 sub row {
-	die "array doesn't have even number of elements but $#_: ",dump( @_ ) if $#_ % 2 != 1;
-
-	push @{ $out->{'_rows'} }, {@_};
+	die "array doesn't have odd number of elements but $#_: ",dump( @_ ) if $#_ % 2 == 1;
+	my $table = shift @_;
+	push @{ $out->{'_rows'}->{$table} }, {@_};
 }