--- trunk/lib/WebPAC/Input/Excel.pm	2008/08/02 23:46:41	1100
+++ trunk/lib/WebPAC/Input/Excel.pm	2008/08/04 19:35:23	1105
@@ -118,7 +118,7 @@
 	$log->debug("fetch_rec( $mfn ) row: $row cols: ",$sheet->{MinCol}," - ",$sheet->{MaxCol});
 
 	foreach my $col ( $sheet->{MinCol} ... $sheet->{MaxCol} ) {
-		if (my $v = $sheet->{Cells}->[$row]->[$col]->{Val}) {
+		if (my $v = $sheet->{Cells}->[$row]->[$col]->{_Value}) {	## XXX _Value = formatted | Val = unformated !
 			$rec->{ int2col($col) } = $v;
 		}
 	}