From 201eda5d4c537ac6e93bc61e7a185a5387600847 Mon Sep 17 00:00:00 2001
From: Joe Bordes <joe@tsolucio.com>
Date: Mon, 17 Apr 2023 22:55:50 +0200
Subject: [PATCH] fix(GenDoc) format date fields correctly

---
 modules/evvtgendoc/compile.php | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/modules/evvtgendoc/compile.php b/modules/evvtgendoc/compile.php
index 1cc828528e..ba0d0277a0 100644
--- a/modules/evvtgendoc/compile.php
+++ b/modules/evvtgendoc/compile.php
@@ -368,7 +368,18 @@ function retrieve_from_db($marcador, $id, $module, $applyformat = true) {
 						if (strpos($marcador, ':')) {
 							$cadena = substr($cadena, 0, 19);
 							$dt = DateTime::createFromFormat((strpos($cadena, ' ') ? 'Y-m-d H:i:s' : 'Y-m-d'), $cadena);
-							$cadena = date($tokeninfo[1], $dt->getTimestamp());
+							switch ($tokeninfo[1]) {
+								case 'l':
+									require_once 'modules/cbtranslation/cbtranslation.php';
+									$cadena = cbtranslation::getDayOfWeekName($dt->format('N') % 7, OpenDocument::$compile_language);
+									break;
+								case 'F':
+									require_once 'modules/cbtranslation/cbtranslation.php';
+									$cadena = cbtranslation::getMonthName($dt->format('n')-1, OpenDocument::$compile_language);
+									break;
+								default:
+									$cadena = date($tokeninfo[1], $dt->getTimestamp());
+							}
 						} else {
 							$date = new DateTimeField($cadena);
 							$cadena = $date->getDisplayDate($current_user);