--- trunk/lib/WebPAC/Normalize.pm	2007/11/09 23:46:44	1018
+++ trunk/lib/WebPAC/Normalize.pm	2007/11/10 00:05:36	1019
@@ -959,7 +959,10 @@
 
 		$fill_in = {};
 
-		foreach my $sf ( split(/\|/, $template ) ) {
+		my @templates = split(/\|/, $template );
+		@templates = ( $template );
+
+		foreach my $sf ( @templates ) {
 			sub fill_in {
 				my ( $r, $sf, $nr ) = @_;
 				my ( $from_sf, $from_nr ) = @{ $new_r->{ $sf }->[ $nr ] };