projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Shop: Vorgangsbezeichnung nicht bei Shopware6 implementiert
[kivitendo-erp.git]
/
SL
/
File
/
Object.pm
diff --git
a/SL/File/Object.pm
b/SL/File/Object.pm
index
88883ac
..
42a651f
100644
(file)
--- a/
SL/File/Object.pm
+++ b/
SL/File/Object.pm
@@
-97,6
+97,10
@@
sub delete_last_version {
SL::File->delete(dbfile => $_[0]->loaded_db_file, last => 1 )
}
SL::File->delete(dbfile => $_[0]->loaded_db_file, last => 1 )
}
+sub delete_version {
+ SL::File->delete(dbfile => $_[0]->loaded_db_file, version => $_[0]->version )
+}
+
sub purge {
SL::File->delete(dbfile => $_[0]->loaded_db_file, all_but_notlast => 1 )
}
sub purge {
SL::File->delete(dbfile => $_[0]->loaded_db_file, all_but_notlast => 1 )
}
@@
-120,6
+124,10
@@
sub loaded_db_file { # so, dass wir die nur einmal laden.
$_[0]->db_file;
}
$_[0]->db_file;
}
+sub clone {
+ bless +{ %{ $_[0] } }, __PACKAGE__;
+}
+
sub init_db_file { die 'must always have a db file'; }
sub init_loaded { 0 }
sub init_db_file { die 'must always have a db file'; }
sub init_loaded { 0 }
@@
-143,7
+151,7
@@
SL::File::Object - a filemangement object wrapper
my ($object) = SL::File->get_all(object_id => $object_id,
object_type => $object_type,
my ($object) = SL::File->get_all(object_id => $object_id,
object_type => $object_type,
- file_type => 'image
s',
# may be optional
+ file_type => 'image
',
# may be optional
source => 'uploaded' # may be optional
);
# read attributes
source => 'uploaded' # may be optional
);
# read attributes