8 |
## |
## |
9 |
## ------------------------------------------------------------------------- |
## ------------------------------------------------------------------------- |
10 |
## $Log$ |
## $Log$ |
11 |
|
## Revision 1.2 2004/05/11 20:04:40 jonen |
12 |
|
## bugfix[joko] related to emty hashrefs |
13 |
|
## |
14 |
## Revision 1.1 2003/05/13 08:10:11 joko |
## Revision 1.1 2003/05/13 08:10:11 joko |
15 |
## initial commit, code from Metadata.pm |
## initial commit, code from Metadata.pm |
16 |
## |
## |
115 |
# V2 - build callback map for helper function |
# V2 - build callback map for helper function |
116 |
#print Dumper($self->{node}->{source}->{payload}); |
#print Dumper($self->{node}->{source}->{payload}); |
117 |
#my $cbmap = { $self->{meta}->{source}->{IdentProvider}->{arg} => $cb_dispatcher }; |
#my $cbmap = { $self->{meta}->{source}->{IdentProvider}->{arg} => $cb_dispatcher }; |
118 |
my $cbmap = {}; |
|
119 |
|
# FIXED - 2004-05-11: providing an empty hashref to ref_slot seems to be a bad idea here.... |
120 |
|
#my $cbmap = {}; |
121 |
|
my $cbmap = undef; |
122 |
my $value = ref_slot($self->{node}->{source}->{payload}, $self->{node}->{source}->{propcache}->{property}, $cbmap); |
my $value = ref_slot($self->{node}->{source}->{payload}, $self->{node}->{source}->{propcache}->{property}, $cbmap); |
123 |
|
|
124 |
# new of 2003-05-12: Assertion: assume ref_slot resolves to scalar. (no ref!) |
# new of 2003-05-12: Assertion: assume ref_slot resolves to scalar. (no ref!) |
125 |
# Otherwise: Invalidate virtual object completely (skip sync). |
# Otherwise: Invalidate virtual object completely (skip sync). |
126 |
|
# TODO: Warn to STDOUT or somewhere else here? |
127 |
|
|
128 |
|
#print "prop: ", $self->{node}->{source}->{propcache}->{property}, "\n"; |
129 |
#print "val: $value", "\n"; |
#print "val: $value", "\n"; |
130 |
#if ($value =~ m/HASH/) { |
#if ($value =~ m/HASH/) { |
131 |
# print Dumper($self->{node}->{source}->{payload}); |
#print Dumper($value); |
132 |
|
#print Dumper($self->{node}->{source}->{payload}); |
133 |
#} |
#} |
134 |
return if ref $value; |
#return if ref $value; |
135 |
|
#next if ref $value; |
136 |
|
|
137 |
$self->{node}->{source}->{propcache}->{value} = $value; |
$self->{node}->{source}->{propcache}->{value} = $value; |
138 |
} |
} |
139 |
|
|