X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FAuthClient.pm;h=0c9e5a97f864b246e4d9dce8e8b5443904f28f64;hb=7520cd583a92860e2a33ee0b3155fd1695cc21bf;hp=849fc30bec4942bf073af1009c5a4c2535676050;hpb=a4eedbad532a8f0e01eeb00948a761dea80bde77;p=kivitendo-erp.git diff --git a/SL/DB/AuthClient.pm b/SL/DB/AuthClient.pm index 849fc30be..0c9e5a97f 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 && $::lx_office_conf{features}->{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 !$::lx_office_conf{features}->{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 $::lx_office_conf{features}->{webdav}; - croak "Need object ID" unless $self->id; my $new_symlink = $self->webdav_symlink_basename; @@ -174,7 +171,7 @@ L so the UTF-8 flag will be set properly. =item C -Returns an array of human-readable error message if the object must +Returns an array of human-readable error messages if the object must not be saved and an empty list if nothing's wrong. =item C