X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/2bb452ee62e74c2a42113171eeb53de8d09bbbf5..6ecf138db5fceea08d68dbcd539344797cd43939:/SL/File/Object.pm

diff --git a/SL/File/Object.pm b/SL/File/Object.pm
index fd1052861..7ac8706fc 100644
--- a/SL/File/Object.pm
+++ b/SL/File/Object.pm
@@ -31,10 +31,6 @@ sub file_type {
   $_[0]->loaded_db_file->file_type;
 }
 
-sub file_name {
-  $_[0]->loaded_db_file->file_name;
-}
-
 sub object_type {
   $_[0]->loaded_db_file->object_type;
 }
@@ -101,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 )
 }