--- trunk2/lib/WebPAC.pm	2004/06/20 17:52:41	375
+++ trunk2/lib/WebPAC.pm	2004/06/20 18:39:30	376
@@ -375,6 +375,9 @@
 This function B<does not> perform parsing of format to inteligenty skip
 delimiters before fields which aren't used.
 
+This method will automatically decode UTF-8 string to local code page
+if needed.
+
 =cut
 
 sub fill_in {
@@ -390,6 +393,10 @@
 	# FIXME remove for speedup?
 	$log->logconfess("need HASH as first argument!") if ($rec !~ /HASH/o);
 
+	if (utf8::is_utf8($format)) {
+		$format = $self->_x($format);
+	}
+
 	my $found = 0;
 
 	my $eval_code;