X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FAuthClient.pm;h=0c9e5a97f864b246e4d9dce8e8b5443904f28f64;hb=844a541e0d8f59644540413f675e8f07cd154cf6;hp=ad225de28dc461dd4a6a405f5d566af4b426f3bd;hpb=891f62176912eb5c1e8864a1140635e4ad533d08;p=kivitendo-erp.git diff --git a/SL/DB/AuthClient.pm b/SL/DB/AuthClient.pm index ad225de28..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 && $::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; @@ -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