bug fix: eval now honours codepage settings

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@293 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/parse_format.pm b/parse_format.pm
index ca25b06..d12a94c 100644 (file)
--- a/parse_format.pm
+++ b/parse_format.pm
@@ -163,7 +163,7 @@ sub parse_iso_format {
                sub fld2str {
                        my ($func,$row,$f,$sf,$i) = @_;
 #print STDERR "## in fld2str\n";
-                       my $tmp = &$func($row,$f,$sf,$i) || '';
+                       my $tmp = $codepage->convert(&$func($row,$f,$sf,$i)) || '';
                        return "'$tmp'";
                }