xref: /webtrees/app/Module/HtmlBlockModule.php (revision e0486a06db0c3b0e065a465cc3d95c8b317be9a7)
18c2e8227SGreg Roach<?php
28c2e8227SGreg Roach/**
38c2e8227SGreg Roach * webtrees: online genealogy
46bdf7674SGreg Roach * Copyright (C) 2017 webtrees development team
58c2e8227SGreg Roach * This program is free software: you can redistribute it and/or modify
68c2e8227SGreg Roach * it under the terms of the GNU General Public License as published by
78c2e8227SGreg Roach * the Free Software Foundation, either version 3 of the License, or
88c2e8227SGreg Roach * (at your option) any later version.
98c2e8227SGreg Roach * This program is distributed in the hope that it will be useful,
108c2e8227SGreg Roach * but WITHOUT ANY WARRANTY; without even the implied warranty of
118c2e8227SGreg Roach * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
128c2e8227SGreg Roach * GNU General Public License for more details.
138c2e8227SGreg Roach * You should have received a copy of the GNU General Public License
148c2e8227SGreg Roach * along with this program. If not, see <http://www.gnu.org/licenses/>.
158c2e8227SGreg Roach */
1676692c8bSGreg Roachnamespace Fisharebest\Webtrees\Module;
1776692c8bSGreg Roach
180e62c4b8SGreg Roachuse Fisharebest\Webtrees\Auth;
1915d603e7SGreg Roachuse Fisharebest\Webtrees\Bootstrap4;
200e62c4b8SGreg Roachuse Fisharebest\Webtrees\Filter;
213d7a8a4cSGreg Roachuse Fisharebest\Webtrees\Functions\FunctionsDate;
223d7a8a4cSGreg Roachuse Fisharebest\Webtrees\Functions\FunctionsEdit;
23cc5ab399SGreg Roachuse Fisharebest\Webtrees\Html;
240e62c4b8SGreg Roachuse Fisharebest\Webtrees\I18N;
250e62c4b8SGreg Roachuse Fisharebest\Webtrees\Site;
260e62c4b8SGreg Roachuse Fisharebest\Webtrees\Stats;
270e62c4b8SGreg Roachuse Fisharebest\Webtrees\Tree;
289c6524dcSGreg Roachuse Fisharebest\Webtrees\View;
298c2e8227SGreg Roach
308c2e8227SGreg Roach/**
318c2e8227SGreg Roach * Class HtmlBlockModule
328c2e8227SGreg Roach */
33e2a378d3SGreg Roachclass HtmlBlockModule extends AbstractModule implements ModuleBlockInterface {
348c2e8227SGreg Roach	/** {@inheritdoc} */
358c2e8227SGreg Roach	public function getTitle() {
369c6524dcSGreg Roach		return /* I18N: Name of a module */
379c6524dcSGreg Roach			I18N::translate('HTML');
388c2e8227SGreg Roach	}
398c2e8227SGreg Roach
408c2e8227SGreg Roach	/** {@inheritdoc} */
418c2e8227SGreg Roach	public function getDescription() {
429c6524dcSGreg Roach		return /* I18N: Description of the “HTML” module */
439c6524dcSGreg Roach			I18N::translate('Add your own text and graphics.');
448c2e8227SGreg Roach	}
458c2e8227SGreg Roach
4676692c8bSGreg Roach	/**
4776692c8bSGreg Roach	 * Generate the HTML content of this block.
4876692c8bSGreg Roach	 *
4976692c8bSGreg Roach	 * @param int      $block_id
5076692c8bSGreg Roach	 * @param bool     $template
51727f238cSGreg Roach	 * @param string[] $cfg
5276692c8bSGreg Roach	 *
5376692c8bSGreg Roach	 * @return string
5476692c8bSGreg Roach	 */
5513abd6f3SGreg Roach	public function getBlock($block_id, $template = true, $cfg = []) {
568c2e8227SGreg Roach		global $ctype, $WT_TREE;
578c2e8227SGreg Roach
58e2a378d3SGreg Roach		$title          = $this->getBlockSetting($block_id, 'title');
599c6524dcSGreg Roach		$content        = $this->getBlockSetting($block_id, 'html');
60e2a378d3SGreg Roach		$gedcom         = $this->getBlockSetting($block_id, 'gedcom');
61e2a378d3SGreg Roach		$show_timestamp = $this->getBlockSetting($block_id, 'show_timestamp', '0');
62e2a378d3SGreg Roach		$languages      = $this->getBlockSetting($block_id, 'languages');
638c2e8227SGreg Roach
648c2e8227SGreg Roach		// Only show this block for certain languages
658c2e8227SGreg Roach		if ($languages && !in_array(WT_LOCALE, explode(',', $languages))) {
668c2e8227SGreg Roach			return '';
678c2e8227SGreg Roach		}
688c2e8227SGreg Roach
698c2e8227SGreg Roach		/*
708c2e8227SGreg Roach		 * Select GEDCOM
718c2e8227SGreg Roach		 */
728c2e8227SGreg Roach		switch ($gedcom) {
738c2e8227SGreg Roach		case '__current__':
748c2e8227SGreg Roach			$stats = new Stats($WT_TREE);
758c2e8227SGreg Roach			break;
768c2e8227SGreg Roach		case '__default__':
77ef2fd529SGreg Roach			$tree = Tree::findByName(Site::getPreference('DEFAULT_GEDCOM'));
78ef2fd529SGreg Roach			if ($tree) {
79ef2fd529SGreg Roach				$stats = new Stats($tree);
808c2e8227SGreg Roach			} else {
818c2e8227SGreg Roach				$stats = new Stats($WT_TREE);
828c2e8227SGreg Roach			}
838c2e8227SGreg Roach			break;
848c2e8227SGreg Roach		default:
85ef2fd529SGreg Roach			$tree = Tree::findByName($gedcom);
86ef2fd529SGreg Roach			if ($tree) {
87ef2fd529SGreg Roach				$stats = new Stats($tree);
888c2e8227SGreg Roach			} else {
898c2e8227SGreg Roach				$stats = new Stats($WT_TREE);
908c2e8227SGreg Roach			}
918c2e8227SGreg Roach			break;
928c2e8227SGreg Roach		}
938c2e8227SGreg Roach
948c2e8227SGreg Roach		/*
958c2e8227SGreg Roach		* Retrieve text, process embedded variables
968c2e8227SGreg Roach		*/
978c2e8227SGreg Roach		$title   = $stats->embedTags($title);
989c6524dcSGreg Roach		$content = $stats->embedTags($content);
998c2e8227SGreg Roach
1008c2e8227SGreg Roach		if ($show_timestamp) {
1013d7a8a4cSGreg Roach			$content .= '<br>' . FunctionsDate::formatTimestamp($this->getBlockSetting($block_id, 'timestamp', WT_TIMESTAMP) + WT_TIMESTAMP_OFFSET);
1028c2e8227SGreg Roach		}
1038c2e8227SGreg Roach
1048c2e8227SGreg Roach		if ($template) {
1059c6524dcSGreg Roach			if ($ctype === 'gedcom' && Auth::isManager($WT_TREE) || $ctype === 'user' && Auth::check()) {
1069c6524dcSGreg Roach				$config_url = Html::url('block_edit.php', ['block_id' => $block_id, 'ged' => $WT_TREE->getName()]);
1079c6524dcSGreg Roach			} else {
1089c6524dcSGreg Roach				$config_url = '';
1099c6524dcSGreg Roach			}
1109c6524dcSGreg Roach
1119c6524dcSGreg Roach			return View::make('blocks/template', [
1129c6524dcSGreg Roach				'block'      => str_replace('_', '-', $this->getName()),
1139c6524dcSGreg Roach				'id'         => $block_id,
1149c6524dcSGreg Roach				'config_url' => $config_url,
1159c6524dcSGreg Roach				'title'      => $title,
1169c6524dcSGreg Roach				'content'    => $content,
1179c6524dcSGreg Roach			]);
1188c2e8227SGreg Roach		} else {
1198c2e8227SGreg Roach			return $content;
1208c2e8227SGreg Roach		}
1218c2e8227SGreg Roach	}
1228c2e8227SGreg Roach
1238c2e8227SGreg Roach	/** {@inheritdoc} */
1248c2e8227SGreg Roach	public function loadAjax() {
1258c2e8227SGreg Roach		return false;
1268c2e8227SGreg Roach	}
1278c2e8227SGreg Roach
1288c2e8227SGreg Roach	/** {@inheritdoc} */
1298c2e8227SGreg Roach	public function isUserBlock() {
1308c2e8227SGreg Roach		return true;
1318c2e8227SGreg Roach	}
1328c2e8227SGreg Roach
1338c2e8227SGreg Roach	/** {@inheritdoc} */
1348c2e8227SGreg Roach	public function isGedcomBlock() {
1358c2e8227SGreg Roach		return true;
1368c2e8227SGreg Roach	}
1378c2e8227SGreg Roach
13876692c8bSGreg Roach	/**
13976692c8bSGreg Roach	 * An HTML form to edit block settings
14076692c8bSGreg Roach	 *
14176692c8bSGreg Roach	 * @param int $block_id
14276692c8bSGreg Roach	 */
1438c2e8227SGreg Roach	public function configureBlock($block_id) {
1444b9ff166SGreg Roach		global $WT_TREE;
1454b9ff166SGreg Roach
1468c2e8227SGreg Roach		if (Filter::postBool('save') && Filter::checkCsrf()) {
147c999a340SGreg Roach			$languages = Filter::postArray('lang');
148e2a378d3SGreg Roach			$this->setBlockSetting($block_id, 'gedcom', Filter::post('gedcom'));
149e2a378d3SGreg Roach			$this->setBlockSetting($block_id, 'title', Filter::post('title'));
150e2a378d3SGreg Roach			$this->setBlockSetting($block_id, 'html', Filter::post('html'));
151e2a378d3SGreg Roach			$this->setBlockSetting($block_id, 'show_timestamp', Filter::postBool('show_timestamp'));
152e2a378d3SGreg Roach			$this->setBlockSetting($block_id, 'timestamp', Filter::post('timestamp'));
153e2a378d3SGreg Roach			$this->setBlockSetting($block_id, 'languages', implode(',', $languages));
1548c2e8227SGreg Roach		}
1558c2e8227SGreg Roach
15613abd6f3SGreg Roach		$templates = [
1578c2e8227SGreg Roach			I18N::translate('Keyword examples') =>
1588c2e8227SGreg Roach				'#getAllTagsTable#',
1598c2e8227SGreg Roach
1608c2e8227SGreg Roach			I18N::translate('Narrative description') =>
1619c6524dcSGreg Roach			/* I18N: do not translate the #keywords# */
1629c6524dcSGreg Roach				I18N::translate('This family tree was last updated on #gedcomUpdated#. There are #totalSurnames# surnames in this family tree. The earliest recorded event is the #firstEventType# of #firstEventName# in #firstEventYear#. The most recent event is the #lastEventType# of #lastEventName# in #lastEventYear#.<br><br>If you have any comments or feedback please contact #contactWebmaster#.'),
1638c2e8227SGreg Roach
1648c2e8227SGreg Roach			I18N::translate('Statistics') =>
1658c2e8227SGreg Roach				'<div class="gedcom_stats">
1668c2e8227SGreg Roach				<span style="font-weight: bold;"><a href="index.php?command=gedcom">#gedcomTitle#</a></span><br>
1678c2e8227SGreg Roach				' . I18N::translate('This family tree was last updated on %s.', '#gedcomUpdated#') . '
168*e0486a06SGreg Roach					<div class="row">
169*e0486a06SGreg Roach						<div class="col col-sm-4">
170*e0486a06SGreg Roach							<table class="table wt-facts-table">
1718c2e8227SGreg Roach								<tr>
172*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Individuals') . '</th>
173*e0486a06SGreg Roach									<td>#totalIndividuals#</td>
1748c2e8227SGreg Roach								</tr>
1758c2e8227SGreg Roach								<tr>
176*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Males') . '</th>
177*e0486a06SGreg Roach									<td>#totalSexMales#<br>#totalSexMalesPercentage#</td>
1788c2e8227SGreg Roach								</tr>
1798c2e8227SGreg Roach								<tr>
180*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Females') . '</th>
181*e0486a06SGreg Roach									<td>#totalSexFemales#<br>#totalSexFemalesPercentage#</td>
1828c2e8227SGreg Roach								</tr>
1838c2e8227SGreg Roach								<tr>
184*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Total surnames') . '</th>
185*e0486a06SGreg Roach									<td>#totalSurnames#/td>
1868c2e8227SGreg Roach								</tr>
1878c2e8227SGreg Roach								<tr>
188*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Families') . '</th>
189*e0486a06SGreg Roach									<td>#totalFamilies#</td>
1908c2e8227SGreg Roach								</tr>
1918c2e8227SGreg Roach								<tr>
192*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Sources') . '</th>
193*e0486a06SGreg Roach									<td>#totalSources#</td>
1948c2e8227SGreg Roach								</tr>
1958c2e8227SGreg Roach								<tr>
196*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Media objects') . '</th>
197*e0486a06SGreg Roach									<td>#totalMedia#</td>
1988c2e8227SGreg Roach								</tr>
1998c2e8227SGreg Roach								<tr>
200*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Repositories') . '</th>
201*e0486a06SGreg Roach									<td>#totalRepositories#</td>
2028c2e8227SGreg Roach								</tr>
2038c2e8227SGreg Roach								<tr>
204*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Events') . '</th>
205*e0486a06SGreg Roach									<td>#totalEvents#</td>
2068c2e8227SGreg Roach								</tr>
2078c2e8227SGreg Roach								<tr>
208*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Users') . '</th>
209*e0486a06SGreg Roach									<td>#totalUsers#</td>
2108c2e8227SGreg Roach								</tr>
2118c2e8227SGreg Roach							</table>
212*e0486a06SGreg Roach						</div>
213*e0486a06SGreg Roach
214*e0486a06SGreg Roach						<div class="col col-sm-8">
215*e0486a06SGreg Roach							<table class="table wt-facts-table">
2168c2e8227SGreg Roach								<tr>
217*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Earliest birth') . '</th>
218*e0486a06SGreg Roach									<td>#firstBirth#</td>
2198c2e8227SGreg Roach								</tr>
2208c2e8227SGreg Roach								<tr>
221*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Latest birth') . '</th>
222*e0486a06SGreg Roach									<td>#lastBirth#</td>
2238c2e8227SGreg Roach								</tr>
2248c2e8227SGreg Roach								<tr>
225*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Earliest death') . '</th>
226*e0486a06SGreg Roach									<td>#firstDeath#</td>
2278c2e8227SGreg Roach								</tr>
2288c2e8227SGreg Roach								<tr>
229*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Latest death') . '</th>
230*e0486a06SGreg Roach									<td>#lastDeath#</td>
2318c2e8227SGreg Roach								</tr>
2328c2e8227SGreg Roach								<tr>
233*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Individual who lived the longest') . '</th>
234*e0486a06SGreg Roach									<td>#longestLife#</td>
2358c2e8227SGreg Roach								</tr>
2368c2e8227SGreg Roach								<tr>
237*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Average age at death') . '</th>
238*e0486a06SGreg Roach									<td>#averageLifespan#</td>
2398c2e8227SGreg Roach								</tr>
2408c2e8227SGreg Roach								<tr>
241*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Family with the most children') . '</th>
242*e0486a06SGreg Roach									<td>#largestFamilySize#<br>#largestFamily#</td>
2438c2e8227SGreg Roach								</tr>
2448c2e8227SGreg Roach								<tr>
245*e0486a06SGreg Roach									<th scope="row">' . I18N::translate('Average number of children per family') . '</th>
246*e0486a06SGreg Roach									<td>#averageChildren#</td>
2478c2e8227SGreg Roach								</tr>
2488c2e8227SGreg Roach							</table>
249*e0486a06SGreg Roach						</div>
250*e0486a06SGreg Roach					</div>
251*e0486a06SGreg Roach					<br>
252*e0486a06SGreg Roach					<span style="font-weight: bold;">' . I18N::translate('Most common surnames') . '</span>
253*e0486a06SGreg Roach					<br>
2548c2e8227SGreg Roach					#commonSurnames#
255cbc1590aSGreg Roach				</div>',
25613abd6f3SGreg Roach		];
2578c2e8227SGreg Roach
258e2a378d3SGreg Roach		$title          = $this->getBlockSetting($block_id, 'title');
259e2a378d3SGreg Roach		$html           = $this->getBlockSetting($block_id, 'html');
26015d603e7SGreg Roach		$gedcom         = $this->getBlockSetting($block_id, 'gedcom', '__current__');
261e2a378d3SGreg Roach		$show_timestamp = $this->getBlockSetting($block_id, 'show_timestamp', '0');
262e2a378d3SGreg Roach		$languages      = explode(',', $this->getBlockSetting($block_id, 'languages'));
2638c2e8227SGreg Roach
26415d603e7SGreg Roach		?>
26515d603e7SGreg Roach		<div class="row form-group">
26615d603e7SGreg Roach			<label class="col-sm-3 col-form-label" for="title">
26715d603e7SGreg Roach				<?= I18N::translate('Title') ?>
26815d603e7SGreg Roach			</label>
26915d603e7SGreg Roach			<div class="col-sm-9">
270cc5ab399SGreg Roach				<input class="form-control" type="text" id="title" name="title" value="<?= Html::escape($title) ?>">
27115d603e7SGreg Roach			</div>
27215d603e7SGreg Roach		</div>
2738c2e8227SGreg Roach
27415d603e7SGreg Roach		<div class="row form-group">
27515d603e7SGreg Roach			<label class="col-sm-3 col-form-label" for="template">
27615d603e7SGreg Roach				<?= I18N::translate('Templates') ?>
27715d603e7SGreg Roach			</label>
27815d603e7SGreg Roach			<div class="col-sm-9">
279c87f84e3SGreg Roach				<?= Bootstrap4::select([$html => I18N::translate('Custom')] + array_flip($templates), '', ['onchange' => 'this.form.html.value=this.options[this.selectedIndex].value; CKEDITOR.instances.html.setData(document.block.html.value);', 'id' => 'template']) ?>
28015d603e7SGreg Roach				<p class="small text-muted">
28115d603e7SGreg Roach					<?= I18N::translate('To assist you in getting started with this block, we have created several standard templates. When you select one of these templates, the text area will contain a copy that you can then alter to suit your site’s requirements.') ?>
28215d603e7SGreg Roach				</p>
28315d603e7SGreg Roach			</div>
28415d603e7SGreg Roach		</div>
2858c2e8227SGreg Roach
28615d603e7SGreg Roach		<div class="row form-group">
28715d603e7SGreg Roach			<label class="col-sm-3 col-form-label" for="gedcom">
28815d603e7SGreg Roach				<?= I18N::translate('Family tree') ?>
28915d603e7SGreg Roach			</label>
29015d603e7SGreg Roach			<div class="col-sm-9">
29115d603e7SGreg Roach				<?= Bootstrap4::select(['__current__' => I18N::translate('Current'), '__default__' => I18N::translate('Default')] + Tree::getNameList(), $gedcom, ['id' => 'gedcom', 'name' => 'gedcom']) ?>
29215d603e7SGreg Roach			</div>
29315d603e7SGreg Roach		</div>
2948c2e8227SGreg Roach
29515d603e7SGreg Roach		<div class="row form-group">
29615d603e7SGreg Roach			<label class="col-sm-3 col-form-label" for="html">
29715d603e7SGreg Roach				<?= I18N::translate('Content') ?>
29815d603e7SGreg Roach			</label>
29915d603e7SGreg Roach			<div class="col-sm-9">
30015d603e7SGreg Roach				<p>
30115d603e7SGreg Roach					<?= I18N::translate('As well as using the toolbar to apply HTML formatting, you can insert database fields which are updated automatically. These special fields are marked with <b>#</b> characters. For example <b>#totalFamilies#</b> will be replaced with the actual number of families in the database. Advanced users may wish to apply CSS classes to their text, so that the formatting matches the currently selected theme.') ?>
30215d603e7SGreg Roach				</p>
30315d603e7SGreg Roach			</div>
30415d603e7SGreg Roach		</div>
3058c2e8227SGreg Roach
30615d603e7SGreg Roach		<div class="row form-group">
307cc5ab399SGreg Roach			<textarea name="html" id="html" class="html-edit" rows="10"><?= Html::escape($html) ?></textarea>
30815d603e7SGreg Roach		</div>
3098c2e8227SGreg Roach
31015d603e7SGreg Roach		<fieldset class="form-group">
31115d603e7SGreg Roach			<div class="row">
31215d603e7SGreg Roach				<legend class="form-control-legend col-sm-3">
31315d603e7SGreg Roach					<?= I18N::translate('Show the date and time of update') ?>
31415d603e7SGreg Roach				</legend>
31515d603e7SGreg Roach				<div class="col-sm-9">
3169c6524dcSGreg Roach					<?= Bootstrap4::radioButtons('show_timestamp', FunctionsEdit::optionsNoYes(), $show_timestamp, true) ?>
31715d603e7SGreg Roach				</div>
31815d603e7SGreg Roach			</div>
31915d603e7SGreg Roach		</fieldset>
32015d603e7SGreg Roach
32115d603e7SGreg Roach		<fieldset class="form-group">
32215d603e7SGreg Roach			<div class="row">
32315d603e7SGreg Roach				<legend class="form-control-legend col-sm-3">
32415d603e7SGreg Roach					<?= I18N::translate('Show this block for which languages') ?>
32515d603e7SGreg Roach				</legend>
32615d603e7SGreg Roach				<div class="col-sm-9">
32715d603e7SGreg Roach					<?= FunctionsEdit::editLanguageCheckboxes('lang', $languages) ?>
32815d603e7SGreg Roach				</div>
32915d603e7SGreg Roach			</div>
33015d603e7SGreg Roach		</fieldset>
33115d603e7SGreg Roach
33215d603e7SGreg Roach		<?php
3338c2e8227SGreg Roach	}
3348c2e8227SGreg Roach}
335