--- trunk/lib/WebPAC/Normalize.pm	2006/06/30 18:48:33	550
+++ trunk/lib/WebPAC/Normalize.pm	2006/06/30 20:43:09	551
@@ -168,6 +168,7 @@
 
 sub _get_marc_fields {
 
+	return if (! $marc_record || ref($marc_record) ne 'ARRAY' || $#{ $marc_record } < 0);
 
 	# first, sort all existing fields 
 	# XXX might not be needed, but modern perl might randomize elements in hash