[Koha-cvs] koha/reports acquisitions_stats.pl bor_issues_t... [rel_3_0]

[Henri-Damien LAURENT]

CVSROOT:        /cvsroot/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Henri-Damien LAURENT <hdl>      07/03/07 15:51:27

Modified files:
        reports        : acquisitions_stats.pl bor_issues_top.pl 
                         borrowers_out.pl borrowers_stats.pl 
                         catalogue_out.pl catalogue_stats.pl 
                         cat_issues_top.pl issues_avg_stats.pl 
                         issues_stats.pl 

Log message:
        Adding encoding management

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/reports/acquisitions_stats.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.11.2.4&r2=1.11.2.5
http://cvs.savannah.gnu.org/viewcvs/koha/reports/bor_issues_top.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.8.2.5&r2=1.8.2.6
http://cvs.savannah.gnu.org/viewcvs/koha/reports/borrowers_out.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.6.2.6&r2=1.6.2.7
http://cvs.savannah.gnu.org/viewcvs/koha/reports/borrowers_stats.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.10.2.4&r2=1.10.2.5
http://cvs.savannah.gnu.org/viewcvs/koha/reports/catalogue_out.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.5.2.4&r2=1.5.2.5
http://cvs.savannah.gnu.org/viewcvs/koha/reports/catalogue_stats.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.17.2.3&r2=1.17.2.4
http://cvs.savannah.gnu.org/viewcvs/koha/reports/cat_issues_top.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.10.2.5&r2=1.10.2.6
http://cvs.savannah.gnu.org/viewcvs/koha/reports/issues_avg_stats.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.5.2.5&r2=1.5.2.6
http://cvs.savannah.gnu.org/viewcvs/koha/reports/issues_stats.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.13.2.3&r2=1.13.2.4

Patches:
Index: acquisitions_stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/acquisitions_stats.pl,v
retrieving revision 1.11.2.4
retrieving revision 1.11.2.5
diff -u -b -r1.11.2.4 -r1.11.2.5
--- acquisitions_stats.pl       27 Feb 2007 14:17:12 -0000      1.11.2.4
+++ acquisitions_stats.pl       7 Mar 2007 15:51:27 -0000       1.11.2.5
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: acquisitions_stats.pl,v 1.11.2.4 2007/02/27 14:17:12 hdl Exp $
+# $Id: acquisitions_stats.pl,v 1.11.2.5 2007/03/07 15:51:27 hdl Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -86,6 +86,7 @@
     else {
         print $input->header(
             -type       => 'application/vnd.sun.xml.calc',
+            -encoding    => 'utf-8',
             -attachment => "$basename.csv",
             -name       => "$basename.csv"
         );

Index: bor_issues_top.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/bor_issues_top.pl,v
retrieving revision 1.8.2.5
retrieving revision 1.8.2.6
diff -u -b -r1.8.2.5 -r1.8.2.6
--- bor_issues_top.pl   14 Dec 2006 15:41:55 -0000      1.8.2.5
+++ bor_issues_top.pl   7 Mar 2007 15:51:27 -0000       1.8.2.6
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: bor_issues_top.pl,v 1.8.2.5 2006/12/14 15:41:55 toins Exp $
+# $Id: bor_issues_top.pl,v 1.8.2.6 2007/03/07 15:51:27 hdl Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -77,6 +77,7 @@
        } else {
 # Printing to a csv file
                print $input->header(-type => 'application/vnd.sun.xml.calc',
+                                     -encoding    => 'utf-8',
                        -attachment=>"$basename.csv",
                        -filename=>"$basename.csv" );
                my $cols = @$results[0]->{loopcol};

Index: borrowers_out.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/borrowers_out.pl,v
retrieving revision 1.6.2.6
retrieving revision 1.6.2.7
diff -u -b -r1.6.2.6 -r1.6.2.7
--- borrowers_out.pl    18 Dec 2006 16:35:19 -0000      1.6.2.6
+++ borrowers_out.pl    7 Mar 2007 15:51:27 -0000       1.6.2.7
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: borrowers_out.pl,v 1.6.2.6 2006/12/18 16:35:19 toins Exp $
+# $Id: borrowers_out.pl,v 1.6.2.7 2007/03/07 15:51:27 hdl Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -77,6 +77,7 @@
        } else {
 # Printing to a csv file
                print $input->header(-type => 'application/vnd.sun.xml.calc',
+                                     -encoding    => 'utf-8',
                        -attachment=>"$basename.csv",
                        -filename=>"$basename.csv" );
                my $cols = @$results[0]->{loopcol};

Index: borrowers_stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/borrowers_stats.pl,v
retrieving revision 1.10.2.4
retrieving revision 1.10.2.5
diff -u -b -r1.10.2.4 -r1.10.2.5
--- borrowers_stats.pl  14 Dec 2006 15:41:55 -0000      1.10.2.4
+++ borrowers_stats.pl  7 Mar 2007 15:51:27 -0000       1.10.2.5
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: borrowers_stats.pl,v 1.10.2.4 2006/12/14 15:41:55 toins Exp $
+# $Id: borrowers_stats.pl,v 1.10.2.5 2007/03/07 15:51:27 hdl Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -71,6 +71,7 @@
                exit(1);
        } else {
                print $input->header(-type => 'application/vnd.sun.xml.calc',
+                                     -encoding    => 'utf-8',
                                                         -name=>"$basename.csv",
                                                         
-attachment=>"$basename.csv");
                my $cols = @$results[0]->{loopcol};

Index: catalogue_out.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/catalogue_out.pl,v
retrieving revision 1.5.2.4
retrieving revision 1.5.2.5
diff -u -b -r1.5.2.4 -r1.5.2.5
--- catalogue_out.pl    14 Dec 2006 15:41:55 -0000      1.5.2.4
+++ catalogue_out.pl    7 Mar 2007 15:51:27 -0000       1.5.2.5
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: catalogue_out.pl,v 1.5.2.4 2006/12/14 15:41:55 toins Exp $
+# $Id: catalogue_out.pl,v 1.5.2.5 2007/03/07 15:51:27 hdl Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -76,6 +76,7 @@
        } else {
 # Printing to a csv file
                print $input->header(-type => 'application/vnd.sun.xml.calc',
+                                     -encoding    => 'utf-8',
                        -attachment=>"$basename.csv",
                        -filename=>"$basename.csv" );
                my $cols = @$results[0]->{loopcol};

Index: catalogue_stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/catalogue_stats.pl,v
retrieving revision 1.17.2.3
retrieving revision 1.17.2.4
diff -u -b -r1.17.2.3 -r1.17.2.4
--- catalogue_stats.pl  14 Dec 2006 15:41:55 -0000      1.17.2.3
+++ catalogue_stats.pl  7 Mar 2007 15:51:27 -0000       1.17.2.4
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: catalogue_stats.pl,v 1.17.2.3 2006/12/14 15:41:55 toins Exp $
+# $Id: catalogue_stats.pl,v 1.17.2.4 2007/03/07 15:51:27 hdl Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -71,6 +71,7 @@
                exit(1);
        } else {
                print $input->header(-type => 'application/vnd.sun.xml.calc',
+                                     -encoding    => 'utf-8',
                                                         
-attachment=>"$basename.csv",
                                                         -name=>"$basename.csv" 
);
                my $cols = @$results[0]->{loopcol};

Index: cat_issues_top.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/cat_issues_top.pl,v
retrieving revision 1.10.2.5
retrieving revision 1.10.2.6
diff -u -b -r1.10.2.5 -r1.10.2.6
--- cat_issues_top.pl   14 Dec 2006 15:41:55 -0000      1.10.2.5
+++ cat_issues_top.pl   7 Mar 2007 15:51:27 -0000       1.10.2.6
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: cat_issues_top.pl,v 1.10.2.5 2006/12/14 15:41:55 toins Exp $
+# $Id: cat_issues_top.pl,v 1.10.2.6 2007/03/07 15:51:27 hdl Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -78,6 +78,7 @@
        } else {
 # Printing to a csv file
                print $input->header(-type => 'application/vnd.sun.xml.calc',
+                                     -encoding    => 'utf-8',
                        -attachment=>"$basename.csv",
                        -filename=>"$basename.csv" );
                my $cols = @$results[0]->{loopcol};

Index: issues_avg_stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/issues_avg_stats.pl,v
retrieving revision 1.5.2.5
retrieving revision 1.5.2.6
diff -u -b -r1.5.2.5 -r1.5.2.6
--- issues_avg_stats.pl 14 Dec 2006 15:41:55 -0000      1.5.2.5
+++ issues_avg_stats.pl 7 Mar 2007 15:51:27 -0000       1.5.2.6
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: issues_avg_stats.pl,v 1.5.2.5 2006/12/14 15:41:55 toins Exp $
+# $Id: issues_avg_stats.pl,v 1.5.2.6 2007/03/07 15:51:27 hdl Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -79,6 +79,7 @@
        } else {
 # Printing to a csv file
                print $input->header(-type => 'application/vnd.sun.xml.calc',
+                                     -encoding    => 'utf-8',
                        -attachment=>"$basename.csv",
                        -filename=>"$basename.csv" );
                my $cols = @$results[0]->{loopcol};

Index: issues_stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/issues_stats.pl,v
retrieving revision 1.13.2.3
retrieving revision 1.13.2.4
diff -u -b -r1.13.2.3 -r1.13.2.4
--- issues_stats.pl     14 Dec 2006 15:41:55 -0000      1.13.2.3
+++ issues_stats.pl     7 Mar 2007 15:51:27 -0000       1.13.2.4
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: issues_stats.pl,v 1.13.2.3 2006/12/14 15:41:55 toins Exp $
+# $Id: issues_stats.pl,v 1.13.2.4 2007/03/07 15:51:27 hdl Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -81,6 +81,7 @@
        } else {
 # Printing to a csv file
                print $input->header(-type => 'application/vnd.sun.xml.calc',
+                                     -encoding    => 'utf-8',
                        -attachment=>"$basename.csv",
                        -filename=>"$basename.csv" );
                my $cols = @$results[0]->{loopcol};