fclose($handle); if (strpos($txt, " HEAD") == false) { return false; } return $url; } //-- make sure that they have admin status before they can use this page //-- otherwise have them login again if (!PGV_USER_GEDCOM_ADMIN) { header("Location: login.php?url=editgedcoms.php"); exit; } print_header($pgv_lang["gedcom_adm_head"]); print "<center>\n"; if ($action == "delete") { delete_gedcom($ged); print "<br />" . str_replace("#GED#", $ged, $pgv_lang["gedcom_deleted"]) . "<br />\n"; } if ($action == "setdefault" && in_array($default_ged, get_all_gedcoms())) { set_site_setting('DEFAULT_GEDCOM', $default_ged); $DEFAULT_GEDCOM = $default_ged; } else { $DEFAULT_GEDCOM = get_site_setting('DEFAULT_GEDCOM'); } print "<br /><br />"; ?> <span class="subheaders"><?php print_text("current_gedcoms"); ?> </span><br /> <form name="defaultform" method="get" action="editgedcoms.php">
// open successfull : now make sure this is a GEDCOM file $txt = fread($handle, 80); fclose($handle); if (strpos($txt, " HEAD") == false) { return false; } return $url; } //-- make sure that they have admin status before they can use this page //-- otherwise have them login again if (!PGV_USER_GEDCOM_ADMIN) { header("Location: login.php?url=editgedcoms.php"); exit; } if ($action == "delete") { delete_gedcom(get_id_from_gedcom($ged)); // Reload this page, otherwise the page header will still reference the now-deleted gedcom header("Location: editgedcoms.php"); } print_header($pgv_lang["gedcom_adm_head"]); print "<center>\n"; if ($action == "setdefault" && in_array($default_ged, $all_gedcoms)) { set_site_setting('DEFAULT_GEDCOM', $default_ged); $DEFAULT_GEDCOM = $default_ged; } else { $DEFAULT_GEDCOM = get_site_setting('DEFAULT_GEDCOM'); } print "<br /><br />"; ?> <span class="subheaders"><?php print_text("current_gedcoms");