SF.net SVN: ledger-smb: [108] trunk/LedgerSMB/AM.pm

[..hidden..]

Revision: 108
          http://svn.sourceforge.net/ledger-smb/?rev=108&view=rev
Author:   einhverfr
Date:     2006-09-17 20:41:28 -0700 (Sun, 17 Sep 2006)

Log Message:
-----------
Fixing bug:  [ 1560460 ] backup to file gets wrong file name

Modified Paths:
--------------
    trunk/LedgerSMB/AM.pm

Modified: trunk/LedgerSMB/AM.pm
===================================================================
--- trunk/LedgerSMB/AM.pm	2006-09-18 03:35:21 UTC (rev 107)
+++ trunk/LedgerSMB/AM.pm	2006-09-18 03:41:28 UTC (rev 108)
@@ -1569,10 +1569,9 @@
 	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 @@
 		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);
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.