sub action_ajax_rename {
my ($self) = @_;
- my $file = SL::File->get(id => $::form->{id});
+ my ($id, $version) = split /_/, $::form->{id};
+ my $file = SL::File->get(id => $id);
if ( ! $file ) {
$self->js->flash('error', $::locale->text('File not exists !'))->render();
return;
} elsif ( $::form->{object_type} ) {
$type = $::form->{object_type};
}
- die "No object type" unless $type;
- die "No file type" unless $::form->{file_type};
- die "Unkown object type" unless $file_types{$type};
+ die "No object type" unless $type;
+ die "No file type" unless $::form->{file_type};
+ die "Unknown object type" unless $file_types{$type};
$self->is_global($gldoc);
$self->file_type($::form->{file_type});
foreach my $id_version (@{ $::form->{$ids} || [] }) {
my ($id, $version) = split /_/, $id_version;
my $dbfile = SL::File->get(id => $id);
- $dbfile->version($version) if $dbfile && $version;
- if ( $dbfile && $dbfile->delete ) {
- $files .= ' ' . $dbfile->file_name;
+ if ( $dbfile ) {
+ if ( $version ) {
+ $dbfile->version($version);
+ $files .= ' ' . $dbfile->file_name if $dbfile->delete_version;
+ } else {
+ $files .= ' ' . $dbfile->file_name if $dbfile->delete;
+ }
}
}
$self->js->flash('info', $infotext . $files) if $files;
my $first = shift @{$self->existing};
my ($first_id, $sfile) = split('_', $first, 2);
my $file = SL::File->get(id => $first_id );
- $self->js->run('kivi.File.askForRename', $first_id, $file->file_name, $sfile, join (',', @{$self->existing}), $self->is_global);
+ $self->js->run('kivi.File.askForRename', $first_id, $file->file_type, $file->file_name, $sfile, join (',', @{$self->existing}), $self->is_global);
}
$self->js->render();
} else {
'chkall_title' => $main::locale->text('Delete all'),
'file_title' => $main::locale->text('filename'),
'confirm_text' => $main::locale->text('delete'),
- 'can_rename' => 1,
+ 'can_delete' => $::instance_conf->get_doc_delete_printfiles,
+ 'can_rename' => $::instance_conf->get_doc_delete_printfiles,
'rename_title' => $main::locale->text('Rename Documents'),
'done_text' => $main::locale->text('deleted')
};
'can_rename' => 1,
'rename_title' => $main::locale->text('Rename Documents'),
'can_import' => 1,
+ 'can_delete' => 0,
'import_title' => $main::locale->text('Add Document from \'#1\'', $scanner_or_mailrx->{name}),
'path' => $scanner_or_mailrx->{directory},
'done_text' => $main::locale->text('unimported')
'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 Attachments'),
'done_text' => $main::locale->text('deleted')
};
'are_existing' => $self->existing ? 1 : 0,
'rename_title' => $main::locale->text('Rename Images'),
'can_upload' => 1,
+ 'can_delete' => 1,
'upload_title' => $main::locale->text('Upload Images'),
'done_text' => $main::locale->text('deleted')
};