[paparazzi-commits] [4892] fix bug on non lowercase field for CSV export

[Pascal Brisset]

Revision: 4892
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=4892
Author:   hecto
Date:     2010-04-29 12:31:21 +0000 (Thu, 29 Apr 2010)
Log Message:
-----------
 fix bug on non lowercase field for CSV export

Modified Paths:
--------------
    paparazzi3/trunk/sw/logalizer/export.ml

Modified: paparazzi3/trunk/sw/logalizer/export.ml
===================================================================
--- paparazzi3/trunk/sw/logalizer/export.ml     2010-04-28 11:38:40 UTC (rev 
4891)
+++ paparazzi3/trunk/sw/logalizer/export.ml     2010-04-29 12:31:21 UTC (rev 
4892)
@@ -166,7 +166,10 @@
     let all_values = ref true in
 
     let lookup = fun m field  -> 
-      try Pprz.string_of_value (Hashtbl.find last_values (m,field)) with 
Not_found -> "" in
+      try
+       Pprz.string_of_value (Hashtbl.find last_values (m,String.lowercase 
field))
+      with
+       Not_found -> "" in
 
     let buf = Buffer.create 64 in