@@ -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 |
@@ -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 | } |
@@ -111,53 +111,53 @@ |
||
111 | 111 | } |
112 | 112 | |
113 | 113 | switch ($action) { |
114 | - case 'delete': |
|
115 | - $sql_delete = |
|
116 | - "DELETE `##change` FROM `##change`" . |
|
117 | - " LEFT JOIN `##user` USING (user_id)" . // user may be deleted |
|
118 | - " LEFT JOIN `##gedcom` USING (gedcom_id)"; // gedcom may be deleted |
|
119 | - |
|
120 | - Database::prepare($sql_delete . $where)->execute($args); |
|
121 | - break; |
|
122 | - |
|
123 | - case 'export': |
|
124 | - header('Content-Type: text/csv'); |
|
125 | - header('Content-Disposition: attachment; filename="webtrees-changes.csv"'); |
|
126 | - $rows = Database::prepare($sql_select . $where . ' ORDER BY change_id')->execute($args)->fetchAll(); |
|
127 | - foreach ($rows as $row) { |
|
128 | - echo |
|
129 | - '"', $row->change_time, '",', |
|
130 | - '"', $row->status, '",', |
|
131 | - '"', $row->xref, '",', |
|
132 | - '"', str_replace('"', '""', $row->old_gedcom), '",', |
|
133 | - '"', str_replace('"', '""', $row->new_gedcom), '",', |
|
134 | - '"', str_replace('"', '""', $row->user_name), '",', |
|
135 | - '"', str_replace('"', '""', $row->gedcom_name), '"', |
|
136 | - "\n"; |
|
137 | - } |
|
114 | + case 'delete': |
|
115 | + $sql_delete = |
|
116 | + "DELETE `##change` FROM `##change`" . |
|
117 | + " LEFT JOIN `##user` USING (user_id)" . // user may be deleted |
|
118 | + " LEFT JOIN `##gedcom` USING (gedcom_id)"; // gedcom may be deleted |
|
119 | + |
|
120 | + Database::prepare($sql_delete . $where)->execute($args); |
|
121 | + break; |
|
122 | + |
|
123 | + case 'export': |
|
124 | + header('Content-Type: text/csv'); |
|
125 | + header('Content-Disposition: attachment; filename="webtrees-changes.csv"'); |
|
126 | + $rows = Database::prepare($sql_select . $where . ' ORDER BY change_id')->execute($args)->fetchAll(); |
|
127 | + foreach ($rows as $row) { |
|
128 | + echo |
|
129 | + '"', $row->change_time, '",', |
|
130 | + '"', $row->status, '",', |
|
131 | + '"', $row->xref, '",', |
|
132 | + '"', str_replace('"', '""', $row->old_gedcom), '",', |
|
133 | + '"', str_replace('"', '""', $row->new_gedcom), '",', |
|
134 | + '"', str_replace('"', '""', $row->user_name), '",', |
|
135 | + '"', str_replace('"', '""', $row->gedcom_name), '"', |
|
136 | + "\n"; |
|
137 | + } |
|
138 | 138 | |
139 | - return; |
|
140 | - case 'load_json': |
|
141 | - $start = Filter::getInteger('start'); |
|
142 | - $length = Filter::getInteger('length'); |
|
143 | - $order = Filter::getArray('order'); |
|
144 | - |
|
145 | - if ($order) { |
|
146 | - $order_by = " ORDER BY "; |
|
147 | - foreach ($order as $key => $value) { |
|
148 | - if ($key > 0) { |
|
149 | - $order_by .= ','; |
|
150 | - } |
|
151 | - // Datatables numbers columns 0, 1, 2 |
|
152 | - // MySQL numbers columns 1, 2, 3 |
|
153 | - switch ($value['dir']) { |
|
139 | + return; |
|
140 | + case 'load_json': |
|
141 | + $start = Filter::getInteger('start'); |
|
142 | + $length = Filter::getInteger('length'); |
|
143 | + $order = Filter::getArray('order'); |
|
144 | + |
|
145 | + if ($order) { |
|
146 | + $order_by = " ORDER BY "; |
|
147 | + foreach ($order as $key => $value) { |
|
148 | + if ($key > 0) { |
|
149 | + $order_by .= ','; |
|
150 | + } |
|
151 | + // Datatables numbers columns 0, 1, 2 |
|
152 | + // MySQL numbers columns 1, 2, 3 |
|
153 | + switch ($value['dir']) { |
|
154 | 154 | case 'asc': |
155 | 155 | $order_by .= (1 + $value['column']) . " ASC "; |
156 | 156 | break; |
157 | 157 | case 'desc': |
158 | 158 | $order_by .= (1 + $value['column']) . " DESC "; |
159 | 159 | break; |
160 | - } |
|
160 | + } |
|
161 | 161 | } |
162 | 162 | } else { |
163 | 163 | $order_by = " ORDER BY 1 DESC"; |