Revision f3324b5a
Von Bernd Bleßmann vor fast 3 Jahren hinzugefügt
| SL/File.pm | ||
|---|---|---|
|
sub get_all_versions {
|
||
|
my ($self, %params) = @_;
|
||
|
my @versionobjs;
|
||
|
my @fileobjs = $self->get_all(%params);
|
||
|
my @fileobjs;
|
||
|
if ( $params{dbfile} ) {
|
||
|
push @fileobjs, SL::File::Object->new(dbfile => $params{db_file}, id => $params{dbfile}->id, loaded => 1);
|
||
|
push @fileobjs, SL::File::Object->new(db_file => $params{dbfile}, id => $params{dbfile}->id, loaded => 1);
|
||
|
} else {
|
||
|
@fileobjs = $self->get_all(%params);
|
||
|
}
|
||
Auch abrufbar als: Unified diff
SL::File: get_all_versions mit dbfile als Parameter gefixed