--- nfo/perl/libs/Data/Transfer/Sync/Core.pm	2004/06/19 01:45:08	1.12
+++ nfo/perl/libs/Data/Transfer/Sync/Core.pm	2004/06/19 16:53:38	1.13
@@ -1,6 +1,6 @@
 ## -------------------------------------------------------------------------
 ##
-##    $Id: Core.pm,v 1.12 2004/06/19 01:45:08 joko Exp $
+##    $Id: Core.pm,v 1.13 2004/06/19 16:53:38 joko Exp $
 ##
 ##    Copyright (c) 2002  Andreas Motl <andreas.motl@ilo.de>
 ##
@@ -8,6 +8,9 @@
 ##
 ## -------------------------------------------------------------------------
 ##    $Log: Core.pm,v $
+##    Revision 1.13  2004/06/19 16:53:38  joko
+##    fix: handle local checksum only if database is configured with "hasLocalChecksum"
+##
 ##    Revision 1.12  2004/06/19 01:45:08  joko
 ##    introduced "local checksum"-mechanism
 ##    moved _dumpCompact to ::Compare::Checksum
@@ -317,8 +320,11 @@
     #if ( $statOK && (lc $self->{args}->{method} eq 'checksum') ) {
     #if ( !$self->{node}->{status}->{new} && (lc $self->{args}->{method} eq 'checksum') ) {
       
-    # calculate local checksum of source node
-    $self->handleLocalChecksum('source');
+    # new 2004-06-17: calculate local checksum of source node
+    # new 2004-06-19: ... only if requested
+    if ($self->{options}->{source}->{storage}->{handle}->{locator}->{hasLocalChecksum}) {
+      $self->handleLocalChecksum('source');
+    }
     
     # calculate checksum of source node
       #$self->_calcChecksum('source');
@@ -363,7 +369,9 @@
       }
 
       # new 2004-06-17: also check if local checksum is inconsistent
-      if ($self->{node}->{source}->{checksum_local_storage} ne $self->{node}->{source}->{checksum_local_calculated}) {
+      # new 2004-06-19: ... only if requested
+      if ($self->{options}->{source}->{storage}->{handle}->{locator}->{hasLocalChecksum} and
+        ($self->{node}->{source}->{checksum_local_storage} ne $self->{node}->{source}->{checksum_local_calculated}) ) {
         $self->{node}->{status}->{dirty_local} = 1;
         $self->{node}->{status}->{dirty} = 1;
       }