/[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 526 by dpavlin, Mon May 22 18:26:56 2006 UTC revision 527 by dpavlin, Mon May 22 19:34:28 2006 UTC
# Line 219  sub add_link { Line 219  sub add_link {
219          my $args = {@_};          my $args = {@_};
220          my $log = $self->_get_logger;          my $log = $self->_get_logger;
221    
222            foreach my $p (qw/from to credit/) {
223                    $log->logdie("need $p") unless ($args->{$p});
224            }
225    
226          my $node = first { $_->{name} eq $args->{to} } $self->master( action => 'nodelist' );          my $node = first { $_->{name} eq $args->{to} } $self->master( action => 'nodelist' );
227    
228          if (! $node) {          if (! $node) {
Legend:
Removed from v.526  
changed lines
  Added in v.527
  ViewVC Help
Powered by ViewVC 1.1.26