Revision 48baa5eb
Von Martin Helmling martin.helmling@octosoft.eu vor etwa 7 Jahren hinzugefügt
| SL/File.pm | ||
|---|---|---|
| 72 | 72 |
foreach my $fileobj (@fileobjs) {
|
| 73 | 73 |
$main::lxdebug->message(LXDebug->DEBUG2(), "obj=" . $fileobj . " id=" . $fileobj->id." versions=".$fileobj->version_count); |
| 74 | 74 |
my $maxversion = $fileobj->version_count; |
| 75 |
$fileobj->version($maxversion); |
|
| 75 | 76 |
push @versionobjs, $fileobj; |
| 76 | 77 |
if ($maxversion > 1) {
|
| 77 | 78 |
for my $version (2..$maxversion) {
|
| ... | ... | |
| 162 | 163 |
} |
| 163 | 164 |
if ($backend->delete(%params)) {
|
| 164 | 165 |
my $do_delete = 0; |
| 165 |
if ( $params{last} || $params{all_but_notlast} ) {
|
|
| 166 |
if ( $backend->get_version_count > 0 ) {
|
|
| 166 |
if ( $params{last} || $params{version} || $params{all_but_notlast} ) {
|
|
| 167 |
if ( $backend->get_version_count(%params) > 0 ) {
|
|
| 167 | 168 |
$params{dbfile}->mtime(DateTime->now_local);
|
| 168 | 169 |
$params{dbfile}->save;
|
| 169 | 170 |
} else {
|
Auch abrufbar als: Unified diff
Dateimanagement: Checkbox zum Löschen/Umbenennen fehlt teilweise bei ERP-Dokumenten
Umgebaut, damit jede einzelne Version eines Dokumentes löschbar ist
fix #51