/[cvs]/nfo/perl/libs/Data/Transfer/Sync/Map.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Transfer/Sync/Map.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Tue May 13 08:10:11 2003 UTC revision 1.2 by jonen, Tue May 11 20:04:40 2004 UTC
# Line 8  Line 8 
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  ##  ##
# Line 112  sub buildAttributeMap { Line 115  sub buildAttributeMap {
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        
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed