--- trunk2/lib/WebPAC/Tree.pm 2004/09/24 20:31:11 470 +++ trunk2/lib/WebPAC/Tree.pm 2004/09/26 15:11:36 471 @@ -158,6 +158,8 @@ my $html = $self->unroll(0,()); + $log->logdie("no html generated by unroll...") unless ($html); + my $html_file = $self->{'dir'}.'/'.$self->{'html'}; open(TEMPLATE, $self->{'template'}) || $log->logdie("can't open '",$self->{'template'},": $!"); @@ -227,10 +229,10 @@ my $v900 = $tree->[$level]->{'lookup_v900'}->($code) || $log->warn("can't lookup_v900($code)") && return; $log->debug("# $level lookup_v900($code) = $v900"); - my $term = $tree->[$level]->{'lookup_term'}->($code,$v900) || $log->warn("can't lookup_term($code,$v900)") && return; + my $term = $tree->[$level]->{'lookup_term'}->($code,$v900) || $log->warn("can't lookup_term($code,$v900)") && next; $log->debug("# $level lookup_term($code,$v900) = $term"); - my $mfn = $tree->[$level]->{'lookup_mfn'}->($code,$v900) || $log->warn("can't lookup_mfn($code,$v900)") && return; + my $mfn = $tree->[$level]->{'lookup_mfn'}->($code,$v900) || $log->warn("can't lookup_mfn($code,$v900)") && next; $log->debug("# $level lookup_mfn($code,$v900) = $mfn"); $log->debug("$code -> $v900 : $term [$mfn]");