Revision a6873ed4
Von Bernd Bleßmann vor fast 3 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
| 593 | 593 |
return; |
| 594 | 594 |
} |
| 595 | 595 |
|
| 596 |
$form->{attachment_filename} ||= $form->generate_attachment_filename;
|
|
| 597 |
|
|
| 596 | 598 |
my $timestamp = get_current_formatted_time(); |
| 597 |
my $new_file = File::Spec->catfile($form->{cwd}, $webdav_folder, $form->generate_attachment_filename());
|
|
| 599 |
my $new_file = File::Spec->catfile($form->{cwd}, $webdav_folder, $form->{attachment_filename});
|
|
| 598 | 600 |
$new_file =~ s{(.*)\.}{$1$timestamp\.};
|
| 599 | 601 |
|
| 600 | 602 |
if (!File::Copy::copy($current_file, $new_file)) {
|
Auch abrufbar als: Unified diff
copy_file_to_webdav_folder: Übergebenen Anhang-Name berücksichtigen