/[webpac2]/trunk/lib/WebPAC/Output/Estraier.pm
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 /trunk/lib/WebPAC/Output/Estraier.pm

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

revision 301 by dpavlin, Mon Dec 19 21:26:04 2005 UTC revision 303 by dpavlin, Mon Dec 19 23:29:25 2005 UTC
# Line 263  sub add_link { Line 263  sub add_link {
263    
264          $log->debug("got labels: ", join("|", @labels));          $log->debug("got labels: ", join("|", @labels));
265    
266          @labels = grep(/^$args->{to}/, @labels);          @labels = grep(/^$args->{to}\t/, @labels);
267            my $label = shift @labels;
268          my (undef,$label) = split(/\t/, shift @labels);          $label = split(/\t/, $label)->[1] if ($label);
269    
270          if (! $label) {          if (! $label) {
271                  $log->warn("can't find label for $args->{to}, skipping link creaton");                  $log->warn("can't find label for $args->{to}, skipping link creaton");
Legend:
Removed from v.301  
changed lines
  Added in v.303
  ViewVC Help
Powered by ViewVC 1.1.26