X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FController%2FBase.pm;h=5e0fd26cb5a9aff6e223dbc649ef008b5a602239;hb=5efe13905a6ef7dbd22650cc9c1c17a246277484;hp=8b02ce0d494516c1c7e6f55e2fe2a94678b1d2f6;hpb=b8a539afe9faf52ecaca1b7ad06eacdebcefa88d;p=kivitendo-erp.git diff --git a/SL/Controller/Base.pm b/SL/Controller/Base.pm index 8b02ce0d4..5e0fd26cb 100644 --- a/SL/Controller/Base.pm +++ b/SL/Controller/Base.pm @@ -7,6 +7,7 @@ use parent qw(Rose::Object); use Carp; use IO::File; use List::Util qw(first); +use MIME::Base64; use SL::Request qw(flatten); use SL::MoreCommon qw(uri_encode); use SL::Presenter; @@ -74,6 +75,7 @@ sub render { header => 1, layout => 1, process => 1, + status => '200 ok', ); $options->{$_} //= $defaults{$_} for keys %defaults; $options->{type} = lc $options->{type}; @@ -130,7 +132,8 @@ sub render { : 'application/json'; print $::form->create_http_response(content_type => $content_type, - charset => 'UTF-8'); + charset => 'UTF-8', + (status => $options->{status}) x !!$options->{status}); } } @@ -156,16 +159,22 @@ sub send_file { my $attachment_name = $params{name} || (!ref($file_name_or_content) ? $file_name_or_content : ''); $attachment_name =~ s:.*//::g; - print $::form->create_http_response(content_type => $content_type, - content_disposition => 'attachment; filename="' . $attachment_name . '"', - content_length => $size); - - if (!ref $file_name_or_content) { - $::locale->with_raw_io(\*STDOUT, sub { print while <$file> }); - $file->close; - unlink $file_name_or_content if $params{unlink}; + if ($::request->is_ajax || $params{ajax}) { + my $octets = ref $file_name_or_content ? $file_name_or_content : \ do { local $/ = undef; <$file> }; + $self->js->save_file(MIME::Base64::encode_base64($$octets), $content_type, $size, $attachment_name); + $self->js->render unless $params{js_no_render}; } else { - $::locale->with_raw_io(\*STDOUT, sub { print $$file_name_or_content }); + print $::form->create_http_response(content_type => $content_type, + content_disposition => 'attachment; filename="' . $attachment_name . '"', + content_length => $size); + + if (!ref $file_name_or_content) { + $::locale->with_raw_io(\*STDOUT, sub { print while <$file> }); + $file->close; + unlink $file_name_or_content if $params{unlink}; + } else { + $::locale->with_raw_io(\*STDOUT, sub { print $$file_name_or_content }); + } } return 1;