Revision 19727dec
Von Tamino Steinert vor 9 Monaten hinzugefügt
| SL/Controller/File.pm | ||
|---|---|---|
| 393 | 393 |
my ($self, $do_unimport, $infotext) = @_; |
| 394 | 394 |
my $files = ''; |
| 395 | 395 |
my $ids = $::form->{ids};
|
| 396 |
foreach my $id_version (@{ $::form->{$ids} || [] }) {
|
|
| 397 |
my ($id, $version) = split /_/, $id_version; |
|
| 398 |
my $dbfile = SL::File->get(id => $id); |
|
| 399 |
if ( $dbfile ) {
|
|
| 400 |
if ( $version ) {
|
|
| 401 |
$dbfile->version($version); |
|
| 402 |
$files .= ' ' . $dbfile->file_name if $dbfile->delete_version; |
|
| 403 |
} else {
|
|
| 404 |
$files .= ' ' . $dbfile->file_name if $dbfile->delete; |
|
| 405 |
} |
|
| 396 |
foreach my $version_guid (@{ $::form->{$ids} || [] }) {
|
|
| 397 |
my $dbfile = SL::File->get(guid => $version_guid); |
|
| 398 |
if ($dbfile) {
|
|
| 399 |
$files .= ' ' . $dbfile->file_name if $dbfile->delete_file_version; |
|
| 406 | 400 |
} |
| 407 | 401 |
} |
| 408 | 402 |
$self->js->flash('info', $infotext . $files) if $files;
|
Auch abrufbar als: Unified diff
File: Löschen über die guid der Version