--- trunk/lib/WebPAC/Normalize.pm	2009/05/29 20:32:13	1205
+++ trunk/lib/WebPAC/Normalize.pm	2009/05/30 15:26:25	1210
@@ -21,6 +21,9 @@
 	get set
 	count
 
+	row
+	rec_array
+
 /;
 
 use warnings;
@@ -363,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} }, {@_};
 }