9 |
|
|
10 |
use WebPAC::Common 0.02; |
use WebPAC::Common 0.02; |
11 |
use WebPAC::Lookup; |
use WebPAC::Lookup; |
12 |
use WebPAC::Input::ISIS; |
use WebPAC::Input::ISIS 0.02; |
13 |
use WebPAC::Store 0.03; |
use WebPAC::Store 0.03; |
14 |
use WebPAC::Normalize::XML; |
use WebPAC::Normalize::XML; |
15 |
use WebPAC::Output::TT; |
use WebPAC::Output::TT; |
93 |
); |
); |
94 |
|
|
95 |
my $maxmfn = $isis->open( |
my $maxmfn = $isis->open( |
96 |
filename => $input->{path}, |
path => $input->{path}, |
97 |
code_page => $input->{encoding}, # database encoding |
code_page => $input->{encoding}, # database encoding |
98 |
); |
); |
99 |
|
|
105 |
prefix => $input->{name}, |
prefix => $input->{name}, |
106 |
); |
); |
107 |
|
|
108 |
$n->open( |
my $normalize_path = $input->{normalize}->{path}; |
109 |
tag => $input->{normalize}->{tag}, |
|
110 |
xml_file => $input->{normalize}->{path}, |
if ($normalize_path =~ m/\.xml$/i) { |
111 |
); |
$n->open( |
112 |
|
tag => $input->{normalize}->{tag}, |
113 |
|
xml_file => $input->{normalize}->{path}, |
114 |
|
); |
115 |
|
} elsif ($normalize_path =~ m/\.(?:yml|yaml)$/i) { |
116 |
|
$n->open_yaml( |
117 |
|
path => $normalize_path, |
118 |
|
tag => $input->{normalize}->{tag}, |
119 |
|
); |
120 |
|
} |
121 |
|
|
122 |
for ( 0 ... $isis->size ) { |
for ( 0 ... $isis->size ) { |
123 |
|
|