use parent qw(SL::File::Backend);
use SL::DB::File;
-#use SL::Webdav;
+use SL::System::Process;
use File::Copy;
use File::Slurp;
use File::Basename;
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 ($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;
}
}
sub enabled {
- return 0 unless $::instance_conf->get_doc_webdav;
- return 1;
+ return $::instance_conf->get_doc_webdav;
}
#
GLTransaction => 'reference',
ShopImage => 'partnumber',
Customer => 'customernumber',
- Vendor => 'vendor',
+ Vendor => 'vendornumber',
);
sub webdav_path {
return (File::Spec->catfile($path, $fname), $path, $fname);
}
-sub get_rootdir {
- my ($self) = @_;
-
- #TODO immer noch das alte Problem:
- #je nachdem von woher der Aufruf kommt ist man in ./users oder .
- my $rootdir = POSIX::getcwd();
- my $basename = basename($rootdir);
- my $dirname = dirname($rootdir);
- $rootdir = $dirname if $basename eq 'users';
- return $rootdir;
-}
+sub get_rootdir { SL::System::Process::exe_dir() }
sub _get_number_from_model {
my ($self, $dbfile) = @_;
Martin Helmling E<lt>martin.helmling@opendynamic.deE<gt>
=cut
-
-