Dateimanagement: Checkbox zum Löschen/Umbenennen fehlt teilweise bei ERP-Dokumenten

[kivitendo-erp.git] / SL / File / Object.pm

diff --git a/SL/File/Object.pm b/SL/File/Object.pm
index 88883ac..7ac8706 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 )
 }
 
+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 )
 }