From 50133d94d991989b45b0ccfd101014c76c1e1c17 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Sun, 8 Jul 2007 23:24:18 +0000
Subject: [PATCH] Fix for bug 1376, prompting to save wrong filename when
 exporting marc

---
 tools/export.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/export.pl b/tools/export.pl
index 0d1a7b52f8..0370ee4841 100755
--- 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");
-- 
2.39.2