--- nfo/perl/libs/Data/Transfer/Sync/Metadata.pm	2003/02/11 06:28:24	1.3
+++ nfo/perl/libs/Data/Transfer/Sync/Metadata.pm	2003/03/28 03:08:17	1.6
@@ -1,4 +1,4 @@
-##    $Id: Metadata.pm,v 1.3 2003/02/11 06:28:24 joko Exp $
+##    $Id: Metadata.pm,v 1.6 2003/03/28 03:08:17 joko Exp $
 ##
 ##    Copyright (c) 2002  Andreas Motl <andreas.motl@ilo.de>
 ##
@@ -6,6 +6,16 @@
 ##
 ##    ----------------------------------------------------------------------------------------
 ##    $Log: Metadata.pm,v $
+##    Revision 1.6  2003/03/28 03:08:17  joko
+##    fix regarding namespace update
+##
+##    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
+##
 ##    Revision 1.3  2003/02/11 06:28:24  joko
 ##    + changes to metadata structure
 ##
@@ -34,7 +44,7 @@
 
 use Data::Dumper;
 use libdb qw( quotesql );
-use Data::Transform::Deep qw( refexpr2perlref );
+use Data::Mungle::Code::Ref qw( ref_slot );
 
 # get logger instance
 my $logger = Log::Dispatch::Config->instance;
@@ -86,7 +96,7 @@
     
     # TypeProvider
     # FIXME! this is still Vdeprecated!!!
-    if (my $item_type = $self->{args}->{$_ . '_type'}) {
+    if (my $item_type = $self->{options}->{$_ . '_type'}) {
       my @item_type = split(':', $item_type);
       $self->{meta}->{$_}->{TypeProvider} = { method => $item_type[0], arg => $item_type[1] };
     }
@@ -272,7 +282,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;
         }