/[webpac]/trunk2/all2all.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk2/all2all.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 419 by dpavlin, Thu Sep 9 18:09:21 2004 UTC revision 420 by dpavlin, Thu Sep 9 18:25:34 2004 UTC
# Line 141  if (0 && $log->is_debug) { Line 141  if (0 && $log->is_debug) {
141          }          }
142  }  }
143    
144    $log->info("lookup hash: ",Dumper($webpac->{'lookup'}));
145    
146  #  #
147  # tree dump implementation which shouldn't be here :-)  # tree dump implementation which shouldn't be here :-)
148  #  #
# Line 173  foreach my $code (sort keys %{$webpac->{ Line 175  foreach my $code (sort keys %{$webpac->{
175    
176                  print HTML qq{ <li><a href="thes/$mfn.html">$term</a></li>\n} if (-e "out/thes/$mfn.html");                  print HTML qq{ <li><a href="thes/$mfn.html">$term</a></li>\n} if (-e "out/thes/$mfn.html");
177    
178                  $log->logconfess("can't find 'a:${code}::'") unless ($l->{"a:${code}::"});                  unless ($l->{"a:${code}::"}) {
179                            $log->warn("can't find 'a:${code}::'");
180                            next;
181                    }
182    
183                  print HTML qq{ <ul>\n};                  print HTML qq{ <ul>\n};
184    
# Line 186  foreach my $code (sort keys %{$webpac->{ Line 191  foreach my $code (sort keys %{$webpac->{
191                          $log->info("$l2_code -> $l2_v900 : $l2_term [$l2_mfn]");                          $log->info("$l2_code -> $l2_v900 : $l2_term [$l2_mfn]");
192    
193                          print HTML qq{  <li><a href="thes/$l2_mfn.html">$l2_term</a></li>\n} if (-e "out/thes/$l2_mfn.html");                          print HTML qq{  <li><a href="thes/$l2_mfn.html">$l2_term</a></li>\n} if (-e "out/thes/$l2_mfn.html");
194                            
195                            unless ($l->{"a:${l2_code}:"}) {
196                                    $log->warn("can't find 'a:${l2_code}:'");
197                                    next;
198                            }
199    
200                          print HTML qq{  <ul>\n};                          print HTML qq{  <ul>\n};
201    

Legend:
Removed from v.419  
changed lines
  Added in v.420

  ViewVC Help
Powered by ViewVC 1.1.26