0) { $newgedrec .= "1 DATA\n"; $newgedrec .= "2 EVEN ".implode(",", $EVEN)."\n"; if (!empty($EVEN_DATE)) $newgedrec .= "3 DATE ".$EVEN_DATE."\n"; if (!empty($EVEN_PLAC)) $newgedrec .= "3 PLAC ".$EVEN_PLAC."\n"; if (!empty($AGNC)) $newgedrec .= "2 AGNC ".$AGNC."\n"; } if (isset($_REQUEST['ABBR'])) $ABBR = $_REQUEST['ABBR']; if (isset($_REQUEST['TITL'])) $TITL = $_REQUEST['TITL']; if (isset($_REQUEST['DATE'])) $DATE = $_REQUEST['DATE']; if (isset($_REQUEST['NOTE'])) $NOTE = $_REQUEST['NOTE']; if (isset($_REQUEST['_HEB'])) $_HEB = $_REQUEST['_HEB']; if (isset($_REQUEST['ROMN'])) $ROMN = $_REQUEST['ROMN']; if (isset($_REQUEST['AUTH'])) $AUTH = $_REQUEST['AUTH']; if (isset($_REQUEST['PUBL'])) $PUBL = $_REQUEST['PUBL']; if (isset($_REQUEST['REPO'])) $REPO = $_REQUEST['REPO']; if (isset($_REQUEST['CALN'])) $CALN = $_REQUEST['CALN']; if (isset($_REQUEST['pid_array'])) $pid_array = $_REQUEST['pid_array']; if (isset($_REQUEST['pid'])) $pid = $_REQUEST['pid']; global $pid; if (!empty($NOTE)) { $newlines = preg_split("/\r?\n/", $NOTE, -1); for ($k=0; $k1) { $newgedrec = "0 @XREF@ NOTE $newlines[$k]\n"; } else if ($k==0) { $newgedrec = "0 @XREF@ NOTE $newlines[$k]\n1 CONT\n"; } else { $newgedrec .= "1 CONT $newlines[$k]\n"; } } } if (!empty($ABBR)) $newgedrec .= "1 ABBR $ABBR\n"; if (!empty($TITL)) { // $newgedrec .= "1 TITL $TITL\n"; // $newgedrec .= "2 DATE $DATE\n"; if (!empty($_HEB)) $newgedrec .= "2 _HEB $_HEB\n"; if (!empty($ROMN)) $newgedrec .= "2 ROMN $ROMN\n"; } if (!empty($AUTH)) $newgedrec .= "1 AUTH $AUTH\n"; if (!empty($PUBL)) { $newlines = preg_split("/\r?\n/", $PUBL, -1, PREG_SPLIT_NO_EMPTY); foreach ($newlines as $k=>$line) { if ($k==0) { $newgedrec .= "1 PUBL $line\n"; } else { $newgedrec .= "2 CONT $line\n"; } } } if (!empty($NOTE)) { //$newgedrec .= "1 NOTE @$NOTE@\n"; if (!empty($CALN)) $newgedrec .= "2 CALN $CALN\n"; } if (WT_DEBUG) { echo "
$newgedrec
"; } // $xref = "Test"; if ($pid_array != '') { $xref = append_gedrec($newgedrec, WT_GED_ID); } else { $xref='none'; echo '


'; echo '
No individuals entered, close and try again
'; echo '


'; } if ($xref != "none") { echo "

\n".WT_I18N::translate('New Shared Note created successfully.')." (".$xref.")

"; echo '

'; echo "     The Census event (when saved) will be linked to Indi id's:      ". $pid_array; echo '

'; echo '

'; echo "    ".WT_I18N::translate('Paste the following ID into your editing fields to reference the newly created record ')." $xref\n"; echo '



'; ?>


'; }