6 |
## |
## |
7 |
## ---------------------------------------------------------------------------------------- |
## ---------------------------------------------------------------------------------------- |
8 |
## $Log$ |
## $Log$ |
9 |
|
## Revision 1.6 2003/03/28 03:08:17 joko |
10 |
|
## fix regarding namespace update |
11 |
|
## |
12 |
|
## Revision 1.5 2003/02/21 08:34:58 joko |
13 |
|
## modified object hierarchy |
14 |
|
## renamed method |
15 |
|
## |
16 |
## Revision 1.4 2003/02/14 14:06:20 joko |
## Revision 1.4 2003/02/14 14:06:20 joko |
17 |
## + minor fix to old metadata structure |
## + minor fix to old metadata structure |
18 |
## |
## |
44 |
|
|
45 |
use Data::Dumper; |
use Data::Dumper; |
46 |
use libdb qw( quotesql ); |
use libdb qw( quotesql ); |
47 |
use Data::Transform::Deep qw( refexpr2perlref ); |
use Data::Mungle::Code::Ref qw( ref_slot ); |
48 |
|
|
49 |
# get logger instance |
# get logger instance |
50 |
my $logger = Log::Dispatch::Config->instance; |
my $logger = Log::Dispatch::Config->instance; |
282 |
# build callback map for helper function |
# build callback map for helper function |
283 |
#my $cbmap = { $self->{meta}->{source}->{IdentProvider}->{arg} => $cb_dispatcher }; |
#my $cbmap = { $self->{meta}->{source}->{IdentProvider}->{arg} => $cb_dispatcher }; |
284 |
my $cbmap = {}; |
my $cbmap = {}; |
285 |
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); |
286 |
$self->{node}->{source}->{propcache}->{value} = $value; |
$self->{node}->{source}->{propcache}->{value} = $value; |
287 |
} |
} |
288 |
|
|