[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");