X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FAuthClient.pm;h=d3acaf998f612919b8bab087f815a2f909553f94;hb=3da73190b8f201bfb33e3b6d96bbc6330142e922;hp=ad225de28dc461dd4a6a405f5d566af4b426f3bd;hpb=891f62176912eb5c1e8864a1140635e4ad533d08;p=kivitendo-erp.git diff --git a/SL/DB/AuthClient.pm b/SL/DB/AuthClient.pm index ad225de28..d3acaf998 100644 --- a/SL/DB/AuthClient.pm +++ b/SL/DB/AuthClient.pm @@ -45,14 +45,13 @@ sub _before_save_remember_old_name { sub _after_save_ensure_webdav_symlink_correctness { my ($self) = @_; - $self->ensure_webdav_symlink_correctness($self->{__before_save_remember_old_name}) if $self->id && $::instance_conf->get_webdav; + $self->ensure_webdav_symlink_correctness($self->{__before_save_remember_old_name}) if $self->id; return 1; } sub _after_delete_delete_webdav_symlink { my ($self) = @_; - return 1 if !$::instance_conf->get_webdav; my $name = $self->webdav_symlink_basename; unlink "webdav/links/${name}"; return 1; @@ -85,8 +84,6 @@ sub webdav_symlink_basename { sub ensure_webdav_symlink_correctness { my ($self, $old_name) = @_; - return unless $::instance_conf->get_webdav; - croak "Need object ID" unless $self->id; my $new_symlink = $self->webdav_symlink_basename;