From 3a0208918a96e14e39867f76a6892d9b1ba7982c Mon Sep 17 00:00:00 2001 From: einhverfr Date: Mon, 18 Sep 2006 03:41:28 +0000 Subject: Fixing bug: [ 1560460 ] backup to file gets wrong file name git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@108 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/AM.pm | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm index 3cf50a2d..93faac07 100755 --- a/LedgerSMB/AM.pm +++ b/LedgerSMB/AM.pm @@ -1569,10 +1569,9 @@ sub backup { print OUT @schema; print OUT "\n"; - print OUT qq|-- set options - $myconfig->{dboptions}; - -- - |; + print OUT qq|-- set options| . + qq|$myconfig->{dboptions};| . + qq|--|; my $query; my $sth; @@ -1659,10 +1658,8 @@ sub backup { open(IN, "$tmpfile") or $form->error("$tmpfile : $!"); open(OUT, ">-") or $form->error("STDOUT : $!"); - print OUT qq|Content-Type: application/file; - Content-Disposition: attachment; filename="$myconfig->{dbname}-$form->{dbversion}-$t[5]$t[4]$t[3].sql$suffix" - - |; + print OUT qq|Content-Type: application/file;\n| . + qq|Content-Disposition: attachment; filename="$myconfig->{dbname}-$form->{dbversion}-$t[5]$t[4]$t[3].sql$suffix"\n|; binmode(IN); binmode(OUT); -- cgit v1.2.3