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;
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;
=item C<validate>
-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<webdav_symlink_basename>