X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FReportGenerator.pm;h=3f5cdebba38a25453e622d741dabd2dd3a65f7ab;hb=60e09e25d76ec7c0a4f8431df0bc7a3b25e9041a;hp=f81435e716b2cd375d428de95979898419e0d639;hpb=df5d9efd810efd8bd01349d22e3fd4f356cc99ac;p=kivitendo-erp.git diff --git a/SL/ReportGenerator.pm b/SL/ReportGenerator.pm index f81435e71..3f5cdebba 100644 --- a/SL/ReportGenerator.pm +++ b/SL/ReportGenerator.pm @@ -204,8 +204,11 @@ sub set_custom_headers { sub get_attachment_basename { my $self = shift; my $filename = $self->{options}->{attachment_basename} || 'report'; + + # FIXME: this is bonkers. add a real sluggify method somewhere or import one. $filename =~ s|.*\\||; $filename =~ s|.*/||; + $filename =~ s| |_|g; return $filename; } @@ -228,6 +231,7 @@ sub generate_with_headers { print $self->generate_html_content(); } elsif ($format eq 'csv') { + # FIXME: don't do mini http in here my $filename = $self->get_attachment_basename(); print qq|content-type: text/csv\n|; print qq|content-disposition: attachment; filename=${filename}.csv\n\n|;