F:B:Webdav $path enthält Pfad + Datei, entsprechend vereinheitlicht

[mfinanz.git] / SL / File / Backend / Webdav.pm

diff --git a/SL/File/Backend/Webdav.pm b/SL/File/Backend/Webdav.pm
index 40e1398e2d5114f44753d64a12cbb38a0d4ecbd2..b1e48edf9ecb8aeee40c4719e79bf53f46275927 100644 (file)
--- a/SL/File/Backend/Webdav.pm
+++ b/SL/File/Backend/Webdav.pm
@@ -73,7 +73,7 @@ sub get_mtime {
   die "no dbfile" unless $params{dbfile};
   $main::lxdebug->message(LXDebug->DEBUG2(), "version=" .$params{version});
   my ($path, undef, undef) = $self->webdav_path($params{dbfile});
   die "no dbfile" unless $params{dbfile};
   $main::lxdebug->message(LXDebug->DEBUG2(), "version=" .$params{version});
   my ($path, undef, undef) = $self->webdav_path($params{dbfile});

-  die "no file found in backend" if !-f $path;
+  die "No file found in Backend: " . $path unless -f $path;

   my @st = stat($path);
   my $dt = DateTime->from_epoch(epoch => $st[9])->clone();
   $main::lxdebug->message(LXDebug->DEBUG2(), "dt=" .$dt);
   my @st = stat($path);
   my $dt = DateTime->from_epoch(epoch => $st[9])->clone();
   $main::lxdebug->message(LXDebug->DEBUG2(), "dt=" .$dt);


@@ -84,7 +84,7 @@ sub get_filepath {
   my ($self, %params) = @_;
   die "no dbfile" unless $params{dbfile};
   my ($path, undef, undef) = $self->webdav_path($params{dbfile});
   my ($self, %params) = @_;
   die "no dbfile" unless $params{dbfile};
   my ($path, undef, undef) = $self->webdav_path($params{dbfile});

-  die "no file" if !-f $path;
+  die "No file found in Backend: " . $path unless -f $path;

   return $path;
 }
 
   return $path;
 }
 


@@ -105,8 +105,7 @@ sub sync_from_backend {
 }
 
 sub enabled {
 }
 
 sub enabled {

-  return 0 unless $::instance_conf->get_doc_webdav;
-  return 1;
+  return $::instance_conf->get_doc_webdav;

 }
 
 #
 }
 
 #