--- trunk2/lib/WebPAC/Tree.pm	2004/09/26 15:11:36	471
+++ trunk2/lib/WebPAC/Tree.pm	2004/10/09 21:48:30	492
@@ -158,7 +158,10 @@
 
 	my $html = $self->unroll(0,());
 
-	$log->logdie("no html generated by unroll...") unless ($html);
+	if (! $html) {
+		$log->warn("no html generated by unroll...");
+		return;
+	}
 
 	my $html_file = $self->{'dir'}.'/'.$self->{'html'};
 
@@ -237,7 +240,7 @@
 
 			$log->debug("$code -> $v900 : $term [$mfn]");
 
-			my ($link_start,$link_end) = ('<a name="mfn'.$mfn.'"></a>','');
+			my ($link_start,$link_end) = ('','');
 	
 			my $have_children = $tree->[$level]->{'have_children'}->($code,$v900);
 
@@ -253,7 +256,7 @@
 			my $mfn_link = "thes/$mfn.html";
 			if (-e "out/$mfn_link") {
 				$html .= " " x $level .
-					qq{<li>${link_start}<span id="o$mfn">${term}</span>${link_end}}.
+					qq{<li><a name="mfn${mfn}"></a>${link_start}<span id="o$mfn">${term}</span>${link_end}}.
 					qq{&nbsp;<a href="$mfn_link" onClick="javascript:return popup(this);">&raquo;</a></li>\n};
 			} else {
 				$log->warn("file 'out/$mfn_link' doesn't exist, skipping");
@@ -265,7 +268,7 @@
 			my $style = $tree->[$level]->{'style'};
 
 			$html .= " " x $level .
-				qq{<a name="mfn$mfn"></a>\n <ul id="id$mfn"}.
+				qq{<ul id="id$mfn"}.
 				($style ? ' style="'.$style.'"' : '').
 				qq{>\n};