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