[Koha-cvs] koha/tools export.pl

[Chris Cormack]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Chris Cormack <rangi>	07/07/08 23:24:18

Modified files:
	tools          : export.pl 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/tools/export.pl?cvsroot=koha&r1=1.6&r2=1.7

Patches:
Index: export.pl
===================================================================
RCS file: /sources/koha/koha/tools/export.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- export.pl	27 Apr 2007 14:00:48 -0000	1.6
+++ export.pl	8 Jul 2007 23:24:18 -0000	1.7
@@ -16,7 +16,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: export.pl,v 1.6 2007/04/27 14:00:48 hdl Exp $
+# $Id: export.pl,v 1.7 2007/07/08 23:24:18 rangi Exp $
 
 use strict;
 require Exporter;
@@ -33,8 +33,8 @@
 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");