[Koha-cvs] koha/reports acquisitions_stats.pl bor_issues_t... [rel_3_0]
Henri-Damien LAURENT
laurenthdl at alinto.com
Wed Mar 7 16:51:27 CET 2007
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};
More information about the Koha-cvs
mailing list