--- nfo/perl/libs/Data/Transfer/Sync/Metadata.pm	2003/02/14 14:06:20	1.4
+++ nfo/perl/libs/Data/Transfer/Sync/Metadata.pm	2003/02/21 08:34:58	1.5
@@ -1,4 +1,4 @@
-##    $Id: Metadata.pm,v 1.4 2003/02/14 14:06:20 joko Exp $
+##    $Id: Metadata.pm,v 1.5 2003/02/21 08:34:58 joko Exp $
 ##
 ##    Copyright (c) 2002  Andreas Motl <andreas.motl@ilo.de>
 ##
@@ -6,6 +6,10 @@
 ##
 ##    ----------------------------------------------------------------------------------------
 ##    $Log: Metadata.pm,v $
+##    Revision 1.5  2003/02/21 08:34:58  joko
+##    modified object hierarchy
+##    renamed method
+##
 ##    Revision 1.4  2003/02/14 14:06:20  joko
 ##    + minor fix to old metadata structure
 ##
@@ -37,7 +41,7 @@
 
 use Data::Dumper;
 use libdb qw( quotesql );
-use Data::Transform::Deep qw( refexpr2perlref );
+use Data::Code::Ref qw( ref_slot );
 
 # get logger instance
 my $logger = Log::Dispatch::Config->instance;
@@ -275,7 +279,7 @@
           # build callback map for helper function
           #my $cbmap = { $self->{meta}->{source}->{IdentProvider}->{arg} => $cb_dispatcher };
           my $cbmap = {};
-          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);
           $self->{node}->{source}->{propcache}->{value} = $value;
         }