let tocudf tables pkg =
  let inst =
    try
      let _loc = Format822.dummy_loc in
      let v = Packages.assoc "installed" pkg.Packages.extras in
      Packages.parse_bool (_loc,v)
    with Not_found -> false
  in
  Debcudf.tocudf tables ~inst ~extras:extras_tocudf pkg