--- nfo/perl/libs/Data/Mungle/Transform/Map.pm	2003/02/14 12:54:30	1.2
+++ nfo/perl/libs/Data/Mungle/Transform/Map.pm	2003/02/21 01:49:24	1.3
@@ -1,7 +1,10 @@
 ## --------------------------------------------------------------------------------
-##  $Id: Map.pm,v 1.2 2003/02/14 12:54:30 joko Exp $
+##  $Id: Map.pm,v 1.3 2003/02/21 01:49:24 joko Exp $
 ## --------------------------------------------------------------------------------
 ##  $Log: Map.pm,v $
+##  Revision 1.3  2003/02/21 01:49:24  joko
+##  renamed core function
+##
 ##  Revision 1.2  2003/02/14 12:54:30  joko
 ##  + established first code here
 ##
@@ -21,7 +24,7 @@
 
 use Data::Dumper;
 use XML::Simple;
-use Data::Transform::Encode qw( var2utf8 var_utf2iso );
+use Data::Transform::Encode qw( utf8_to_latin );
 use Data::Compare::Struct qw( getRelations getDifference );
 use Data::Transform::Deep qw( deep_copy );
 
@@ -40,7 +43,7 @@
 sub _readSelectDb {
   my $self = shift;
   my $data = XMLin($self->{filename});
-  var_utf2iso($data);
+  utf8_to_latin($data);
   $self->{db} = $data;
 }