--- trunk2/all2all.pl 2004/09/09 18:09:21 419
+++ trunk2/all2all.pl 2004/09/09 18:25:34 420
@@ -141,6 +141,8 @@
}
}
+$log->info("lookup hash: ",Dumper($webpac->{'lookup'}));
+
#
# tree dump implementation which shouldn't be here :-)
#
@@ -173,7 +175,10 @@
print HTML qq{
$term\n} if (-e "out/thes/$mfn.html");
- $log->logconfess("can't find 'a:${code}::'") unless ($l->{"a:${code}::"});
+ unless ($l->{"a:${code}::"}) {
+ $log->warn("can't find 'a:${code}::'");
+ next;
+ }
print HTML qq{ \n};
@@ -186,6 +191,11 @@
$log->info("$l2_code -> $l2_v900 : $l2_term [$l2_mfn]");
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{