--- trunk2/lib/WebPAC.pm	2004/06/17 12:05:01	367
+++ trunk2/lib/WebPAC.pm	2004/06/17 12:27:02	368
@@ -508,7 +508,7 @@
 Create in-memory data structure which represents layout from C<import_xml>.
 It is used later to produce output.
 
- my $ds = $webpac->data_structure($rec);
+ my @ds = $webpac->data_structure($rec);
 
 =cut
 
@@ -539,7 +539,7 @@
 		$self->{tags_by_order} = \@sorted_tags;
 	}
 
-	my $ds;
+	my @ds;
 
 	foreach my $field (@sorted_tags) {
 
@@ -561,11 +561,14 @@
 			}
 		}
 
-		push @{$ds->{$field}}, $row if ($row);
+		if ($row) {
+			$row->{'tag'} = $field;
+			push @ds, $row;
+		}
 
 	}
 
-	print "data_structure => ",Dumper($ds);
+	print "data_structure => ",Dumper(\@ds);
 
 }