/[wait]/branches/CPAN/lib/WAIT/Table/Disjoint.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 /branches/CPAN/lib/WAIT/Table/Disjoint.pm

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

revision 12 by unknown, Fri Apr 28 15:41:10 2000 UTC revision 13 by ulpfr, Fri Apr 28 15:42:44 2000 UTC
# Line 1  Line 1 
1  #                              -*- Mode: Perl -*-  #                              -*- Mode: Cperl -*-
2  # Disjoint.pm --  # Disjoint.pm --
3  # ITIID           : $ITI$ $Header $__Header$  # ITIID           : $ITI$ $Header $__Header$
4  # Author          : Ulrich Pfeifer  # Author          : Ulrich Pfeifer
# Line 28  sub fetch { Line 28  sub fetch {
28    my $self = shift;    my $self = shift;
29    my $key   = shift;    my $key   = shift;
30    my $name = $self->{name};    my $name = $self->{name};
31      
32    my %tp = $self->SUPER::fetch($key);    my %tattr = $self->SUPER::fetch($key);
33    if (%tp) {    if (%tattr) {
34      $tp{'_ee'} = join ('_', map($tp{$_} || 'undef', @{$self->{djk}}))."_$key";      $tattr{'_ee'} = join ('_', map($tattr{$_} || 'undef', @{$self->{djk}}))."_$key";
35    }    }
36    %tp;    %tattr;
37  }  }
38    
39  1;  1;
Legend:
Removed from v.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.26