259 |
$log->debug("args: " . Dumper( $args )); |
$log->debug("args: " . Dumper( $args )); |
260 |
|
|
261 |
foreach my $f (qw/mfn template prefix/) { |
foreach my $f (qw/mfn template prefix/) { |
262 |
$log->die("need $f") unless ($args->{$f}); |
$log->fatal("need $f") unless ($args->{$f}); |
263 |
} |
} |
264 |
|
|
265 |
my $mfn = $args->{mfn}; |
my $mfn = $args->{mfn}; |
266 |
|
|
267 |
my $ds = $self->{db}->load_ds( id => $mfn, prefix => 'FIXME' ) || $log->error("can't load_ds( $mfn )") && next; |
my $ds = $self->{db}->load_ds( id => $mfn, prefix => 'FIXME' ) || $log->error("can't load_ds( $mfn )") && return; |
268 |
|
|
269 |
my $html = $self->{out}->apply( |
my $html = $self->{out}->apply( |
270 |
template => $args->{template}, |
template => $args->{template}, |