X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a258467b6ffbaa2bc7be78e5c564ed07c9aa5341..a6873ed48ebdaee1f5b1df63d431ccc54e829d7d:/SL/File/Backend/Webdav.pm diff --git a/SL/File/Backend/Webdav.pm b/SL/File/Backend/Webdav.pm index 40e1398e2..b1e48edf9 100644 --- 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 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); @@ -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}); - die "no file" if !-f $path; + die "No file found in Backend: " . $path unless -f $path; return $path; } @@ -105,8 +105,7 @@ sub sync_from_backend { } sub enabled { - return 0 unless $::instance_conf->get_doc_webdav; - return 1; + return $::instance_conf->get_doc_webdav; } #