--- trunk/lib/WebPAC/Normalize.pm	2006/07/03 14:30:22	571
+++ trunk/lib/WebPAC/Normalize.pm	2006/07/03 14:32:40	572
@@ -193,7 +193,7 @@
 	# first, sort all existing fields 
 	# XXX might not be needed, but modern perl might randomize elements in hash
 	my @sorted_marc_record = sort {
-		$a->[0] . $a->[3] cmp $b->[0] . $b->[3]	
+		$a->[0] . ( $a->[3] || '' ) cmp $b->[0] . ( $b->[3] || '')
 	} @{ $marc_record };
 
 	@sorted_marc_record = @{ $marc_record };	### FIXME disable sorting
@@ -203,7 +203,7 @@
 
 	# count unique field-subfields (used for offset when walking to next subfield)
 	my $u;
-	map { $u->{ $_->[0] . $_->[3]  }++ } @sorted_marc_record;
+	map { $u->{ $_->[0] . ( $_->[3] || '')  }++ } @sorted_marc_record;
 
 	if ($debug) {
 		warn "## marc_repeatable_subfield ", dump( $marc_repeatable_subfield ), $/;
@@ -231,7 +231,7 @@
 
 		# field and subfield which is key for
 		# marc_repeatable_subfield and u
-		my $fsf = $row->[0] . $row->[3];
+		my $fsf = $row->[0] . ( $row->[3] || '' );
 
 		if ($debug > 1) {