SL::File->rename(id => $id,to => $newname);
my $files1 = SL::File->get_all(object_id => $object_id,
object_type => $object_type,
SL::File->rename(id => $id,to => $newname);
my $files1 = SL::File->get_all(object_id => $object_id,
object_type => $object_type,