/[webpac2]/Webpacus/lib/Webpacus/Model/WebPAC.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 /Webpacus/lib/Webpacus/Model/WebPAC.pm

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

revision 403 by dpavlin, Sun Feb 19 18:12:57 2006 UTC revision 404 by dpavlin, Sun Feb 19 20:16:11 2006 UTC
# Line 405  sub list_nodes { Line 405  sub list_nodes {
405                  push @nodes, {                  push @nodes, {
406                          name => $self->{est_node}->name,                          name => $self->{est_node}->name,
407                          label => $self->{est_node}->label,                          label => $self->{est_node}->label,
408                            doc_num => $self->{est_node}->doc_num,
409                  }                  }
410          }          }
411    
# Line 418  sub list_nodes { Line 419  sub list_nodes {
419          foreach my $link (@{ $links }) {          foreach my $link (@{ $links }) {
420                  my ($url, $label, $credit) = split(/\t/, $link, 3);                  my ($url, $label, $credit) = split(/\t/, $link, 3);
421                  if ($url =~ m#/node/(.+)$#) {                  if ($url =~ m#/node/(.+)$#) {
422                            my $node = $1;
423                            $self->setup_site( $node );
424                            $self->{est_node}->_set_info;
425                          push @nodes, {                          push @nodes, {
426                                  name => $1,                                  name => $node,
427                                  label => $label,                                  label => $label,
428                                    doc_num => $self->{est_node}->doc_num,
429                          }                          }
430                  } else {                  } else {
431                          $self->{log}->warn("can't find node name in link $link");                          $self->{log}->warn("can't find node name in link $link");
432                  }                  }
433          }          }
434    
435            $self->setup_site( $site );
436            $self->{est_node}->_set_info;
437    
438          $self->{log}->dumper( \@nodes, 'nodes' );          $self->{log}->dumper( \@nodes, 'nodes' );
439    
440          return @nodes;          return @nodes;
Legend:
Removed from v.403  
changed lines
  Added in v.404
  ViewVC Help
Powered by ViewVC 1.1.26