diff --git a/makedb.ml b/makedb.ml index 6604f07..dadbdf0 100644 --- a/makedb.ml +++ b/makedb.ml @@ -96,6 +96,7 @@ let makedb db json = let open Sqlite3 in let x = (match colarr.(i) with | "Symbol" -> symbs := (lcase x,None)::!symbs; lcase x | "Name" -> names := (lcase x,None)::!names; lcase x + | "YearDiscovered" -> if x = "Ancient" then "" else x | _ -> x ) in binds stmt colarr.(i)