/[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 458 by dpavlin, Wed May 10 14:08:15 2006 UTC revision 459 by dpavlin, Wed May 10 14:48:25 2006 UTC
# Line 10  use Encode qw/from_to/; Line 10  use Encode qw/from_to/;
10  use Data::Dumper;  use Data::Dumper;
11  use LWP;  use LWP;
12  use URI::Escape;  use URI::Escape;
13    use List::Util qw/first/;
14    
15  =head1 NAME  =head1 NAME
16    
# Line 216  sub add_link { Line 217  sub add_link {
217          my $args = {@_};          my $args = {@_};
218          my $log = $self->_get_logger;          my $log = $self->_get_logger;
219    
220          my @labels = $self->master( action => 'nodelist' );          my $node = first { $_->{name} eq $args->{to} } $self->master( action => 'nodelist' );
221    
222          $log->debug("got labels: ", join("|", @labels));          if (! $node) {
223                    $log->warn("can't find node $args->{to}, skipping link creaton");
224                    return;
225            }
226    
227          @labels = grep(/^$args->{to}\t/, @labels);          my $label = $node->{label};
         my $label = shift @labels;  
         (undef,$label) = split(/\t/, $label) if ($label);  
228    
229          if (! $label) {          if (! $label) {
230                  $log->warn("can't find label for $args->{to}, skipping link creaton");                  $log->warn("can't find label for $args->{to}, skipping link creaton");
# Line 231  sub add_link { Line 233  sub add_link {
233    
234          $log->debug("using label $label for $args->{to}");          $log->debug("using label $label for $args->{to}");
235    
236          return $self->estcall(          return $self->{db}->set_link(
237                  validate => 'node',                  $self->{masterurl} . '/node/' . $args->{to},
238                  action => '_set_link',                  $label,
239                  rest_url => $self->{masterurl} . '/node/' . $args->{from} . '/_set_link' ,                  $args->{credit},
                 url => $self->{masterurl} . '/node/' . $args->{to},  
                 label => $label,  
                 credit => $args->{credit},  
240          );          );
241  }  }
242    
Legend:
Removed from v.458  
changed lines
  Added in v.459
  ViewVC Help
Powered by ViewVC 1.1.26