6 |
## |
## |
7 |
## ---------------------------------------------------------------------------------------- |
## ---------------------------------------------------------------------------------------- |
8 |
## $Log$ |
## $Log$ |
9 |
|
## Revision 1.3 2003/02/11 07:54:55 joko |
10 |
|
## + modified module usage |
11 |
|
## + debugging trials |
12 |
|
## |
13 |
## Revision 1.2 2003/02/09 05:05:58 joko |
## Revision 1.2 2003/02/09 05:05:58 joko |
14 |
## + major structure changes |
## + major structure changes |
15 |
## - refactored code to sister modules |
## - refactored code to sister modules |
36 |
|
|
37 |
use Data::Dumper; |
use Data::Dumper; |
38 |
use Hash::Merge qw( merge ); |
use Hash::Merge qw( merge ); |
39 |
use libdb qw( quotesql hash2Sql ); |
use libdb qw( hash2Sql ); |
40 |
use Data::Transform::Deep qw( hash2object refexpr2perlref ); |
use Data::Transform::Deep qw( hash2object ); |
41 |
|
|
42 |
|
|
43 |
# get logger instance |
# get logger instance |
61 |
my $self = shift; |
my $self = shift; |
62 |
my $descent = shift; |
my $descent = shift; |
63 |
|
|
64 |
#print Dumper($self->{node}->{$descent}); |
# trace |
65 |
#print Dumper($self); |
#print Dumper($self->{node}->{$descent}); |
66 |
|
#print Dumper($self); |
67 |
|
#exit; |
68 |
|
|
69 |
$logger->debug( __PACKAGE__ . "->_resolveNodeIdent( descent=$descent, accessorName=$self->{meta}->{$descent}->{accessorName} )" ); |
$logger->debug( __PACKAGE__ . "->_resolveNodeIdent( descent=$descent, accessorName=$self->{meta}->{$descent}->{accessorName} )" ); |
70 |
|
|
71 |
# get to the payload |
# get to the payload |
77 |
#my $ident = $self->{$descent}->id($item); |
#my $ident = $self->{$descent}->id($item); |
78 |
#my $ident = $self->{meta}->{$descent}->{storage}->id($item); |
#my $ident = $self->{meta}->{$descent}->{storage}->id($item); |
79 |
|
|
80 |
|
# trace |
81 |
|
#print Dumper($self->{meta}->{$descent}); |
82 |
|
#exit; |
83 |
|
|
84 |
my $ident; |
my $ident; |
85 |
my $provider_method = $self->{meta}->{$descent}->{IdentProvider}->{method}; |
my $provider_method = $self->{meta}->{$descent}->{IdentProvider}->{method}; |
86 |
my $provider_arg = $self->{meta}->{$descent}->{IdentProvider}->{arg}; |
my $provider_arg = $self->{meta}->{$descent}->{IdentProvider}->{arg}; |
127 |
my $ident = shift; |
my $ident = shift; |
128 |
my $force = shift; |
my $force = shift; |
129 |
|
|
130 |
$logger->debug( __PACKAGE__ . "->_statloadNode( descent=$descent ident=$ident )" ); |
#$logger->debug( __PACKAGE__ . "->_statloadNode( descent=$descent ident=$ident )" ); |
131 |
|
|
132 |
# fetch entry to retrieve checksum from |
# fetch entry to retrieve checksum from |
133 |
# was: |
# was: |