X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/3e74cdf941535c9a2ce004a2572e87ec9b80a1ec..c2efdba2dfa10e76937e4bdf5a18e5483d0cddb0:/SL/File.pm?ds=sidebyside diff --git a/SL/File.pm b/SL/File.pm index 8675b1870..5efb403bd 100644 --- a/SL/File.pm +++ b/SL/File.pm @@ -122,7 +122,7 @@ sub delete_all { sub delete { my ($self, %params) = @_; - die "no id or dbfile" unless $params{id} || $params{dbfile}; + die "no id or dbfile in delete" unless $params{id} || $params{dbfile}; my $rc = 0; eval { $rc = SL::DB->client->with_transaction(\&_delete, $self, %params); @@ -307,7 +307,7 @@ sub sync_from_backend { return unless $params{file_type}; my $file = SL::DB::File->new; $file->file_type($params{file_type}); - my $backend = $self->_get_backend(dbfile => $file->backend); + my $backend = $self->_get_backend($self->_get_backend_by_file_type($file)); return unless $backend; $backend->sync_from_backend(%params); }