6 |
## |
## |
7 |
## ---------------------------------------------------------------------------------------- |
## ---------------------------------------------------------------------------------------- |
8 |
## $Log$ |
## $Log$ |
9 |
|
## Revision 1.5 2003/02/21 08:34:58 joko |
10 |
|
## modified object hierarchy |
11 |
|
## renamed method |
12 |
|
## |
13 |
## Revision 1.4 2003/02/14 14:06:20 joko |
## Revision 1.4 2003/02/14 14:06:20 joko |
14 |
## + minor fix to old metadata structure |
## + minor fix to old metadata structure |
15 |
## |
## |
41 |
|
|
42 |
use Data::Dumper; |
use Data::Dumper; |
43 |
use libdb qw( quotesql ); |
use libdb qw( quotesql ); |
44 |
use Data::Transform::Deep qw( refexpr2perlref ); |
use Data::Code::Ref qw( ref_slot ); |
45 |
|
|
46 |
# get logger instance |
# get logger instance |
47 |
my $logger = Log::Dispatch::Config->instance; |
my $logger = Log::Dispatch::Config->instance; |
279 |
# build callback map for helper function |
# build callback map for helper function |
280 |
#my $cbmap = { $self->{meta}->{source}->{IdentProvider}->{arg} => $cb_dispatcher }; |
#my $cbmap = { $self->{meta}->{source}->{IdentProvider}->{arg} => $cb_dispatcher }; |
281 |
my $cbmap = {}; |
my $cbmap = {}; |
282 |
my $value = refexpr2perlref($self->{node}->{source}->{payload}, $self->{node}->{source}->{propcache}->{property}, $cbmap); |
my $value = ref_slot($self->{node}->{source}->{payload}, $self->{node}->{source}->{propcache}->{property}, $cbmap); |
283 |
$self->{node}->{source}->{propcache}->{value} = $value; |
$self->{node}->{source}->{propcache}->{value} = $value; |
284 |
} |
} |
285 |
|
|