--- trunk/lib/WebPAC/Normalize.pm	2005/12/23 21:37:05	317
+++ trunk/lib/WebPAC/Normalize.pm	2005/12/31 13:42:11	333
@@ -470,6 +470,7 @@
 	}
 
 	my $found = 0;
+	my $just_single = 1;
 
 	my $eval_code;
 	# remove eval{...} from beginning
@@ -481,9 +482,14 @@
 
 	# do actual replacement of placeholders
 	# repeatable fields
-	$format =~ s/v(\d+)(?:\^(\w))?/$self->get_data(\$rec,$1,$2,$i,\$found)/ges;
+	if ($format =~ s/v(\d+)(?:\^(\w))?/$self->get_data(\$rec,$1,$2,$i,\$found)/ges) {
+		$just_single = 0;
+	}
+	
 	# non-repeatable fields
-	$format =~ s/s(\d+)(?:\^(\w))?/$self->get_data(\$rec,$1,$2,0,\$found)/ges;
+	if ($format =~ s/s(\d+)(?:\^(\w))?/$self->get_data(\$rec,$1,$2,0,\$found)/ges) {
+		return if ($i > 0 && $just_single);
+	}
 
 	if ($found) {
 		$log->debug("format: $format");