--- trunk/lib/WebPAC/Normalize.pm	2006/07/02 20:33:13	565
+++ trunk/lib/WebPAC/Normalize.pm	2006/07/02 21:17:54	566
@@ -664,12 +664,14 @@
 	my $v = shift @r;
 	warn "### first rec($fld,$sf) = ",dump($v) if ($debug > 2);
 
+	return '' if( ! defined($v) || $v =~ /^\s*$/);
+
 	my @s = split( $regex, $v );
 	warn "## split_rec_on($fld,$sf,$regex,$part) = ",dump(@s) if ($debug > 1);
-	if ($part > 0) {
+	if ($part && $part > 0) {
 		return $s[ $part - 1 ];
 	} else {
-		return @s;
+		return [ @s ];
 	}
 }