select_item für Erzeugnisse auch Langtext anzeigen, falls aktiviert

[mfinanz.git] / SL / DB / AuthClient.pm

diff --git a/SL/DB/AuthClient.pm b/SL/DB/AuthClient.pm
index ad225de28dc461dd4a6a405f5d566af4b426f3bd..0c9e5a97f864b246e4d9dce8e8b5443904f28f64 100644 (file)
--- 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<SL::DBConnect/get_options> so the UTF-8 flag will be set properly.
 
 =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>