--- trunk2/all2all.pl 2004/09/11 08:36:38 422
+++ trunk2/all2all.pl 2004/09/11 20:21:28 423
@@ -17,9 +17,9 @@
my $webpac = new WebPAC(
code_page => 'ISO-8859-2',
-# limit_mfn => 100,
+ limit_mfn => 500,
# debug => 1,
- low_mem => 1,
+# low_mem => 1,
) || die;
my $log = $webpac->_get_logger() || die "can't get logger";
@@ -56,8 +56,6 @@
$webpac->open_import_xml(type => 'isis_hidra_ths');
-$log->debug("data: ",Dumper($webpac->{'data'}));
-
while (my $rec = $webpac->fetch_rec) {
my @ds = $webpac->data_structure($rec);
@@ -162,6 +160,7 @@
Browse
+
@@ -180,14 +179,14 @@
$log->debug("$code -> $v900 : $term [$mfn]");
- print HTML qq{ - $term
\n} if (-e "out/thes/$mfn.html");
+ print HTML qq{ - $term »
\n} if (-e "out/thes/$mfn.html");
unless ($l->{"a:${code}::"}) {
$log->warn("can't find 'a:${code}::'");
next;
}
- print HTML qq{ \n};
+ print HTML qq{ \n};
foreach my $l2_v900 (@{ $l->{"a:${code}::"} }) {
@@ -197,14 +196,14 @@
$log->debug("$l2_code -> $l2_v900 : $l2_term [$l2_mfn]");
- print HTML qq{ - $l2_term
\n} if (-e "out/thes/$l2_mfn.html");
+ print HTML qq{ - $l2_term »
\n} if (-e "out/thes/$l2_mfn.html");
unless ($l->{"a:${l2_code}:"}) {
$log->warn("can't find 'a:${l2_code}:'");
next;
}
- print HTML qq{ \n};
+ print HTML qq{ \n};
foreach my $l3_v900 (@{ $l->{"a:${l2_code}:"} }) {
@@ -213,7 +212,7 @@
$log->debug(" -> $l3_v900 : $l3_term [$l3_mfn]");
- print HTML qq{ - $l3_term
\n} if (-e "out/thes/$l3_mfn.html");
+ print HTML qq{ - $l3_term »
\n} if (-e "out/thes/$l3_mfn.html");
}
print HTML qq{
\n};