--- trunk/lib/WebPAC/Output/Excel.pm	2008/08/04 19:41:26	1106
+++ trunk/lib/WebPAC/Output/Excel.pm	2008/08/04 21:47:27	1107
@@ -113,7 +113,8 @@
 	my $worksheet = $self->worksheet || $log->logconfess("no worksheet?");
 	foreach my $col ( sort grep { /^[A-Z]/ } keys %$hash ) {
 		# FIXME internal WebPAC encoding is ISO-8859-2
-		my $val = decode('ISO-8859-2', $hash->{$col});
+#		my $val = decode('ISO-8859-2', $hash->{$col});
+		my $val = $hash->{$col};
 		# protect data which looks like forula
 		$val = "'$val" if $val =~ m/^=/;
 		$log->debug("$col$l|$val");