kivitendo/SL/Webdav/VersionScheme/Serial.pm @ fe681ce4
| dc6d8231 | Sven Schöling | package SL::Webdav::VersionScheme::Serial;
|
||
use strict;
|
||||
use parent qw(Rose::Object);
|
||||
use DateTime;
|
||||
sub separator { "-" }
|
||||
sub extract_regexp { qr/\d+/ }
|
||||
sub cmp { sub { $_[0]->version <=> $_[1]->version } }
|
||||
sub first_version { }
|
||||
sub next_version { $_[1]->version + 1 }
|
||||
sub keep_last_version {
|
||||
my ($self, $last) = @_;
|
||||
| 6d74ac0e | Sven Schöling | if ($::lx_office_conf->{webdav}{new_version_after_minutes}) {
|
||
| dc6d8231 | Sven Schöling | return DateTime->now <= $last->mtime + DateTime::Duration->new(minutes => $::lx_office_conf{webdav}{new_version_after_minutes});
|
||
} else {
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
1;
|