| @@ -44,7 +44,7 @@ | ||
| 44 | 44 |  $form_pass2          = Filter::post('form_pass2', WT_REGEX_PASSWORD); | 
| 45 | 45 |  $form_email          = Filter::postEmail('form_email'); | 
| 46 | 46 |  $form_rootid         = Filter::post('form_rootid', WT_REGEX_XREF); | 
| 47 | -$form_theme          = Filter::post('form_theme', implode('|', array_keys(Theme::themeNames())), '');; | |
| 47 | +$form_theme          = Filter::post('form_theme', implode('|', array_keys(Theme::themeNames())), ''); ; | |
| 48 | 48 |  $form_language       = Filter::post('form_language'); | 
| 49 | 49 |  $form_timezone       = Filter::post('form_timezone'); | 
| 50 | 50 |  $form_contact_method = Filter::post('form_contact_method'); | 
| @@ -98,52 +98,52 @@ | ||
| 98 | 98 | } | 
| 99 | 99 | |
| 100 | 100 |  switch ($action) { | 
| 101 | - case 'delete': | |
| 102 | - $sql_delete = | |
| 103 | - "DELETE `##log` FROM `##log`" . | |
| 104 | - " LEFT JOIN `##user` USING (user_id)" . // user may be deleted | |
| 105 | - " LEFT JOIN `##gedcom` USING (gedcom_id)"; // gedcom may be deleted | |
| 106 | - | |
| 107 | - Database::prepare($sql_delete . $where)->execute($args); | |
| 108 | - break; | |
| 109 | - | |
| 110 | - case 'export': | |
| 111 | -        header('Content-Type: text/csv'); | |
| 112 | -        header('Content-Disposition: attachment; filename="webtrees-logs.csv"'); | |
| 113 | - $rows = Database::prepare($sql_select . $where . ' ORDER BY log_id')->execute($args)->fetchAll(); | |
| 114 | -        foreach ($rows as $row) { | |
| 115 | - echo | |
| 116 | - '"', $row->log_time, '",', | |
| 117 | - '"', $row->log_type, '",', | |
| 118 | -            '"', str_replace('"', '""', $row->log_message), '",', | |
| 119 | - '"', $row->ip_address, '",', | |
| 120 | -            '"', str_replace('"', '""', $row->user_name), '",', | |
| 121 | -            '"', str_replace('"', '""', $row->gedcom_name), '"', | |
| 122 | - "\n"; | |
| 123 | - } | |
| 101 | + case 'delete': | |
| 102 | + $sql_delete = | |
| 103 | + "DELETE `##log` FROM `##log`" . | |
| 104 | + " LEFT JOIN `##user` USING (user_id)" . // user may be deleted | |
| 105 | + " LEFT JOIN `##gedcom` USING (gedcom_id)"; // gedcom may be deleted | |
| 106 | + | |
| 107 | + Database::prepare($sql_delete . $where)->execute($args); | |
| 108 | + break; | |
| 109 | + | |
| 110 | + case 'export': | |
| 111 | +            header('Content-Type: text/csv'); | |
| 112 | +            header('Content-Disposition: attachment; filename="webtrees-logs.csv"'); | |
| 113 | + $rows = Database::prepare($sql_select . $where . ' ORDER BY log_id')->execute($args)->fetchAll(); | |
| 114 | +            foreach ($rows as $row) { | |
| 115 | + echo | |
| 116 | + '"', $row->log_time, '",', | |
| 117 | + '"', $row->log_type, '",', | |
| 118 | +                '"', str_replace('"', '""', $row->log_message), '",', | |
| 119 | + '"', $row->ip_address, '",', | |
| 120 | +                '"', str_replace('"', '""', $row->user_name), '",', | |
| 121 | +                '"', str_replace('"', '""', $row->gedcom_name), '"', | |
| 122 | + "\n"; | |
| 123 | + } | |
| 124 | 124 | |
| 125 | - return; | |
| 126 | - case 'load_json': | |
| 127 | -        $start  = Filter::getInteger('start'); | |
| 128 | -        $length = Filter::getInteger('length'); | |
| 129 | -        $order  = Filter::getArray('order'); | |
| 130 | - | |
| 131 | -        if ($order) { | |
| 132 | - $order_by = " ORDER BY "; | |
| 133 | -            foreach ($order as $key => $value) { | |
| 134 | -                if ($key > 0) { | |
| 135 | - $order_by .= ','; | |
| 136 | - } | |
| 137 | - // Datatables numbers columns 0, 1, 2 | |
| 138 | - // MySQL numbers columns 1, 2, 3 | |
| 139 | -                switch ($value['dir']) { | |
| 125 | + return; | |
| 126 | + case 'load_json': | |
| 127 | +            $start  = Filter::getInteger('start'); | |
| 128 | +            $length = Filter::getInteger('length'); | |
| 129 | +            $order  = Filter::getArray('order'); | |
| 130 | + | |
| 131 | +            if ($order) { | |
| 132 | + $order_by = " ORDER BY "; | |
| 133 | +                foreach ($order as $key => $value) { | |
| 134 | +                    if ($key > 0) { | |
| 135 | + $order_by .= ','; | |
| 136 | + } | |
| 137 | + // Datatables numbers columns 0, 1, 2 | |
| 138 | + // MySQL numbers columns 1, 2, 3 | |
| 139 | +                    switch ($value['dir']) { | |
| 140 | 140 | case 'asc': | 
| 141 | 141 | $order_by .= (1 + $value['column']) . " ASC "; | 
| 142 | 142 | break; | 
| 143 | 143 | case 'desc': | 
| 144 | 144 | $order_by .= (1 + $value['column']) . " DESC "; | 
| 145 | 145 | break; | 
| 146 | - } | |
| 146 | + } | |
| 147 | 147 | } | 
| 148 | 148 |          } else { | 
| 149 | 149 | $order_by = " ORDER BY 1 ASC"; | 
| @@ -60,14 +60,14 @@ | ||
| 60 | 60 | 'MADRI', 'MANAU', 'MANHA', 'MANIL', 'MANTI', 'MEDFO', 'MELBO', 'MEMPH', | 
| 61 | 61 | 'MERID', 'MEXIC', 'MNTVD', 'MONTE', 'MONTI', 'MONTR', 'MTIMP', 'NASHV', | 
| 62 | 62 | 'NAUV2', 'NAUVO', 'NBEAC', 'NUKUA', 'NYORK', 'NZEAL', 'OAKLA', 'OAXAC', | 
| 63 | - 'OGDEN', 'OKLAH', 'OQUIR', 'ORLAN', 'PALEG', 'PALMY', 'PANAM', 'PAPEE', | |
| 64 | - 'PAYSO', 'PERTH', 'PHOEN', 'POFFI', 'PORTL', 'PREST', 'PROCC', 'PROVO', | |
| 63 | + 'OGDEN', 'OKLAH', 'OQUIR', 'ORLAN', 'PALEG', 'PALMY', 'PANAM', 'PAPEE', | |
| 64 | + 'PAYSO', 'PERTH', 'PHOEN', 'POFFI', 'PORTL', 'PREST', 'PROCC', 'PROVO', | |
| 65 | 65 | 'QUETZ', 'RALEI', 'RECIF', 'REDLA', 'REGIN', 'RENO', 'REXBU', 'SACRA', | 
| 66 | - 'SAMOA', 'SANTI', 'SANSA', 'SANTO', 'SDIEG', 'SDOMI', 'SEATT', 'SEOUL', | |
| 67 | - 'SGEOR', 'SJOSE', 'SLAKE', 'SLOUI', 'SNOWF','SPAUL', 'SPMIN', 'SPOKA', | |
| 66 | + 'SAMOA', 'SANTI', 'SANSA', 'SANTO', 'SDIEG', 'SDOMI', 'SEATT', 'SEOUL', | |
| 67 | + 'SGEOR', 'SJOSE', 'SLAKE', 'SLOUI', 'SNOWF', 'SPAUL', 'SPMIN', 'SPOKA', | |
| 68 | 68 | 'STOCK', 'SUVA', 'SWISS', 'SYDNE', 'TAIPE', 'TAMPI', 'TEGUC', 'TGUTI', | 
| 69 | - 'TIHUA', 'TOKYO', 'TORNO', 'TRUJI', 'TWINF', 'VANCO', 'VERAC', 'VERNA', | |
| 70 | - 'VILLA', 'WASHI', 'WINTE', | |
| 69 | + 'TIHUA', 'TOKYO', 'TORNO', 'TRUJI', 'TWINF', 'VANCO', 'VERAC', 'VERNA', | |
| 70 | + 'VILLA', 'WASHI', 'WINTE', | |
| 71 | 71 | ); | 
| 72 | 72 | } | 
| 73 | 73 | |
| @@ -2804,7 +2804,7 @@ | ||
| 2804 | 2804 |          $tags      = explode(':', $tag); | 
| 2805 | 2805 | $origlevel = $level; | 
| 2806 | 2806 |          if ($level == 0) { | 
| 2807 | -            $level = $gedrec{0} + 1; | |
| 2807 | +            $level = $gedrec{0} +1; | |
| 2808 | 2808 | } | 
| 2809 | 2809 | |
| 2810 | 2810 | $subrec = $gedrec; | 
| @@ -91,8 +91,7 @@ | ||
| 91 | 91 | // Create the underlying PDO object | 
| 92 | 92 | self::$pdo = new PDO( | 
| 93 | 93 | (substr($DBHOST, 0, 1) === '/' ? | 
| 94 | -                "mysql:unix_socket={$DBHOST};dbname={$DBNAME}" : | |
| 95 | -                "mysql:host={$DBHOST};dbname={$DBNAME};port={$DBPORT}" | |
| 94 | +                "mysql:unix_socket={$DBHOST};dbname={$DBNAME}" : "mysql:host={$DBHOST};dbname={$DBNAME};port={$DBPORT}" | |
| 96 | 95 | ), | 
| 97 | 96 | $DBUSER, $DBPASS, | 
| 98 | 97 | array( | 
| @@ -1714,24 +1714,24 @@ | ||
| 1714 | 1714 |              if ($endjd === WT_CLIENT_JD) { | 
| 1715 | 1715 | // We're dealing with the Today’s Events block | 
| 1716 | 1716 |                  if ($filter === 0) { | 
| 1717 | -                    $html .=  I18N::translate('No events exist for today.'); | |
| 1717 | +                    $html .= I18N::translate('No events exist for today.'); | |
| 1718 | 1718 |                  } else { | 
| 1719 | -                    $html .=  I18N::translate('No events for living individuals exist for today.'); | |
| 1719 | +                    $html .= I18N::translate('No events for living individuals exist for today.'); | |
| 1720 | 1720 | } | 
| 1721 | 1721 |              } else { | 
| 1722 | 1722 | // We're dealing with the Upcoming Events block | 
| 1723 | 1723 |                  if ($filter === 0) { | 
| 1724 | 1724 |                      if ($endjd === $startjd) { | 
| 1725 | -                        $html .=  I18N::translate('No events exist for tomorrow.'); | |
| 1725 | +                        $html .= I18N::translate('No events exist for tomorrow.'); | |
| 1726 | 1726 |                      } else { | 
| 1727 | -                        $html .=  /* I18N: translation for %s==1 is unused; it is translated separately as “tomorrow” */ I18N::plural('No events exist for the next %s day.', 'No events exist for the next %s days.', $endjd - $startjd + 1, I18N::number($endjd - $startjd + 1)); | |
| 1727 | +                        $html .= /* I18N: translation for %s==1 is unused; it is translated separately as “tomorrow” */ I18N::plural('No events exist for the next %s day.', 'No events exist for the next %s days.', $endjd - $startjd + 1, I18N::number($endjd - $startjd + 1)); | |
| 1728 | 1728 | } | 
| 1729 | 1729 |                  } else { | 
| 1730 | 1730 |                      if ($endjd === $startjd) { | 
| 1731 | -                        $html .=  I18N::translate('No events for living individuals exist for tomorrow.'); | |
| 1731 | +                        $html .= I18N::translate('No events for living individuals exist for tomorrow.'); | |
| 1732 | 1732 |                      } else { | 
| 1733 | 1733 | // I18N: translation for %s==1 is unused; it is translated separately as “tomorrow” | 
| 1734 | -                        $html .=  I18N::plural('No events for living people exist for the next %s day.', 'No events for living people exist for the next %s days.', $endjd - $startjd + 1, I18N::number($endjd - $startjd + 1)); | |
| 1734 | +                        $html .= I18N::plural('No events for living people exist for the next %s day.', 'No events for living people exist for the next %s days.', $endjd - $startjd + 1, I18N::number($endjd - $startjd + 1)); | |
| 1735 | 1735 | } | 
| 1736 | 1736 | } | 
| 1737 | 1737 | } | 
| @@ -137,25 +137,25 @@ | ||
| 137 | 137 | } | 
| 138 | 138 | |
| 139 | 139 |  switch (Filter::get('action')) { | 
| 140 | - case 'site': | |
| 141 | -        $controller->setPageTitle(I18N::translate('Website preferences')); | |
| 142 | - break; | |
| 143 | - case 'email': | |
| 144 | -        $controller->setPageTitle(I18N::translate('Sending email')); | |
| 145 | - break; | |
| 146 | - case 'login': | |
| 147 | -        $controller->setPageTitle(I18N::translate('Sign-in and registration')); | |
| 148 | - break; | |
| 149 | - case 'tracking': | |
| 150 | -        $controller->setPageTitle(/* I18N: e.g. http://www.google.com/analytics */ I18N::translate('Tracking and analytics')); | |
| 151 | - break; | |
| 152 | - case 'languages': | |
| 153 | -        $controller->setPageTitle(I18N::translate('Languages')); | |
| 154 | - break; | |
| 155 | - default: | |
| 156 | -        header('Location: ' . WT_BASE_URL . 'admin.php'); | |
| 157 | - | |
| 158 | - return; | |
| 140 | + case 'site': | |
| 141 | +            $controller->setPageTitle(I18N::translate('Website preferences')); | |
| 142 | + break; | |
| 143 | + case 'email': | |
| 144 | +            $controller->setPageTitle(I18N::translate('Sending email')); | |
| 145 | + break; | |
| 146 | + case 'login': | |
| 147 | +            $controller->setPageTitle(I18N::translate('Sign-in and registration')); | |
| 148 | + break; | |
| 149 | + case 'tracking': | |
| 150 | +            $controller->setPageTitle(/* I18N: e.g. http://www.google.com/analytics */ I18N::translate('Tracking and analytics')); | |
| 151 | + break; | |
| 152 | + case 'languages': | |
| 153 | +            $controller->setPageTitle(I18N::translate('Languages')); | |
| 154 | + break; | |
| 155 | + default: | |
| 156 | +            header('Location: ' . WT_BASE_URL . 'admin.php'); | |
| 157 | + | |
| 158 | + return; | |
| 159 | 159 | } | 
| 160 | 160 | |
| 161 | 161 | $controller->pageHeader(); | 
| @@ -129,46 +129,46 @@ | ||
| 129 | 129 | return; | 
| 130 | 130 | } | 
| 131 | 131 |  switch ($controller->chart_style) { | 
| 132 | - case 0: | |
| 133 | - // List | |
| 134 | - echo '<ul id="ancestry_chart" class="chart_common">'; | |
| 135 | - $controller->printChildAscendancy($controller->root, 1, $controller->generations - 1); | |
| 136 | - echo '</ul>'; | |
| 137 | - echo '<br>'; | |
| 138 | - break; | |
| 139 | - case 1: | |
| 140 | - echo '<div id="ancestry_booklet">'; | |
| 141 | - // Booklet | |
| 142 | - // first page : show indi facts | |
| 143 | - FunctionsPrint::printPedigreePerson($controller->root, $controller->showFull()); | |
| 144 | - // process the tree | |
| 145 | - $ancestors = $controller->sosaAncestors($controller->generations - 1); | |
| 146 | - $ancestors = array_filter($ancestors); // The SOSA array includes empty placeholders | |
| 132 | + case 0: | |
| 133 | + // List | |
| 134 | + echo '<ul id="ancestry_chart" class="chart_common">'; | |
| 135 | + $controller->printChildAscendancy($controller->root, 1, $controller->generations - 1); | |
| 136 | + echo '</ul>'; | |
| 137 | + echo '<br>'; | |
| 138 | + break; | |
| 139 | + case 1: | |
| 140 | + echo '<div id="ancestry_booklet">'; | |
| 141 | + // Booklet | |
| 142 | + // first page : show indi facts | |
| 143 | + FunctionsPrint::printPedigreePerson($controller->root, $controller->showFull()); | |
| 144 | + // process the tree | |
| 145 | + $ancestors = $controller->sosaAncestors($controller->generations - 1); | |
| 146 | + $ancestors = array_filter($ancestors); // The SOSA array includes empty placeholders | |
| 147 | 147 | |
| 148 | -        foreach ($ancestors as $sosa => $individual) { | |
| 149 | -            foreach ($individual->getChildFamilies() as $family) { | |
| 150 | - FunctionsCharts::printSosaFamily($family->getXref(), $individual->getXref(), $sosa, '', '', '', $controller->show_cousins, $controller->showFull()); | |
| 148 | +            foreach ($ancestors as $sosa => $individual) { | |
| 149 | +                foreach ($individual->getChildFamilies() as $family) { | |
| 150 | + FunctionsCharts::printSosaFamily($family->getXref(), $individual->getXref(), $sosa, '', '', '', $controller->show_cousins, $controller->showFull()); | |
| 151 | + } | |
| 151 | 152 | } | 
| 152 | - } | |
| 153 | - echo '</div>'; | |
| 154 | - break; | |
| 155 | - case 2: | |
| 156 | - // Individual list | |
| 157 | - $ancestors = $controller->sosaAncestors($controller->generations); | |
| 158 | - $ancestors = array_filter($ancestors); // The SOSA array includes empty placeholders | |
| 159 | - echo '<div id="ancestry-list">', FunctionsPrintLists::individualTable($ancestors, 'sosa'), '</div>'; | |
| 160 | - break; | |
| 161 | - case 3: | |
| 162 | - // Family list | |
| 163 | - $ancestors = $controller->sosaAncestors($controller->generations - 1); | |
| 164 | - $ancestors = array_filter($ancestors); // The SOSA array includes empty placeholders | |
| 165 | - $families = array(); | |
| 166 | -        foreach ($ancestors as $individual) { | |
| 167 | -            foreach ($individual->getChildFamilies() as $family) { | |
| 168 | - $families[$family->getXref()] = $family; | |
| 153 | + echo '</div>'; | |
| 154 | + break; | |
| 155 | + case 2: | |
| 156 | + // Individual list | |
| 157 | + $ancestors = $controller->sosaAncestors($controller->generations); | |
| 158 | + $ancestors = array_filter($ancestors); // The SOSA array includes empty placeholders | |
| 159 | + echo '<div id="ancestry-list">', FunctionsPrintLists::individualTable($ancestors, 'sosa'), '</div>'; | |
| 160 | + break; | |
| 161 | + case 3: | |
| 162 | + // Family list | |
| 163 | + $ancestors = $controller->sosaAncestors($controller->generations - 1); | |
| 164 | + $ancestors = array_filter($ancestors); // The SOSA array includes empty placeholders | |
| 165 | + $families = array(); | |
| 166 | +            foreach ($ancestors as $individual) { | |
| 167 | +                foreach ($individual->getChildFamilies() as $family) { | |
| 168 | + $families[$family->getXref()] = $family; | |
| 169 | + } | |
| 169 | 170 | } | 
| 170 | - } | |
| 171 | - echo '<div id="ancestry-list">', FunctionsPrintLists::familyTable($families), '</div>'; | |
| 172 | - break; | |
| 171 | + echo '<div id="ancestry-list">', FunctionsPrintLists::familyTable($families), '</div>'; | |
| 172 | + break; | |
| 173 | 173 | } | 
| 174 | 174 | echo '</div>'; | 
| @@ -38,34 +38,34 @@ discard block | ||
| 38 | 38 | } | 
| 39 | 39 | |
| 40 | 40 |  switch (Filter::post('action')) { | 
| 41 | - case 'accept-changes': | |
| 42 | - // Accept all the pending changes for a record | |
| 43 | -        $record = GedcomRecord::getInstance(Filter::post('xref', WT_REGEX_XREF), $WT_TREE); | |
| 44 | -        if ($record && Auth::isModerator($record->getTree()) && $record->canShow() && $record->canEdit()) { | |
| 45 | -            if ($record->isPendingDeletion()) { | |
| 46 | - FlashMessages::addMessage(/* I18N: %s is the name of a genealogy record */ | |
| 47 | -                I18N::translate('“%s” has been deleted.', $record->getFullName())); | |
| 41 | + case 'accept-changes': | |
| 42 | + // Accept all the pending changes for a record | |
| 43 | +            $record = GedcomRecord::getInstance(Filter::post('xref', WT_REGEX_XREF), $WT_TREE); | |
| 44 | +            if ($record && Auth::isModerator($record->getTree()) && $record->canShow() && $record->canEdit()) { | |
| 45 | +                if ($record->isPendingDeletion()) { | |
| 46 | + FlashMessages::addMessage(/* I18N: %s is the name of a genealogy record */ | |
| 47 | +                    I18N::translate('“%s” has been deleted.', $record->getFullName())); | |
| 48 | +                } else { | |
| 49 | + FlashMessages::addMessage(/* I18N: %s is the name of a genealogy record */ | |
| 50 | +                    I18N::translate('The changes to “%s” have been accepted.', $record->getFullName())); | |
| 51 | + } | |
| 52 | + FunctionsImport::acceptAllChanges($record->getXref(), $record->getTree()->getTreeId()); | |
| 48 | 53 |              } else { | 
| 49 | - FlashMessages::addMessage(/* I18N: %s is the name of a genealogy record */ | |
| 50 | -                I18N::translate('The changes to “%s” have been accepted.', $record->getFullName())); | |
| 54 | + http_response_code(406); | |
| 51 | 55 | } | 
| 52 | - FunctionsImport::acceptAllChanges($record->getXref(), $record->getTree()->getTreeId()); | |
| 53 | -        } else { | |
| 54 | - http_response_code(406); | |
| 55 | - } | |
| 56 | - break; | |
| 56 | + break; | |
| 57 | 57 | |
| 58 | - case 'copy-fact': | |
| 59 | - // Copy a fact to the clipboard | |
| 60 | -        $xref    = Filter::post('xref', WT_REGEX_XREF); | |
| 61 | -        $fact_id = Filter::post('fact_id'); | |
| 58 | + case 'copy-fact': | |
| 59 | + // Copy a fact to the clipboard | |
| 60 | +            $xref    = Filter::post('xref', WT_REGEX_XREF); | |
| 61 | +            $fact_id = Filter::post('fact_id'); | |
| 62 | 62 | |
| 63 | - $record = GedcomRecord::getInstance($xref, $WT_TREE); | |
| 63 | + $record = GedcomRecord::getInstance($xref, $WT_TREE); | |
| 64 | 64 | |
| 65 | -        if ($record && $record->canEdit()) { | |
| 66 | -            foreach ($record->getFacts() as $fact) { | |
| 67 | -                if ($fact->getFactId() == $fact_id) { | |
| 68 | -                    switch ($fact->getTag()) { | |
| 65 | +            if ($record && $record->canEdit()) { | |
| 66 | +                foreach ($record->getFacts() as $fact) { | |
| 67 | +                    if ($fact->getFactId() == $fact_id) { | |
| 68 | +                        switch ($fact->getTag()) { | |
| 69 | 69 | case 'NOTE': | 
| 70 | 70 | case 'SOUR': | 
| 71 | 71 | case 'OBJE': | 
| @@ -74,7 +74,7 @@ discard block | ||
| 74 | 74 | default: | 
| 75 | 75 | $type = $record::RECORD_TYPE; // paste only to the same record type | 
| 76 | 76 | break; | 
| 77 | - } | |
| 77 | + } | |
| 78 | 78 |                      $clipboard = Session::get('clipboard'); | 
| 79 | 79 |                      if (!is_array($clipboard)) { | 
| 80 | 80 | $clipboard = array(); | 
| @@ -96,158 +96,158 @@ discard block | ||
| 96 | 96 | } | 
| 97 | 97 | break; | 
| 98 | 98 | |
| 99 | - case 'paste-fact': | |
| 100 | - // Paste a fact from the clipboard | |
| 101 | -        $xref      = Filter::post('xref', WT_REGEX_XREF); | |
| 102 | -        $fact_id   = Filter::post('fact_id'); | |
| 103 | - $record = GedcomRecord::getInstance($xref, $WT_TREE); | |
| 104 | -        $clipboard = Session::get('clipboard'); | |
| 99 | + case 'paste-fact': | |
| 100 | + // Paste a fact from the clipboard | |
| 101 | +            $xref      = Filter::post('xref', WT_REGEX_XREF); | |
| 102 | +            $fact_id   = Filter::post('fact_id'); | |
| 103 | + $record = GedcomRecord::getInstance($xref, $WT_TREE); | |
| 104 | +            $clipboard = Session::get('clipboard'); | |
| 105 | 105 | |
| 106 | -        if ($record && $record->canEdit() && isset($clipboard[$fact_id])) { | |
| 107 | - $record->createFact($clipboard[$fact_id]['factrec'], true); | |
| 108 | - } | |
| 109 | - break; | |
| 110 | - | |
| 111 | - case 'delete-fact': | |
| 112 | -        $xref    = Filter::post('xref', WT_REGEX_XREF); | |
| 113 | -        $fact_id = Filter::post('fact_id'); | |
| 114 | - | |
| 115 | - $record = GedcomRecord::getInstance($xref, $WT_TREE); | |
| 116 | -        if ($record && $record->canShow() && $record->canEdit()) { | |
| 117 | -            foreach ($record->getFacts() as $fact) { | |
| 118 | -                if ($fact->getFactId() == $fact_id && $fact->canShow() && $fact->canEdit()) { | |
| 119 | - $record->deleteFact($fact_id, true); | |
| 120 | - break 2; | |
| 106 | +            if ($record && $record->canEdit() && isset($clipboard[$fact_id])) { | |
| 107 | + $record->createFact($clipboard[$fact_id]['factrec'], true); | |
| 108 | + } | |
| 109 | + break; | |
| 110 | + | |
| 111 | + case 'delete-fact': | |
| 112 | +            $xref    = Filter::post('xref', WT_REGEX_XREF); | |
| 113 | +            $fact_id = Filter::post('fact_id'); | |
| 114 | + | |
| 115 | + $record = GedcomRecord::getInstance($xref, $WT_TREE); | |
| 116 | +            if ($record && $record->canShow() && $record->canEdit()) { | |
| 117 | +                foreach ($record->getFacts() as $fact) { | |
| 118 | +                    if ($fact->getFactId() == $fact_id && $fact->canShow() && $fact->canEdit()) { | |
| 119 | + $record->deleteFact($fact_id, true); | |
| 120 | + break 2; | |
| 121 | + } | |
| 121 | 122 | } | 
| 122 | 123 | } | 
| 123 | - } | |
| 124 | - | |
| 125 | - // Can’t find the record/fact, or don’t have permission to delete it. | |
| 126 | - http_response_code(406); | |
| 127 | - break; | |
| 128 | 124 | |
| 129 | - case 'delete-record': | |
| 130 | -        $record = GedcomRecord::getInstance(Filter::post('xref', WT_REGEX_XREF), $WT_TREE); | |
| 131 | -        if ($record && Auth::isEditor($record->getTree()) && $record->canShow() && $record->canEdit()) { | |
| 132 | - // Delete links to this record | |
| 133 | -            foreach (FunctionsDb::fetchAllLinks($record->getXref(), $record->getTree()->getTreeId()) as $xref) { | |
| 134 | - $linker = GedcomRecord::getInstance($xref, $WT_TREE); | |
| 135 | - $old_gedcom = $linker->getGedcom(); | |
| 136 | - $new_gedcom = FunctionsEdit::removeLinks($old_gedcom, $record->getXref()); | |
| 137 | - // FunctionsDb::fetch_all_links() does not take account of pending changes. The links (or even the | |
| 138 | - // record itself) may have already been deleted. | |
| 139 | -                if ($old_gedcom !== $new_gedcom) { | |
| 140 | - // If we have removed a link from a family to an individual, and it has only one member | |
| 141 | -                    if (preg_match('/^0 @' . WT_REGEX_XREF . '@ FAM/', $new_gedcom) && preg_match_all('/\n1 (HUSB|WIFE|CHIL) @(' . WT_REGEX_XREF . ')@/', $new_gedcom, $match) == 1) { | |
| 142 | - // Delete the family | |
| 143 | - $family = GedcomRecord::getInstance($xref, $WT_TREE); | |
| 144 | -                        FlashMessages::addMessage(/* I18N: %s is the name of a family group, e.g. “Husband name + Wife name” */ I18N::translate('The family “%s” has been deleted because it only has one member.', $family->getFullName())); | |
| 145 | - $family->deleteRecord(); | |
| 146 | - // Delete any remaining link to this family | |
| 147 | -                        if ($match) { | |
| 148 | - $relict = GedcomRecord::getInstance($match[2][0], $WT_TREE); | |
| 149 | - $new_gedcom = $relict->getGedcom(); | |
| 150 | - $new_gedcom = FunctionsEdit::removeLinks($new_gedcom, $linker->getXref()); | |
| 151 | - $relict->updateRecord($new_gedcom, false); | |
| 152 | -                            FlashMessages::addMessage(/* I18N: %s are names of records, such as sources, repositories or individuals */ I18N::translate('The link from “%1$s” to “%2$s” has been deleted.', $relict->getFullName(), $family->getFullName())); | |
| 125 | + // Can’t find the record/fact, or don’t have permission to delete it. | |
| 126 | + http_response_code(406); | |
| 127 | + break; | |
| 128 | + | |
| 129 | + case 'delete-record': | |
| 130 | +            $record = GedcomRecord::getInstance(Filter::post('xref', WT_REGEX_XREF), $WT_TREE); | |
| 131 | +            if ($record && Auth::isEditor($record->getTree()) && $record->canShow() && $record->canEdit()) { | |
| 132 | + // Delete links to this record | |
| 133 | +                foreach (FunctionsDb::fetchAllLinks($record->getXref(), $record->getTree()->getTreeId()) as $xref) { | |
| 134 | + $linker = GedcomRecord::getInstance($xref, $WT_TREE); | |
| 135 | + $old_gedcom = $linker->getGedcom(); | |
| 136 | + $new_gedcom = FunctionsEdit::removeLinks($old_gedcom, $record->getXref()); | |
| 137 | + // FunctionsDb::fetch_all_links() does not take account of pending changes. The links (or even the | |
| 138 | + // record itself) may have already been deleted. | |
| 139 | +                    if ($old_gedcom !== $new_gedcom) { | |
| 140 | + // If we have removed a link from a family to an individual, and it has only one member | |
| 141 | +                        if (preg_match('/^0 @' . WT_REGEX_XREF . '@ FAM/', $new_gedcom) && preg_match_all('/\n1 (HUSB|WIFE|CHIL) @(' . WT_REGEX_XREF . ')@/', $new_gedcom, $match) == 1) { | |
| 142 | + // Delete the family | |
| 143 | + $family = GedcomRecord::getInstance($xref, $WT_TREE); | |
| 144 | +                            FlashMessages::addMessage(/* I18N: %s is the name of a family group, e.g. “Husband name + Wife name” */ I18N::translate('The family “%s” has been deleted because it only has one member.', $family->getFullName())); | |
| 145 | + $family->deleteRecord(); | |
| 146 | + // Delete any remaining link to this family | |
| 147 | +                            if ($match) { | |
| 148 | + $relict = GedcomRecord::getInstance($match[2][0], $WT_TREE); | |
| 149 | + $new_gedcom = $relict->getGedcom(); | |
| 150 | + $new_gedcom = FunctionsEdit::removeLinks($new_gedcom, $linker->getXref()); | |
| 151 | + $relict->updateRecord($new_gedcom, false); | |
| 152 | +                                FlashMessages::addMessage(/* I18N: %s are names of records, such as sources, repositories or individuals */ I18N::translate('The link from “%1$s” to “%2$s” has been deleted.', $relict->getFullName(), $family->getFullName())); | |
| 153 | + } | |
| 154 | +                        } else { | |
| 155 | + // Remove links from $linker to $record | |
| 156 | +                            FlashMessages::addMessage(/* I18N: %s are names of records, such as sources, repositories or individuals */ I18N::translate('The link from “%1$s” to “%2$s” has been deleted.', $linker->getFullName(), $record->getFullName())); | |
| 157 | + $linker->updateRecord($new_gedcom, false); | |
| 153 | 158 | } | 
| 154 | -                    } else { | |
| 155 | - // Remove links from $linker to $record | |
| 156 | -                        FlashMessages::addMessage(/* I18N: %s are names of records, such as sources, repositories or individuals */ I18N::translate('The link from “%1$s” to “%2$s” has been deleted.', $linker->getFullName(), $record->getFullName())); | |
| 157 | - $linker->updateRecord($new_gedcom, false); | |
| 158 | 159 | } | 
| 159 | 160 | } | 
| 161 | + // Delete the record itself | |
| 162 | + $record->deleteRecord(); | |
| 163 | +            } else { | |
| 164 | + http_response_code(406); | |
| 160 | 165 | } | 
| 161 | - // Delete the record itself | |
| 162 | - $record->deleteRecord(); | |
| 163 | -        } else { | |
| 164 | - http_response_code(406); | |
| 165 | - } | |
| 166 | - break; | |
| 167 | - | |
| 168 | - case 'delete-user': | |
| 169 | -        $user = User::find(Filter::postInteger('user_id')); | |
| 166 | + break; | |
| 170 | 167 | |
| 171 | -        if ($user && Auth::isAdmin() && Auth::user() !== $user) { | |
| 172 | -            Log::addAuthenticationLog('Deleted user: ' . $user->getUserName()); | |
| 173 | - $user->delete(); | |
| 174 | - } | |
| 175 | - break; | |
| 168 | + case 'delete-user': | |
| 169 | +            $user = User::find(Filter::postInteger('user_id')); | |
| 176 | 170 | |
| 177 | - case 'language': | |
| 178 | - // Change the current language | |
| 179 | -        $language = Filter::post('language'); | |
| 180 | -        try { | |
| 181 | - I18N::init($language); | |
| 182 | -            Session::put('locale', $language); | |
| 183 | - // Remember our selection | |
| 184 | -            Auth::user()->setPreference('language', $language); | |
| 185 | -        } catch (\Exception $ex) { | |
| 186 | - // Request for a non-existant language. | |
| 187 | - http_response_code(406); | |
| 188 | - } | |
| 189 | - break; | |
| 190 | - | |
| 191 | - case 'masquerade': | |
| 192 | -        $user = User::find(Filter::postInteger('user_id')); | |
| 171 | +            if ($user && Auth::isAdmin() && Auth::user() !== $user) { | |
| 172 | +                Log::addAuthenticationLog('Deleted user: ' . $user->getUserName()); | |
| 173 | + $user->delete(); | |
| 174 | + } | |
| 175 | + break; | |
| 176 | + | |
| 177 | + case 'language': | |
| 178 | + // Change the current language | |
| 179 | +            $language = Filter::post('language'); | |
| 180 | +            try { | |
| 181 | + I18N::init($language); | |
| 182 | +                Session::put('locale', $language); | |
| 183 | + // Remember our selection | |
| 184 | +                Auth::user()->setPreference('language', $language); | |
| 185 | +            } catch (\Exception $ex) { | |
| 186 | + // Request for a non-existant language. | |
| 187 | + http_response_code(406); | |
| 188 | + } | |
| 189 | + break; | |
| 193 | 190 | |
| 194 | -        if ($user && Auth::isAdmin() && Auth::user() !== $user) { | |
| 195 | -            Log::addAuthenticationLog('Masquerade as user: ' . $user->getUserName()); | |
| 196 | - Auth::login($user); | |
| 197 | -            Session::put('masquerade', '1'); | |
| 198 | -        } else { | |
| 199 | - http_response_code(406); | |
| 200 | - } | |
| 201 | - break; | |
| 191 | + case 'masquerade': | |
| 192 | +            $user = User::find(Filter::postInteger('user_id')); | |
| 202 | 193 | |
| 203 | - case 'unlink-media': | |
| 204 | - // Remove links from an individual and their spouse-family records to a media object. | |
| 205 | - // Used by the "unlink" option on the album (lightbox) tab. | |
| 206 | -        $source = Individual::getInstance(Filter::post('source', WT_REGEX_XREF), $WT_TREE); | |
| 207 | -        $target = Filter::post('target', WT_REGEX_XREF); | |
| 208 | -        if ($source && $source->canShow() && $source->canEdit() && $target) { | |
| 209 | - // Consider the individual and their spouse-family records | |
| 210 | - $sources = $source->getSpouseFamilies(); | |
| 211 | - $sources[] = $source; | |
| 212 | -            foreach ($sources as $source) { | |
| 213 | -                foreach ($source->getFacts() as $fact) { | |
| 214 | -                    if (!$fact->isPendingDeletion()) { | |
| 215 | -                        if ($fact->getValue() == '@' . $target . '@') { | |
| 216 | - // Level 1 links | |
| 217 | - $source->deleteFact($fact->getFactId(), true); | |
| 218 | -                        } elseif (strpos($fact->getGedcom(), ' @' . $target . '@')) { | |
| 219 | - // Level 2-3 links | |
| 220 | -                            $source->updateFact($fact->getFactId(), preg_replace(array('/\n2 OBJE @' . $target . '@(\n[3-9].*)*/', '/\n3 OBJE @' . $target . '@(\n[4-9].*)*/'), '', $fact->getGedcom()), true); | |
| 194 | +            if ($user && Auth::isAdmin() && Auth::user() !== $user) { | |
| 195 | +                Log::addAuthenticationLog('Masquerade as user: ' . $user->getUserName()); | |
| 196 | + Auth::login($user); | |
| 197 | +                Session::put('masquerade', '1'); | |
| 198 | +            } else { | |
| 199 | + http_response_code(406); | |
| 200 | + } | |
| 201 | + break; | |
| 202 | + | |
| 203 | + case 'unlink-media': | |
| 204 | + // Remove links from an individual and their spouse-family records to a media object. | |
| 205 | + // Used by the "unlink" option on the album (lightbox) tab. | |
| 206 | +            $source = Individual::getInstance(Filter::post('source', WT_REGEX_XREF), $WT_TREE); | |
| 207 | +            $target = Filter::post('target', WT_REGEX_XREF); | |
| 208 | +            if ($source && $source->canShow() && $source->canEdit() && $target) { | |
| 209 | + // Consider the individual and their spouse-family records | |
| 210 | + $sources = $source->getSpouseFamilies(); | |
| 211 | + $sources[] = $source; | |
| 212 | +                foreach ($sources as $source) { | |
| 213 | +                    foreach ($source->getFacts() as $fact) { | |
| 214 | +                        if (!$fact->isPendingDeletion()) { | |
| 215 | +                            if ($fact->getValue() == '@' . $target . '@') { | |
| 216 | + // Level 1 links | |
| 217 | + $source->deleteFact($fact->getFactId(), true); | |
| 218 | +                            } elseif (strpos($fact->getGedcom(), ' @' . $target . '@')) { | |
| 219 | + // Level 2-3 links | |
| 220 | +                                $source->updateFact($fact->getFactId(), preg_replace(array('/\n2 OBJE @' . $target . '@(\n[3-9].*)*/', '/\n3 OBJE @' . $target . '@(\n[4-9].*)*/'), '', $fact->getGedcom()), true); | |
| 221 | + } | |
| 221 | 222 | } | 
| 222 | 223 | } | 
| 223 | 224 | } | 
| 225 | +            } else { | |
| 226 | + http_response_code(406); | |
| 224 | 227 | } | 
| 225 | -        } else { | |
| 226 | - http_response_code(406); | |
| 227 | - } | |
| 228 | - break; | |
| 229 | - | |
| 230 | - case 'reject-changes': | |
| 231 | - // Reject all the pending changes for a record | |
| 232 | -        $record = GedcomRecord::getInstance(Filter::post('xref', WT_REGEX_XREF), $WT_TREE); | |
| 233 | -        if ($record && $record->canEdit() && Auth::isModerator($record->getTree())) { | |
| 234 | -            FlashMessages::addMessage(/* I18N: %s is the name of an individual, source or other record */ I18N::translate('The changes to “%s” have been rejected.', $record->getFullName())); | |
| 235 | - FunctionsImport::rejectAllChanges($record); | |
| 236 | -        } else { | |
| 237 | - http_response_code(406); | |
| 238 | - } | |
| 239 | - break; | |
| 240 | - | |
| 241 | - case 'theme': | |
| 242 | - // Change the current theme | |
| 243 | -        $theme = Filter::post('theme'); | |
| 244 | -        if (Site::getPreference('ALLOW_USER_THEMES') && array_key_exists($theme, Theme::themeNames())) { | |
| 245 | -            Session::put('theme_id', $theme); | |
| 246 | - // Remember our selection | |
| 247 | -            Auth::user()->setPreference('theme', $theme); | |
| 248 | -        } else { | |
| 249 | - // Request for a non-existant theme. | |
| 250 | - http_response_code(406); | |
| 251 | - } | |
| 252 | - break; | |
| 228 | + break; | |
| 229 | + | |
| 230 | + case 'reject-changes': | |
| 231 | + // Reject all the pending changes for a record | |
| 232 | +            $record = GedcomRecord::getInstance(Filter::post('xref', WT_REGEX_XREF), $WT_TREE); | |
| 233 | +            if ($record && $record->canEdit() && Auth::isModerator($record->getTree())) { | |
| 234 | +                FlashMessages::addMessage(/* I18N: %s is the name of an individual, source or other record */ I18N::translate('The changes to “%s” have been rejected.', $record->getFullName())); | |
| 235 | + FunctionsImport::rejectAllChanges($record); | |
| 236 | +            } else { | |
| 237 | + http_response_code(406); | |
| 238 | + } | |
| 239 | + break; | |
| 240 | + | |
| 241 | + case 'theme': | |
| 242 | + // Change the current theme | |
| 243 | +            $theme = Filter::post('theme'); | |
| 244 | +            if (Site::getPreference('ALLOW_USER_THEMES') && array_key_exists($theme, Theme::themeNames())) { | |
| 245 | +                Session::put('theme_id', $theme); | |
| 246 | + // Remember our selection | |
| 247 | +                Auth::user()->setPreference('theme', $theme); | |
| 248 | +            } else { | |
| 249 | + // Request for a non-existant theme. | |
| 250 | + http_response_code(406); | |
| 251 | + } | |
| 252 | + break; | |
| 253 | 253 | } |