158 |
|
|
159 |
my $html = $self->unroll(0,()); |
my $html = $self->unroll(0,()); |
160 |
|
|
161 |
|
$log->logdie("no html generated by unroll...") unless ($html); |
162 |
|
|
163 |
my $html_file = $self->{'dir'}.'/'.$self->{'html'}; |
my $html_file = $self->{'dir'}.'/'.$self->{'html'}; |
164 |
|
|
165 |
open(TEMPLATE, $self->{'template'}) || $log->logdie("can't open '",$self->{'template'},": $!"); |
open(TEMPLATE, $self->{'template'}) || $log->logdie("can't open '",$self->{'template'},": $!"); |
229 |
my $v900 = $tree->[$level]->{'lookup_v900'}->($code) || $log->warn("can't lookup_v900($code)") && return; |
my $v900 = $tree->[$level]->{'lookup_v900'}->($code) || $log->warn("can't lookup_v900($code)") && return; |
230 |
$log->debug("# $level lookup_v900($code) = $v900"); |
$log->debug("# $level lookup_v900($code) = $v900"); |
231 |
|
|
232 |
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; |
233 |
$log->debug("# $level lookup_term($code,$v900) = $term"); |
$log->debug("# $level lookup_term($code,$v900) = $term"); |
234 |
|
|
235 |
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; |
236 |
$log->debug("# $level lookup_mfn($code,$v900) = $mfn"); |
$log->debug("# $level lookup_mfn($code,$v900) = $mfn"); |
237 |
|
|
238 |
$log->debug("$code -> $v900 : $term [$mfn]"); |
$log->debug("$code -> $v900 : $term [$mfn]"); |