--- 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/02/14 14:06:20	1.4
@@ -1,4 +1,4 @@
-##    $Id: Metadata.pm,v 1.3 2003/02/11 06:28:24 joko Exp $
+##    $Id: Metadata.pm,v 1.4 2003/02/14 14:06:20 joko Exp $
 ##
 ##    Copyright (c) 2002  Andreas Motl <andreas.motl@ilo.de>
 ##
@@ -6,6 +6,9 @@
 ##
 ##    ----------------------------------------------------------------------------------------
 ##    $Log: Metadata.pm,v $
+##    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
 ##
@@ -86,7 +89,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] };
     }