foreach my $fileobj (@fileobjs) {
$main::lxdebug->message(LXDebug->DEBUG2(), "obj=" . $fileobj . " id=" . $fileobj->id." versions=".$fileobj->version_count);
my $maxversion = $fileobj->version_count;
foreach my $fileobj (@fileobjs) {
$main::lxdebug->message(LXDebug->DEBUG2(), "obj=" . $fileobj . " id=" . $fileobj->id." versions=".$fileobj->version_count);
my $maxversion = $fileobj->version_count;
push @versionobjs, $fileobj;
if ($maxversion > 1) {
for my $version (2..$maxversion) {
push @versionobjs, $fileobj;
if ($maxversion > 1) {
for my $version (2..$maxversion) {
- if ( $params{last} || $params{all_but_notlast} ) {
- if ( $backend->get_version_count > 0 ) {
+ if ( $params{last} || $params{version} || $params{all_but_notlast} ) {
+ if ( $backend->get_version_count(%params) > 0 ) {