X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/33749625e16aae5386b5b59a45c9c0e987bd5b4e..dc2a8f704fb1cf452e11fc1c80c2f5e39ea8f30f:/SL/File/Object.pm

diff --git a/SL/File/Object.pm b/SL/File/Object.pm
index 88883ac0a..3aa553d23 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 )
 }
@@ -120,6 +124,10 @@ sub loaded_db_file {  # so, dass wir die nur einmal laden.
   $_[0]->db_file;
 }
 
+sub clone {
+  bless +{ %{ $_[0] } }, __PACKAGE__;
+}
+
 
 sub init_db_file { die 'must always have a db file'; }
 sub init_loaded  { 0 }