Fix for bug 1376, prompting to save wrong filename when exporting marc

diff --git a/tools/export.pl b/tools/export.pl
index 0d1a7b5..0370ee4 100755 (executable)
--- a/tools/export.pl
+++ b/tools/export.pl
@@ -33,8 +33,8 @@ my $dbh=C4::Context->dbh;
 my $marcflavour = C4::Context->preference("marcflavour");
 
 if ($op eq "export") {
-
-    print $query->header('Content-Type: text/marc');
+       print $query->header(   -type => 'application/octet-stream', 
+               -attachment=>'koha.mrc');
     
     my $StartingBiblionumber  = $query->param("StartingBiblionumber");
     my $EndingBiblionumber    = $query->param("EndingBiblionumber");