--- trunk/spider/filter.pm	2005/04/30 23:29:14	102
+++ trunk/spider/filter.pm	2005/04/30 23:29:27	103
@@ -66,8 +66,9 @@
 	# construct new title (from various parts of DocBook if available)
 	my $new_title;
 
-	sub create_title($) {
+	sub create_title($$) {
 		my $contents = shift || return;
+		my $verbose = shift;
 		my $new_title = substr($contents, 0, 4096);
 		$new_title =~ s/<[^>]+>//gis;
 		$new_title =~ s/^\s+//s;
@@ -106,7 +107,7 @@
 			$new_title = $1;
 			print STDERR "using title '$new_title' from <h_>\n" if ($verbose);
 		} else {
-			$new_title = create_title($contents);
+			$new_title = create_title($contents, $verbose);
 		}
 	}
 
@@ -128,7 +129,7 @@
 	} else {
 		# fall-back to collection title
 		$new_title = $collection;
-		my $tmp = create_title($ontents);
+		my $tmp = create_title($ontents, $verbose);
 		$new_title .= " :: $tmp" if ($tmp);
 	}