$_[0]->loaded_db_file->file_type;
}
-sub file_name {
- $_[0]->loaded_db_file->file_name;
-}
-
sub object_type {
$_[0]->loaded_db_file->object_type;
}
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 )
}
$_[0]->db_file;
}
+sub clone {
+ bless +{ %{ $_[0] } }, __PACKAGE__;
+}
+
sub init_db_file { die 'must always have a db file'; }
sub init_loaded { 0 }
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