+ if (($file_types{$self->object_type}->{gen}*1 & 4)==4) {
+ # bit 3 is set => means upload
+ my $source = {
+ 'name' => 'uploaded',
+ 'title' => $main::locale->text('uploaded Documents'),
+ 'chk_action' => 'uploaded_documents_delete',
+ 'chk_title' => $main::locale->text('Delete Documents'),
+ 'chkall_title' => $main::locale->text('Delete all'),
+ 'file_title' => $main::locale->text('filename'),
+ 'confirm_text' => $main::locale->text('delete'),
+ 'can_rename' => 1,
+ 'are_existing' => $self->existing ? 1 : 0,
+ 'rename_title' => $main::locale->text('Rename Attachments'),
+ 'can_upload' => 1,
+ 'can_delete' => 1,
+ 'upload_title' => $main::locale->text('Upload Documents'),
+ 'done_text' => $main::locale->text('deleted')
+ };
+ push @sources , $source;
+ }
+