--- trunk/lib/WebPAC/Normalize.pm	2009/05/30 15:26:25	1210
+++ trunk/lib/WebPAC/Normalize.pm	2009/06/02 13:14:59	1214
@@ -153,12 +153,6 @@
 
 sub _get_rec { $rec };
 
-sub rec_array {
-	my $d = $rec->{ $_[0] };
-	return @$d if ref($d) eq 'ARRAY';
-	die "field $_[0] not array: ",dump( $d );
-}
-
 =head2 _set_config
 
 Set current config hash
@@ -956,5 +950,21 @@
 	return @_ . '';
 }
 
+=head2 rec_array
+
+Always return field as array
+
+  foreach my $d ( rec_array('field') {
+	warn $d;
+  }
+
+=cut
+
+sub rec_array {
+	my $d = $rec->{ $_[0] };
+	return @$d if ref($d) eq 'ARRAY';
+	return ($d);
+}
+
 # END
 1;