Revision 24d1656e
Von Bernd Bleßmann vor mehr als 2 Jahren hinzugefügt
| SL/File.pm | ||
|---|---|---|
| 21 | 21 |
|
| 22 | 22 |
sub get {
|
| 23 | 23 |
my ($self, %params) = @_; |
| 24 |
die 'no id' unless $params{id};
|
|
| 25 |
my $dbfile = SL::DB::Manager::File->get_first(query => [id => $params{id}]);
|
|
| 26 |
die 'not found' unless $dbfile;
|
|
| 27 |
$main::lxdebug->message(LXDebug->DEBUG2(), "object_id=".$dbfile->object_id." object_type=".$dbfile->object_type." dbfile=".$dbfile);
|
|
| 28 |
SL::File::Object->new(db_file => $dbfile, id => $dbfile->id, loaded => 1);
|
|
| 24 |
die "no id or dbfile" unless $params{id} || $params{dbfile};
|
|
| 25 |
$params{dbfile} = SL::DB::Manager::File->get_first(query => [id => $params{id}]) if !$params{dbfile};
|
|
| 26 |
die 'not found' unless $params{dbfile};
|
|
| 27 |
$main::lxdebug->message(LXDebug->DEBUG2(), "object_id=".$params{dbfile}->object_id." object_type=".$params{dbfile}->object_type." dbfile=".$params{dbfile});
|
|
| 28 |
SL::File::Object->new(db_file => $params{dbfile}, id => $params{dbfile}->id, loaded => 1);
|
|
| 29 | 29 |
} |
| 30 | 30 |
|
| 31 | 31 |
sub get_version_count {
|
Auch abrufbar als: Unified diff
SL::File: get auch mit dbfile als Parameter aufrufen können