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 '';
}
}
