Revision 9a578c8b
Von Jan Büren vor mehr als 11 Jahren hinzugefügt
| SL/DB/AuthClient.pm | ||
|---|---|---|
| 45 | 45 |
sub _after_save_ensure_webdav_symlink_correctness {
|
| 46 | 46 |
my ($self) = @_; |
| 47 | 47 |
|
| 48 |
$self->ensure_webdav_symlink_correctness($self->{__before_save_remember_old_name}) if $self->id && $::lx_office_conf{features}->{webdav};
|
|
| 48 |
$self->ensure_webdav_symlink_correctness($self->{__before_save_remember_old_name}) if $self->id && $::instance_conf->get_webdav;
|
|
| 49 | 49 |
return 1; |
| 50 | 50 |
} |
| 51 | 51 |
|
| 52 | 52 |
sub _after_delete_delete_webdav_symlink {
|
| 53 | 53 |
my ($self) = @_; |
| 54 | 54 |
|
| 55 |
return 1 if !$::lx_office_conf{features}->{webdav};
|
|
| 55 |
return 1 if !$::instance_conf->get_webdav;
|
|
| 56 | 56 |
my $name = $self->webdav_symlink_basename; |
| 57 | 57 |
unlink "webdav/links/${name}";
|
| 58 | 58 |
return 1; |
| ... | ... | |
| 85 | 85 |
sub ensure_webdav_symlink_correctness {
|
| 86 | 86 |
my ($self, $old_name) = @_; |
| 87 | 87 |
|
| 88 |
return unless $::lx_office_conf{features}->{webdav};
|
|
| 88 |
return unless $::instance_conf->get_webdav;
|
|
| 89 | 89 |
|
| 90 | 90 |
croak "Need object ID" unless $self->id; |
| 91 | 91 |
|
Auch abrufbar als: Unified diff
Trac 2300 / 2301 zweiter Versuch
;-)