summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-09-18 03:41:28 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-09-18 03:41:28 +0000
commit3a0208918a96e14e39867f76a6892d9b1ba7982c (patch)
treeb8d94abf1e235fd7eb3bfbdc009fb5365326ef40 /LedgerSMB
parentd9fd4220ca9409d53b56a2fdc1280f348c40b3ba (diff)
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
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-xLedgerSMB/AM.pm13
1 files 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);