X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FController%2FFile.pm;h=3412ffbbb2483a838916ff254465622728f525b5;hb=d2ed673eafba1bbfeeca578dc19cc630523ba0cf;hp=bb976e0566440f6727dbd58b56b1a24952c189c1;hpb=735c177241105203f656d36833d0fed21318992d;p=kivitendo-erp.git diff --git a/SL/Controller/File.pm b/SL/Controller/File.pm index bb976e056..3412ffbbb 100644 --- a/SL/Controller/File.pm +++ b/SL/Controller/File.pm @@ -135,7 +135,8 @@ sub action_ajax_unimport { 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; @@ -320,9 +321,9 @@ sub check_object_params { } 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}); @@ -350,9 +351,13 @@ sub _delete_all { 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; @@ -458,7 +463,7 @@ sub _mk_render { 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 { @@ -490,7 +495,8 @@ sub _get_sources { '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') }; @@ -510,6 +516,7 @@ sub _get_sources { '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') @@ -531,6 +538,7 @@ sub _get_sources { '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') }; @@ -549,6 +557,7 @@ sub _get_sources { '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') };