[Koha-cvs] koha/export export.pl [rel_3_0]

[LAURIN arnaud]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     LAURIN arnaud <alaurin> 07/01/12 08:52:45

Modified files:
        export         : export.pl 

Log message:
        Force "binmod out" with utf-8 value, now the display of iso files are 
correctly encoded

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/export/export.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.4.6&r2=1.1.4.7

Patches:
Index: export.pl
===================================================================
RCS file: /sources/koha/koha/export/Attic/export.pl,v
retrieving revision 1.1.4.6
retrieving revision 1.1.4.7
diff -u -b -r1.1.4.6 -r1.1.4.7
--- export.pl   20 Dec 2006 08:55:46 -0000      1.1.4.6
+++ export.pl   12 Jan 2007 08:52:45 -0000      1.1.4.7
@@ -31,8 +31,10 @@
 my $outfile = $ARGV[0];
 open( OUT, ">$outfile" ) or die $!;
 my $query                = new CGI;
-my $StartingBiblionumber = $query->param("StartingBiblionumber");
-my $EndingBiblionumber   = $query->param("EndingBiblionumber");
+# my $StartingBiblionumber = $query->param("StartingBiblionumber");
+# my $EndingBiblionumber   = $query->param("EndingBiblionumber");
+my $StartingBiblionumber = 0;
+my $EndingBiblionumber   = 5000;
 my $dbh                  = C4::Context->dbh;
 my $sth;
 
@@ -55,7 +57,7 @@
     $sth = $dbh->prepare($query);
     $sth->execute;
 }
-
+binmode(OUT, 'utf8');
 my $i = 0;
 while ( my ($biblionumber) = $sth->fetchrow ) {
     my $record = GetMarcBiblio($biblionumber);