76 |
|
|
77 |
if ($q->path_info =~ m#xml#) { |
if ($q->path_info =~ m#xml#) { |
78 |
|
|
79 |
my @ds = $db->load_ds($rec); |
my $ds = $db->load_ds($rec); |
80 |
|
|
81 |
if (@ds && $#ds > 0) { |
if ($ds) { |
82 |
print qq{<response> |
print qq{<response> |
83 |
<action type='html' target='div_record' errorCode='' errorMessage='' > |
<action type='html' target='div_record' errorCode='' errorMessage='' > |
84 |
}, $iconv_utf8->convert( $out->apply( |
}, $iconv_utf8->convert( $out->apply( |
85 |
template => $template_file, |
template => $template_file, |
86 |
data => \@ds, |
data => $ds, |
87 |
) ), qq{ |
) ), qq{ |
88 |
|
|
89 |
</action> |
</action> |