function addNewFact($fact) { global $tagSOUR, $ADVANCED_PLAC_FACTS; $FACT = safe_POST($fact, PGV_REGEX_UNSAFE); $DATE = safe_POST("{$fact}_DATE", PGV_REGEX_UNSAFE); $PLAC = safe_POST("{$fact}_PLAC", PGV_REGEX_UNSAFE); if ($DATE || $PLAC || $FACT && $FACT != 'Y') { if ($FACT && $FACT != 'Y') { $gedrec = "1 {$fact} {$FACT}\n"; } else { $gedrec = "1 {$fact}\n"; } if ($DATE) { $DATE = check_input_date($DATE); $gedrec .= "2 DATE {$DATE}\n"; } if ($PLAC) { $gedrec .= "2 PLAC {$PLAC}\n"; if (preg_match_all('/(' . PGV_REGEX_TAG . ')/', $ADVANCED_PLAC_FACTS, $match)) { foreach ($match[1] as $tag) { $TAG = safe_POST("{$fact}_{$tag}", PGV_REGEX_UNSAFE); if ($TAG) { $gedrec .= "3 {$tag} {$TAG}\n"; } } } $LATI = safe_POST("{$fact}_LATI", PGV_REGEX_UNSAFE); $LONG = safe_POST("{$fact}_LONG", PGV_REGEX_UNSAFE); if ($LATI || $LONG) { $gedrec .= "3 MAP\n4 LATI {$LATI}\n4 LONG {$LONG}\n"; } } if (safe_POST_bool("SOUR_{$fact}")) { return updateSOUR($gedrec, 2); } else { return $gedrec; } } elseif ($FACT == 'Y') { if (safe_POST_bool("SOUR_{$fact}")) { return updateSOUR("1 {$fact} Y\n", 2); } else { return "1 {$fact} Y\n"; } } else { return ''; } }
function addNewFact($fact) { global $ADVANCED_PLAC_FACTS; $FACT = WT_Filter::post($fact); $DATE = WT_Filter::post("{$fact}_DATE"); $PLAC = WT_Filter::post("{$fact}_PLAC"); if ($DATE || $PLAC || $FACT && $FACT != 'Y') { if ($FACT && $FACT != 'Y') { $gedrec = "\n1 {$fact} {$FACT}"; } else { $gedrec = "\n1 {$fact}"; } if ($DATE) { $gedrec .= "\n2 DATE {$DATE}"; } if ($PLAC) { $gedrec .= "\n2 PLAC {$PLAC}"; if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $ADVANCED_PLAC_FACTS, $match)) { foreach ($match[1] as $tag) { $TAG = WT_Filter::post("{$fact}_{$tag}"); if ($TAG) { $gedrec .= "\n3 {$tag} {$TAG}"; } } } $LATI = WT_Filter::post("{$fact}_LATI"); $LONG = WT_Filter::post("{$fact}_LONG"); if ($LATI || $LONG) { $gedrec .= "\n3 MAP\n4 LATI {$LATI}\n4 LONG {$LONG}"; } } if (WT_Filter::postBool("SOUR_{$fact}")) { return updateSOUR($gedrec, 2); } else { return $gedrec; } } elseif ($FACT == 'Y') { if (WT_Filter::postBool("SOUR_{$fact}")) { return updateSOUR("\n1 {$fact} Y", 2); } else { return "\n1 {$fact} Y"; } } else { return ''; } }