X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/47f1b10f41e43fab04c61e9bd7c31833ff713322..faef45c2e723c9fbc80d1d84b8481367204719b7:/sql/Pg-upgrade2/USTVA_abstraction.pl diff --git a/sql/Pg-upgrade2/USTVA_abstraction.pl b/sql/Pg-upgrade2/USTVA_abstraction.pl index 66e8c752d..20f512d4d 100644 --- a/sql/Pg-upgrade2/USTVA_abstraction.pl +++ b/sql/Pg-upgrade2/USTVA_abstraction.pl @@ -139,11 +139,11 @@ sub do_copy { for my $statement ( 0 .. $#copy_statements ) { - do_query($copy_statements[$statement], 0); + do_query($iconv->convert($copy_statements[$statement]), 0); for my $copy_line ( 1 .. $#{$copy_data[$statement]} ) { #print $copy_data[$statement][$copy_line] . "
" - $dbh->pg_putline($copy_data[$statement][$copy_line] . "\n"); + $dbh->pg_putline($iconv->convert($copy_data[$statement][$copy_line]) . "\n"); } $dbh->pg_endcopy; }