1 |
# -*- Mode: Perl -*- |
# -*- Mode: Cperl -*- |
2 |
# Independent.pm -- |
# Independent.pm -- |
3 |
# ITIID : $ITI$ $Header $__Header$ |
# ITIID : $ITI$ $Header $__Header$ |
4 |
# Author : Ulrich Pfeifer |
# Author : Ulrich Pfeifer |
21 |
my $self = shift; |
my $self = shift; |
22 |
my $key = shift; |
my $key = shift; |
23 |
my $name = $self->{name}; |
my $name = $self->{name}; |
24 |
|
|
25 |
my %tp = $self->SUPER::fetch($key); |
my %tattr = $self->SUPER::fetch($key); |
26 |
if (%tp) { |
if (%tattr) { |
27 |
$tp{'_ee'} = "$name$key"; |
$tattr{'_ee'} = "$name$key"; |
28 |
} |
} |
29 |
%tp; |
%tattr; |
30 |
} |
} |
31 |
|
|
32 |
sub insert { |
sub insert { |