--- nfo/perl/libs/Data/Transfer/Sync.pm 2002/12/15 02:03:09 1.8 +++ nfo/perl/libs/Data/Transfer/Sync.pm 2002/12/19 01:07:16 1.10 @@ -1,4 +1,4 @@ -## $Id: Sync.pm,v 1.8 2002/12/15 02:03:09 joko Exp $ +## $Id: Sync.pm,v 1.10 2002/12/19 01:07:16 joko Exp $ ## ## Copyright (c) 2002 Andreas Motl ## @@ -6,6 +6,12 @@ ## ## ---------------------------------------------------------------------------------------- ## $Log: Sync.pm,v $ +## Revision 1.10 2002/12/19 01:07:16 joko +## + fixed output done via $logger +## +## Revision 1.9 2002/12/16 07:02:34 jonen +## + added comment +## ## Revision 1.8 2002/12/15 02:03:09 joko ## + fixed logging-messages ## + additional metadata-checks @@ -121,7 +127,7 @@ $opts->{erase} ||= 0; #$opts->{import} ||= 0; - $logger->info( __PACKAGE__ . "->prepareOptions( source_node $opts->{source_node} mode $opts->{mode} erase $opts->{erase} prepare $opts->{prepare} )"); + $logger->notice( __PACKAGE__ . "->prepareOptions( source_node $opts->{source_node} mode $opts->{mode} erase $opts->{erase} prepare $opts->{prepare} )"); if (!$opts->{mapping} || !$opts->{mapping_module}) { $logger->warning( __PACKAGE__ . "->prepareOptions: No mapping supplied - please check key 'mappings' in BizWorks/Config.pm"); @@ -645,6 +651,7 @@ } +# refactor this as some core-function to do a generic dump resolving data-encapsulations of e.g. Set::Object sub _dumpCompact { my $self = shift;