X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FFile%2FObject.pm;h=7ac8706fce69757752fb1e45de176773f3bb91f4;hb=a21cec5283b01032d217d88745186080f49c9f16;hp=88883ac0abdc84a9b7ba0feb05d81f5d788a16a5;hpb=33749625e16aae5386b5b59a45c9c0e987bd5b4e;p=kivitendo-erp.git

diff --git a/SL/File/Object.pm b/SL/File/Object.pm
index 88883ac0a..7ac8706fc 100644
--- 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 )
 }