X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/2a496ad85e9117b7cfaaa315b208f478eba30ffd..eeb5375ee7727c956cc357cc8f90b19d1bfe80b9:/SL/Controller/Base.pm diff --git a/SL/Controller/Base.pm b/SL/Controller/Base.pm index 5e0fd26cb..3c5f919de 100644 --- a/SL/Controller/Base.pm +++ b/SL/Controller/Base.pm @@ -15,7 +15,7 @@ use SL::Presenter; use Rose::Object::MakeMethods::Generic ( scalar => [ qw(action_name) ], - 'scalar --get_set_init' => [ qw(js) ], + 'scalar --get_set_init' => [ qw(js p) ], ); # @@ -156,6 +156,7 @@ sub send_file { } my $content_type = $params{type} || 'application/octet_stream'; + my $content_disposition = $params{content_disposition} || 'attachment'; my $attachment_name = $params{name} || (!ref($file_name_or_content) ? $file_name_or_content : ''); $attachment_name =~ s:.*//::g; @@ -165,7 +166,7 @@ sub send_file { $self->js->render unless $params{js_no_render}; } else { print $::form->create_http_response(content_type => $content_type, - content_disposition => 'attachment; filename="' . $attachment_name . '"', + content_disposition => $content_disposition . '; filename="' . $attachment_name . '"', content_length => $size); if (!ref $file_name_or_content) { @@ -184,6 +185,10 @@ sub presenter { return SL::Presenter->get; } +sub init_p { + return SL::Presenter->get; +} + sub controller_name { my $class = ref($_[0]) || $_[0]; $class =~ s/^SL::Controller:://;