Settings for UTF-8 only. New dependency HTML::Template::Pro
[koha.git] / C4 / UTF8DBI.pm
1 # UTF8DBI.pm re-implementation by Pavel Kudinov http://search.cpan.org/~kudinov/
2 # originally from: http://dysphoria.net/code/perl-utf8/
3
4 package UTF8DBI    ; use base DBI    ;
5 package UTF8DBI::db; use base DBI::db;
6 package UTF8DBI::st; use base DBI::st;
7
8 sub _utf8_() {
9         use Encode;
10         if    (ref $_ eq 'ARRAY'){ _utf8_() foreach        @$_  }
11         elsif (ref $_ eq 'HASH' ){ _utf8_() foreach values %$_  }
12         else                     {         Encode::_utf8_on($_) };
13         $_;
14 };
15
16 sub fetch             { return _utf8_ for shift->SUPER::fetch            (@_)  };
17 sub fetchrow_arrayref { return _utf8_ for shift->SUPER::fetchrow_arrayref(@_)  };
18 sub fetchrow_hashref  { return _utf8_ for shift->SUPER::fetchrow_hashref (@_)  };
19 sub fetchall_arrayref { return _utf8_ for shift->SUPER::fetchall_arrayref(@_)  };
20 sub fetchall_hashref  { return _utf8_ for shift->SUPER::fetchall_hashref (@_)  };
21 sub fetchcol_arrayref { return _utf8_ for shift->SUPER::fetchcol_arrayref(@_)  };
22
23 sub fetchrow_array    {                 @{shift->       fetchrow_arrayref(@_)} };
24
25 1;