X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FFile%2FObject.pm;h=42a651f98a98bdf5ee18a61caece1d65e59d862c;hb=5a1dbe037515fdd49a2bf2004dcf94f6463db646;hp=fd1052861150d32b36286e298d20782bc61e9343;hpb=2bb452ee62e74c2a42113171eeb53de8d09bbbf5;p=kivitendo-erp.git

diff --git a/SL/File/Object.pm b/SL/File/Object.pm
index fd1052861..42a651f98 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 )
 }
@@ -124,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 }
@@ -147,7 +151,7 @@ SL::File::Object - a filemangement object wrapper
 
   my ($object) = SL::File->get_all(object_id   => $object_id,
                                    object_type => $object_type,
-                                   file_type   => 'images',  # may be optional
+                                   file_type   => 'image',   # may be optional
                                    source      => 'uploaded' # may be optional
                                   );
 # read attributes