Nodo Central - Contribuciones del usuario [es]

Archivo:Estructura multinivel de la red interoperable.svg

2026-06-14T06:18:17Z

Nodo Central: Trabajo propio subido con el Asistente de subidas

=={{int:filedesc}}==
{{Information
|description={{es|1=Diagrama de la estructura multinivel de la red de recaudo interoperable del Estado de Jalisco.}}
|date=2020-10-08
|source={{own}}
|author=[[User:Nodo Central|Nodo Central]]
|permission=
|other versions=
}}

=={{int:license-header}}==
{{self|cc-zero}}

Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco

2026-06-14T06:17:37Z

Nodo Central: Versión parcial del manual

El '''manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco''' define la arquitectura utilizada por la red de recaudo interoperable del transporte público estatal. Este artículo presenta una versión revisada, corregida y actualizada de la última especificación pública disponible.

El manual establece los requisitos para la interoperabilidad entre emisores de tarjetas, distribuidores de productos tarifarios, prestadores de servicio y demás participantes de la red. Asimismo, describe la estructura de datos almacenada en los medios de pago basados en tecnología [[MIFARE DESFire|MIFARE DESFire EV1/EV2]], los mecanismos de seguridad criptográfica empleados, el uso de [[Módulo de acceso seguro|módulos de acceso seguro (SAM)]], los productos tarifarios soportados y los procedimientos operativos necesarios para la emisión, distribución, recarga, validación y administración de los medios de pago.

Además de servir como referencia documental, esta edición incorpora correcciones de formato, aclaraciones técnicas, referencias cruzadas y observaciones derivadas del análisis de la implementación real del sistema interoperable de Jalisco.

== Introducción ==
Este artículo contiene la definición técnica que reglamenta la tecnología utilizada en el Estado de Jalisco para la implementación de un modelo de interoperabilidad en sistemas de recaudo. En él se definen la tecnología de los medios de pago, la estructura de la información almacenada en dichos medios, las reglas para su utilización y los protocolos de comunicación entre los actores que participan en la red interoperable de Jalisco.

=== Glosario ===

; AES
: ''Advanced Encryption Standard'' (Estándar Avanzado de Cifrado).

; AID
: Identificador de aplicación en el medio de pago.

; Aplicación
: Estructura de datos dentro de un medio de pago que define archivos, codificaciones y reglas de uso.

; Cámara de compensación
: Sistema de control y compensación encargado de la liquidación y distribución de las operaciones derivadas de las transacciones diarias efectuadas por el pago de tarifas dentro de la red interoperable.

; DF
: ''Dedicated File'', archivo contenedor de otros archivos DF o EF.

; EF
: ''Elementary File'', archivo destinado al almacenamiento de datos. No posee sucesores y sus atributos de seguridad pueden asignarse individualmente.

; Evento
: Operación básica efectuada sobre la aplicación interoperable.

; LAM
: Lista de Acción para Medios de Pago Interoperables.

; LAP_R
: Lista de Acción para Productos en Dispositivos de Recarga.

; LAP_V
: Lista de Acción para Productos en Dispositivos de Validación.

; Llave
: Secreto compartido entre varios elementos de un sistema utilizado para efectuar operaciones de seguridad.

; Medio de pago
: Instrumento electrónico mediante el cual un usuario puede acceder al servicio de transporte público realizando el pago correspondiente dentro de la red interoperable.

; Operación
: Acción llevada a cabo por un usuario o una entidad que produce uno o varios eventos.

; Producto
: Conjunto de reglas comerciales almacenadas en un medio de pago cuya ejecución permite la prestación de un servicio.

; SAM
: Módulo de acceso seguro. Se utiliza para almacenar llaves criptográficas, realizar operaciones criptográficas con los medios de pago y facilitar la comunicación segura entre terminales y sistemas centrales.

; Tarifa
: Unidades de valor descontadas de un producto durante una transacción de validación. Estas unidades son determinadas según las condiciones aplicables a cada usuario.

; Usuario
: Persona que utiliza el sistema integrado de recaudo.

; Validación
: Uso de un producto para acceder a un servicio.

; Viaje
: Conjunto de validaciones que transportan al usuario desde el inicio hasta el final de su recorrido.

; Ventana de transbordo
: Período durante el cual se cumplen todas las condiciones temporales y operativas necesarias para recibir el beneficio de una tarifa de transbordo durante un viaje.

=== Representación de los datos ===
La información numérica consignada en este documento se expresa en formato hexadecimal cuando el dato incluye el prefijo <code>0x</code>. Cuando el dato ocupa más de dos bytes, su representación utiliza el orden de bytes ''Big-Endian''. Los valores expresados en formato decimal no incluyen ningún prefijo.
{| class="wikitable"
!Decimal
!Hexadecimal
|-
|651316845
|<code>0x26D24E6D</code>
|}
Algunos datos definidos en esta especificación tienen una longitud en bits que no corresponde a un múltiplo de ocho. En estos casos se agregan ceros a la izquierda hasta completar un número entero de bytes. Este procedimiento permite representar todos los datos de forma alineada a nivel de byte.
{| class="wikitable"
!Dato
!Tamaño (bits)
!Tamaño (bytes)
!Valor (hex)
|-
|6333
|13
|2
|0x18BD
|}

=== Especificaciones de la tarjeta MIFARE DESFire EV1 y EV2 ===
El modelo de datos descrito en este documento está basado en las tarjetas [[MIFARE DESFire|MIFARE DESFire EV1]] y [[MIFARE DESFire|MIFARE DESFire EV2]]. Ambas tecnologías son compatibles con las cuatro partes del estándar ISO/IEC 14443A para tarjetas inteligentes sin contacto.

MIFARE DESFire EV2 incluye un modo de compatibilidad con versiones anteriores de MIFARE DESFire EV1 y D40. Este es el modo de operación utilizado por la aplicación interoperable descrita en esta especificación.

Entre las funcionalidades proporcionadas por la plataforma MIFARE DESFire se encuentran:

* Comunicación segura entre medios de pago y lectores.
* Manejo de colisiones para múltiples tarjetas presentes simultáneamente en el campo de lectura.
* Protección de integridad frente a interrupciones durante operaciones de escritura.
* Transmisión de datos orientada a archivos.
* Control de acceso basado en llaves criptográficas de aplicación.

La tecnología también incorpora características basadas en estándares abiertos:

* Nombres de archivo basados en ISO 7816.
* Esquemas de seguridad basados en AES o 3DES.
* Comandos de administración de archivos compatibles con ISO 7816-4.

Un medio de pago MIFARE DESFire puede almacenar hasta 28 aplicaciones o directorios, identificados mediante un ''Application Identifier'' (AID) de tres bytes y un identificador de archivo ISO de dos bytes.

Cada aplicación puede contener hasta 32 archivos elementales y almacenar de forma segura hasta 14 llaves criptográficas numeradas del 0 al 13, además de los estados especiales ''free'' y ''never''. La llave número 0 corresponde a la llave maestra de la aplicación.

Los archivos elementales pueden ser de los siguientes tipos:

* Archivos estándar.
* Archivos con respaldo (''backup'').
* Archivos de valor.
* Archivos de registro lineal.
* Archivos de registro cíclico.

Todo medio de pago MIFARE DESFire incluye además un directorio maestro que contiene una llave maestra denominada ''PICC Key''. La autenticación mediante esta llave permite crear o eliminar aplicaciones y borrar completamente el contenido del medio de pago.

== Interoperabilidad ==
El modelo de interoperabilidad está basado en el ''estándar ISO 24014, parte 1''. Una red interoperable se define como un sistema en el que existe un conjunto mínimo de medios de pago aceptados por múltiples prestadores de servicio, independientemente del emisor de dichos medios.

=== Actores de la red interoperable ===
Siguiendo el modelo definido, pueden existir los siguientes actores dentro de la red interoperable:

; Comité rector
: Entidad encargada de emitir y actualizar las reglas técnicas y comerciales de la red interoperable, supervisar su cumplimiento, adherir o retirar entidades participantes y supervisar la operación de la cámara de compensación. Cumple el papel de propietario de la aplicación interoperable.

; Comité técnico
: Entidad encargada de supervisar la calidad de servicio que deben cumplir los actores del entorno interoperable, definir políticas y condiciones de servicio, establecer mecanismos de sanción, instruir al fiduciario sobre la administración de los recursos del fideicomiso maestro y vigilar el cumplimiento de sus fines.

; Cámara de compensación
: Entidad encargada de interconectar a todas las entidades de la red interoperable. Realiza la recolección de información transaccional y genera las órdenes de pago necesarias para la compensación y liquidación entre participantes.

; Emisores de medios de pago
: Entidades autorizadas por el comité rector para fabricar, programar y emitir medios de pago que contengan la aplicación interoperable descrita en esta especificación.

; Distribuidores de productos
: Entidades autorizadas por el comité rector para almacenar productos dentro de los medios de pago interoperables y efectuar operaciones de distribución y recarga de dichos productos.

; Prestadores de servicio
: Entidades autorizadas por el comité rector para utilizar productos durante transacciones de validación con el fin de prestar servicios dentro de la red interoperable.

=== Especificaciones de la red interoperable ===
La red interoperable debe cumplir, como mínimo, con las siguientes características:

* Permitir la existencia de múltiples emisores de medios de pago.
* Permitir que los medios de pago almacenen múltiples productos destinados al acceso a servicios.
* Permitir la existencia de múltiples distribuidores de productos.
* Mantener independencia entre la emisión de un medio de pago y la distribución de los productos que este puede almacenar.
* Definir una estructura de datos común para los medios de pago, denominada ''aplicación interoperable''.
* Definir de forma común los productos que pueden ser ofrecidos dentro de la red interoperable.
* Permitir que los usuarios realicen validaciones en toda la red interoperable conforme a las reglas establecidas por el comité rector.
* Permitir que los usuarios realicen recargas de productos mediante distribuidores autorizados.

=== Certificaciones de operadores tecnológicos para incorporación al SIR ===
Para integrarse a la red interoperable es necesario cumplir los requisitos establecidos en el Manual de Procesos y aprobar las pruebas de certificación correspondientes a los niveles 0–1 y 3–4.

=== Alcances mínimos de equipos y servicios prestados por el operador tecnológico a cada EUR ===
Las especificaciones técnicas de hardware y software que deben suministrar los operadores tecnológicos para cada Entidad Usuaria de Recaudo (EUR), incluyendo EUR Tren, EUR Masivo y EUR Colectivo, se encuentran definidas en el ''Catálogo de Especificaciones Técnicas por EUR''.

Dicho catálogo se actualiza periódicamente y la versión más reciente publicada es la que debe considerarse vigente.

== Tipos de productos ==
Los medios de pago deben tener la capacidad de almacenar, como mínimo, cuatro productos: un monedero, un producto de viaje a crédito, y dos productos de boletos para descuento.

Cada producto debe ser único dentro del medio de pago, por lo que únicamente puede existir una instancia de cada uno con la excepción de los boletos para descuento, en cuyo caso solo se pueden cargar dos únicamente con los identificadores distintos asignados descritos en la [[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco#Aplicación interoperable en medios de pago MIFARE DESFire|aplicación interoperable]].

=== Producto Monedero ===
El producto Monedero permite realizar validaciones para el pago de un pasaje.

Este producto almacena un valor positivo equivalente a la cantidad de dinero recargada por el usuario en dispositivos autorizados de la red interoperable. Dicho valor se actualiza descontando los importes correspondientes a las transacciones de pago realizadas.

La cantidad máxima que puede almacenar este producto está limitada por los parámetros definidos por la administración del sistema interoperable.

El producto Monedero puede utilizarse conjuntamente con el producto Crédito para completar el pago de una tarifa cuando el saldo disponible sea insuficiente, siempre que dicha funcionalidad se encuentre habilitada y el producto Crédito esté presente en el medio de pago.

Su valor mínimo es cero.

=== Validación a crédito ===
El producto Crédito permite realizar una validación aun cuando el valor disponible para el pago sea inferior a la tarifa aplicable.

Este producto almacena un valor que se vuelve negativo cuando es utilizado durante una transacción de validación. Dicho saldo negativo regresa a cero cuando es cubierto mediante una operación de recarga.

La funcionalidad de validación a crédito opera conjuntamente con el producto Monedero y únicamente puede utilizarse cuando las reglas de operación del sistema permitan su aplicación.

Durante una recarga del producto Monedero, el pago del saldo pendiente del producto Crédito tiene prioridad. Una vez cubierto el saldo negativo, el valor restante de la recarga se agrega al Monedero.

=== Boletos para descuento ===
El producto Boletos para descuento, abreviado como BPD, almacena una cantidad de viajes disponibles en su respectivo archivo de valor.

Las reglas del producto pueden restringir su utilización según diversos criterios, incluyendo:

* Día de la semana.
* Horario de uso.
* Número máximo de viajes permitidos por día.

La prioridad de este producto es superior a la del Monedero y al producto Crédito. Por lo tanto, cuando el producto esté activo, existan viajes disponibles y se cumplan las condiciones de uso establecidas, el sistema debe utilizar el producto BPD o BPD2 de forma preferente durante una validación.

== Modelo de seguridad ==
El modelo de seguridad definido para la comunicación entre los medios de pago ''(nivel 0)'' y los lectores de medios de pago ''(nivel 1)'' está basado en criptografía simétrica. En este esquema, ambos dispositivos comparten un secreto denominado ''llave''.

La tecnología [[MIFARE DESFire|MIFARE DESFire EV1]] y [[MIFARE DESFire|MIFARE DESFire EV2]] define los mecanismos necesarios para garantizar la confidencialidad e integridad de la información intercambiada. Asimismo, incorpora un protocolo de autenticación mutua que permite verificar la autenticidad tanto del medio de pago como del lector.

El almacenamiento y uso de las llaves por parte de los lectores debe realizarse mediante [[Módulo de acceso seguro|módulos de acceso seguro (SAM)]]. Estos dispositivos se comunican con los lectores y ejecutan funciones críticas de seguridad, entre ellas:

* Autenticación mutua con el medio de pago.
* Generación y verificación de códigos de autenticación de mensajes (MAC).
* Cifrado y descifrado de información.

Esta especificación exige el uso del algoritmo de cifrado por bloques AES definido por el estándar ''Advanced Encryption Standard'' (AES). En consecuencia, toda comunicación entre un módulo SAM y un medio de pago debe utilizar AES con claves de 128 bits.

Las operaciones de seguridad derivadas del uso de AES-128 deben seguir las especificaciones definidas por MIFARE DESFire EV1. Adicionalmente, las llaves almacenadas en los medios de pago deben ser diversificadas de forma que cada una sea única dentro de toda la red interoperable.

== Diversificación de llaves ==
Todas las llaves almacenadas en los medios de pago deben ser diversificadas. Esto significa que cada llave presente en una tarjeta debe derivarse a partir de una llave maestra almacenada en un [[módulo de acceso seguro]], mediante una función de diversificación criptográfica.

La función de diversificación utilizada debe ser CMAC, de acuerdo con las recomendaciones para llaves AES-128 definidas por NXP.

Los datos utilizados durante el proceso de diversificación están compuestos por los siguientes elementos:

* Identificador único del medio de pago (UID).
* Identificador de la aplicación donde se almacena la llave (ID_App).
* Identificador del sistema interoperable (ID_Sistema).

La generación de una llave diversificada se realiza mediante el cálculo de un CMAC utilizando:

* Una llave maestra ''Mk'' almacenada en el módulo SAM.
* Los datos de diversificación definidos para el medio de pago.

La llave diversificada resultante, denominada ''Ck'', debe ser única para cada medio de pago de la red interoperable.

Los datos de diversificación se construyen utilizando la siguiente secuencia:

<code>0x01 || UID || ID_App || ID_Sistema</code>

Donde:

; UID
: Identificador único del medio de pago.

; ID_App
: Identificador de la aplicación en la que se encuentra la llave. Para el directorio raíz este valor es <code>0x000000</code>.

; ID_Sistema
: Valor asignado al sistema interoperable del Estado de Jalisco.

El resultado del cálculo CMAC corresponde a la llave diversificada que será utilizada por la aplicación o archivo correspondiente dentro del medio de pago.
[[Archivo:Función_de_diversificación_de_llaves.svg|centro|600x600px|Función de diversificación de llaves]]

== Aplicación interoperable en medios de pago MIFARE DESFire ==
La aplicación interoperable define la organización de directorios, archivos, llaves criptográficas y estructuras de datos necesarias para la prestación de servicios dentro de la red interoperable de transporte público del Estado de Jalisco. Asimismo, establece la forma en que deben almacenarse los productos tarifarios, los eventos de uso, la información del usuario y los parámetros operativos requeridos para la operación del sistema.

Las definiciones presentadas en este capítulo se basan en las capacidades de almacenamiento y seguridad ofrecidas por la plataforma [[MIFARE DESFire|MIFARE DESFire EV1]], así como en los estándares BS EN 1545 para sistemas de recaudo en transporte público.

=== Estructura general de archivos ===
La estructura interoperable de Jalisco está compuesta por dos aplicaciones:

; Directorio raíz del medio de pago
: El directorio raíz está presente de forma obligatoria en todos los medios de pago MIFARE DESFire y es seleccionado automáticamente cuando la tarjeta es energizada. Contiene la llave maestra de la tarjeta y controla operaciones administrativas de alto nivel, incluyendo la creación y eliminación de aplicaciones.

; Directorio Jalisco_DF
: ''Jalisco_DF'' constituye la aplicación interoperable utilizada por la red de recaudo del Estado de Jalisco. Este directorio almacena toda la información necesaria para la emisión, distribución, validación y administración de productos dentro del sistema interoperable.

La aplicación interoperable corresponde a un directorio que contiene los archivos requeridos para la operación del sistema de recaudo.
{| class="wikitable"
! style="text-align:center;" |Aplicación (AID)
! colspan="2" |Archivo / Llave
! style="text-align:center;" |File ID
! style="text-align:center;" |Tipo
! style="text-align:center;" |Presencia
!Descripción
|-
| style="text-align:center;" |Directorio raíz

<code>0x000000</code>
| colspan="2" |[[Llave DESFire#Llave maestra PICC|Llave maestra]]
| style="text-align:center;" |—
| style="text-align:center;" |[[Llave DESFire|Llave]]
| style="text-align:center;" |Obligatorio
|Llave maestra de la tarjeta. Controla la creación y eliminación de aplicaciones y permite el acceso administrativo al medio de pago.
|-
| rowspan="22" style="text-align:center;" |Jalisco_DF

<code>0x484000</code>
| colspan="2" |[[Llave DESFire#Llaves de aplicación|Llaves de aplicación]]
| style="text-align:center;" |—
| style="text-align:center;" |[[Llave DESFire|Llave]]
| style="text-align:center;" |Obligatorio
|Conjunto de llaves criptográficas utilizadas por la aplicación interoperable para autenticación y control de acceso.
|-
| colspan="2" |[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Emisión EF|Emisión_EF]]
| style="text-align:center;" |<code>0x01</code>
| style="text-align:center;" |[[Archivo estándar DESFire|Estándar]]
| style="text-align:center;" |Obligatorio
|Información invariable relacionada con la emisión e identificación del medio de pago.
|-
| colspan="2" |[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Entorno EF|Entorno_EF]]
| style="text-align:center;" |<code>0x02</code>
| style="text-align:center;" |[[Archivo estándar DESFire|Estándar]]
| style="text-align:center;" |Obligatorio
|Parámetros generales de la aplicación interoperable y de la red en la que el medio de pago es aceptado.
|-
| colspan="2" |[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Usuario EF|Usuario_EF]]
| style="text-align:center;" |<code>0x03</code>
| style="text-align:center;" |[[Archivo estándar DESFire|Estándar]]
| style="text-align:center;" |Obligatorio
|Información del titular del medio de pago y del perfil tarifario asociado, cuando aplique.
|-
| colspan="2" |[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Funcionario EF|Funcionario_EF]]
|<code>0x10</code>
|[[Archivo con respaldo DESFire|Backup]]
|Opcional
| style="text-align: center;" |Información propietaria asociada a medios de pago de funcionarios.
|-
| colspan="2" |[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/EstadoAplicación EF|EstadoAplicación_EF]]
| style="text-align:center;" |<code>0x04</code>
| style="text-align:center;" |[[Archivo con respaldo DESFire|Backup]]
| style="text-align:center;" |Obligatorio
|Estado operativo de la aplicación interoperable y contadores asociados a su ciclo de vida.
|-
| colspan="2" |[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/ListaProductos EF|ListaProductos_EF]]
| style="text-align:center;" |<code>0x05</code>
| style="text-align:center;" |[[Archivo con respaldo DESFire|Backup]]
| style="text-align:center;" |Obligatorio
|Inventario de productos presentes en el medio de pago y punteros a sus archivos asociados.
|-
| colspan="2" |[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Eventos EF|Eventos_EF]]
| style="text-align:center;" |<code>0x06</code>
| style="text-align:center;" |[[Archivo de registro cíclico DESFire|Cíclico]]
| style="text-align:center;" |Obligatorio
|Historial cíclico de eventos registrados por operaciones como emisión, distribución, recarga, validación y devolución.
|-
| rowspan="3" |Monedero
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Contrato(Producto) EF|ContratoMonedero_EF]]
| style="text-align:center;" |<code>0x07</code>
| style="text-align:center;" |[[Archivo estándar DESFire|Estándar]]
| style="text-align:center;" |Obligatorio
|Contrato asociado al producto Monedero.
|-
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Servicio(Producto) EF|ServicioMonedero_EF]]
| style="text-align:center;" |<code>0x08</code>
| style="text-align:center;" |[[Archivo con respaldo DESFire|Backup]]
| style="text-align:center;" |Obligatorio
|Estado operativo e información dinámica del producto Monedero.
|-
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Valor(Producto) EF|ValorMonedero_EF]]
| style="text-align:center;" |<code>0x09</code>
| style="text-align:center;" |[[Archivo de valor DESFire|Valor]]
| style="text-align:center;" |Obligatorio
|Saldo disponible del producto Monedero.
|-
| rowspan="3" |Crédito
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Contrato(Producto) EF|ContratoCrédito_EF]]
| style="text-align:center;" |<code>0x0A</code>
| style="text-align:center;" |[[Archivo estándar DESFire|Estándar]]
| style="text-align:center;" |Opcional
|Contrato asociado al producto Crédito.
|-
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Servicio(Producto) EF|ServicioCrédito_EF]]
| style="text-align:center;" |<code>0x0B</code>
| style="text-align:center;" |[[Archivo con respaldo DESFire|Backup]]
| style="text-align:center;" |Opcional
|Estado operativo e información dinámica del producto Crédito.
|-
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Valor(Producto) EF|ValorCrédito_EF]]
| style="text-align:center;" |<code>0x0C</code>
| style="text-align:center;" |[[Archivo de valor DESFire|Valor]]
| style="text-align:center;" |Opcional
|Valor negativo o saldo pendiente utilizado por el producto Crédito.
|-
| rowspan="3" |BPD
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Contrato(Producto) EF|ContratoBPD_EF]]
| style="text-align:center;" |<code>0x0D</code>
| style="text-align:center;" |[[Archivo estándar DESFire|Estándar]]
| style="text-align:center;" |Condicional
|Contrato asociado al producto BPD.
|-
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Servicio(Producto) EF|ServicioBPD_EF]]
| style="text-align:center;" |<code>0x0E</code>
| style="text-align:center;" |[[Archivo con respaldo DESFire|Backup]]
| style="text-align:center;" |Condicional
|Estado operativo e información dinámica del producto BPD.
|-
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Valor(Producto) EF|ValorBPD_EF]]
| style="text-align:center;" |<code>0x0F</code>
| style="text-align:center;" |[[Archivo de valor DESFire|Valor]]
| style="text-align:center;" |Condicional
|Cantidad de viajes disponibles del producto BPD.
|-
| rowspan="3" |BPD2
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Contrato(Producto) EF|ContratoBPD2_EF]]
| style="text-align:center;" |<code>0x12</code>
| style="text-align:center;" |[[Archivo estándar DESFire|Estándar]]
| style="text-align:center;" |Condicional
|Contrato asociado al producto BPD2.
|-
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Servicio(Producto) EF|ServicioBPD2_EF]]
| style="text-align:center;" |<code>0x13</code>
| style="text-align:center;" |[[Archivo con respaldo DESFire|Backup]]
| style="text-align:center;" |Condicional
|Estado operativo e información dinámica del producto BPD2.
|-
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Valor(Producto) EF|ValorBPD2_EF]]
| style="text-align:center;" |<code>0x14</code>
| style="text-align:center;" |[[Archivo de valor DESFire|Valor]]
| style="text-align:center;" |Condicional
|Cantidad de viajes disponibles del producto BPD2.
|}
Los archivos del producto Monedero son requeridos en toda tarjeta operativa. El producto Crédito es opcional. Para boletos de descuento, debe existir al menos una familia de archivos BPD; normalmente se utiliza BPD como producto principal y BPD2 como variante adicional o alternativa.

== Ciclos de vida ==
La vida de la aplicación interoperable y de los productos almacenados en ella puede describirse mediante un conjunto de estados que determinan las funcionalidades disponibles en un momento determinado. Este conjunto de estados se denomina ''ciclo de vida''.

La aplicación interoperable posee un ciclo de vida propio que controla el estado global del medio de pago. Adicionalmente, cada producto almacenado en la aplicación dispone de un ciclo de vida independiente que determina sus capacidades de uso de forma individual.

=== Ciclo de vida de la aplicación interoperable ===
El ciclo de vida de la aplicación interoperable consiste en un conjunto de estados mutuamente excluyentes que describen las capacidades de la aplicación en un momento determinado. El estado actual se almacena en el campo <code>EstadoAplicación_EF.EstadoAplicación</code>.

La siguiente figura describe las transiciones posibles entre los estados de la aplicación interoperable.
[[Archivo:Ciclo_de_vida_de_la_aplicación_interoperable.svg|centro|600x600px|Ciclo de vida de la aplicación interoperable]]

; Inicializada
: Es el estado inicial de la aplicación interoperable. Se alcanza una vez que el medio de pago ha sido preparado mediante el proceso de inicialización. Este procedimiento debe realizarse en un entorno seguro por una entidad autorizada. Los medios de pago en este estado no pueden utilizarse en la red interoperable.

; Activada
: Estado operativo normal de la aplicación interoperable. Un medio de pago activado puede utilizarse dentro de la red interoperable y acceder a todas las funcionalidades permitidas por los productos almacenados en él.

; Bloqueada
: Estado utilizado cuando el medio de pago ha sido restringido temporalmente. Mientras la aplicación permanezca bloqueada, no podrá utilizarse en la red interoperable. Una vez eliminado el motivo del bloqueo, la aplicación puede regresar al estado ''Activada''.

; Desactivada
: Estado final de la aplicación interoperable. Una aplicación desactivada no puede utilizarse nuevamente ni regresar a otro estado del ciclo de vida.

=== Ciclo de vida de los productos ===
Cada producto almacenado en un medio de pago posee su propio ciclo de vida. Este ciclo consiste en un conjunto de estados mutuamente excluyentes que describen las funcionalidades disponibles para el producto en un momento determinado.

El estado actual de cada producto se almacena en el campo <code>Servicio(Producto)_EF.EstadoProducto</code>.

La siguiente figura describe las transiciones posibles entre los estados de un producto.
[[Archivo:Ciclo_de_vida_de_un_producto.svg|centro|600x600px|Ciclo de vida de un producto]]

; Inicializado
: Estado alcanzado cuando la aplicación interoperable ha sido inicializada y se han creado los archivos correspondientes al producto. En este punto los archivos aún no contienen información válida y las llaves definitivas del producto no han sido cargadas.

; Activado
: Estado operativo normal del producto. Los archivos <code>Contrato(Producto)_EF</code>, <code>Servicio(Producto)_EF</code> y <code>Valor(Producto)_EF</code> deben haber sido inicializados correctamente y las llaves correspondientes deben encontrarse cargadas. Un producto activado puede utilizarse dentro de la red interoperable.

; Suspendido
: Estado utilizado cuando el emisor del producto determina que este no debe utilizarse temporalmente. Mientras permanezca suspendido, el producto no podrá emplearse para acceder a servicios. Una vez corregida la causa de la suspensión, el emisor puede reactivarlo y devolverlo al estado ''Activado''.

== Instrucciones de uso de la aplicación interoperable en medios de pago ==

== Modelo interoperable de flujo de datos ==
En una red interoperable, el flujo de información ocurre entre diferentes niveles según la estructura de la red. Esta estructura se compone generalmente de los siguientes niveles:

; Nivel 0
: Medios de pago que contienen la aplicación interoperable.

; Nivel 1
: Dispositivos lectores de medios de pago. Incluye validadores, dispositivos de emisión de medios de pago y dispositivos de recarga de productos.

; Nivel 2
: Dispositivos concentradores de transacciones que interconectan los dispositivos de nivel 1 con un sistema central de nivel 3.

; Nivel 3
: Infraestructura centralizada que administra y gestiona la información generada o destinada a los niveles inferiores. Este nivel es administrado por la entidad propietaria de los dispositivos de nivel 1 y nivel 2 a los que se encuentra conectado.

; Nivel 4
: Cámara de compensación. Es el nivel más alto de la red interoperable. En este nivel se recolecta la información de la red y se realiza el intercambio de información entre las entidades participantes. Este nivel es supervisado por el comité correspondiente para regular la red interoperable.

Para garantizar la interoperabilidad, las interacciones entre los diferentes niveles deben encontrarse estandarizadas conforme a esta especificación. Sin embargo, debido a la naturaleza jerárquica de la red, únicamente se requiere que sean interoperables los flujos de información ubicados en los extremos de la jerarquía:

* La información almacenada en el nivel 0 e intercambiada con el nivel 1.
* La información intercambiada entre el nivel 3 y el nivel 4.

[[Archivo:Estructura_multinivel_de_la_red_interoperable.svg|centro|800x800px|Estructura multinivel de la red interoperable]]

== Flujo de datos de eventos ==

== Casos de uso de medios de pago ==

== Seguridad en el envío de eventos ==

== Especificación de los módulos de acceso seguro (SAM) ==

== Resumen de los datos que deben ser asignados por el Registrar ==

== Referencias ==
{{Listaref}}

Archivo:Ciclo de vida de un producto.svg

2026-06-14T05:08:58Z

Nodo Central: Trabajo propio subido con el Asistente de subidas

=={{int:filedesc}}==
{{Information
|description={{es|1=Diagrama del ciclo de vida de un producto de un medio de pago del sistema de recaudo interoperable del Estado de Jalisco}}
|date=2020-08-10
|source={{own}}
|author=[[User:Nodo Central|Nodo Central]]
|permission=
|other versions=
}}

=={{int:license-header}}==
{{self|cc-zero}}

Archivo:Ciclo de vida de la aplicación interoperable.svg

2026-06-14T05:07:46Z

Nodo Central: Trabajo propio subido con el Asistente de subidas

=={{int:filedesc}}==
{{Information
|description={{es|1=Diagrama del ciclo de vida de la aplicación interoperable del sistema de recaudo interoperable del Estado de Jalisco.}}
|date=2020-08-10
|source={{own}}
|author=[[User:Nodo Central|Nodo Central]]
|permission=
|other versions=
}}

=={{int:license-header}}==
{{self|cc-zero}}

Plantilla:Riesgoso

2026-06-14T04:13:00Z

Nodo Central: 1 revisión importada

{{Aviso
| tipo = serio
| imagen = Gnome-emblem-important.svg
| encabezado = Esta plantilla se transcluye en muchas páginas ([https://tools.wmflabs.org/templatecount/index.php?lang=es&namespace={{NAMESPACENUMBER:{{FULLPAGENAME}}}}&name={{urlencode:{{BASEPAGENAME}}}} aproximadamente {{{nombre}}}]).
| texto = Como incluso las ediciones triviales podrían causar una carga innecesaria en el servidor, por favor, pruebe los cambios en su zona de pruebas. Las pruebas pueden ser añadidas por los bibliotecarios en una sola edición.
}}<noinclude>
{{Documentación}}
</noinclude>

Plantilla:Listaref/doc/estilolista/núcleo

2026-06-14T04:13:00Z

Nodo Central: 1 revisión importada

{{Subpágina de documentación}}

{| class="wikitable" style="table-layout:fixed; width:12em; float:left; margin:2px;"
!{{{type|}}}{{{ref|}}}
|-
|<ol style="list-style:{{{type|}}}"><li>text</li><li>text</li><li>text</li><li>text</li></ol>
|}
{| class="wikitable" style="table-layout:fixed; width:50em; float:left; margin:2px; text-align:center; font-size:90%;"
| colspan="5" style="text-align:center;" | Internet Explorer
| colspan="3" style="text-align:center;" | Firefox
| colspan="2" style="text-align:center;" | Safari
| colspan="4" style="text-align:center;" | Chrome
| colspan="3" style="text-align:center;" | Opera
|-

| 6
| 7
| 8
| 9
| 10

| 3
| 4
| 5

| 4
| 5

| 9
| 10
| 11
| 12

| 10
| 11
| 12
|-
| {{{{{ie6|yes}}}}}
| {{{{{ie7|yes}}}}}
| {{{{{ie8|yes}}}}}
| {{{{{ie9|yes}}}}}
| {{{{{ie10|yes}}}}}
| {{{{{ff3|yes}}}}}
| {{{{{ff4|yes}}}}}
| {{{{{ff5|yes}}}}}
| {{{{{s4|yes}}}}}
| {{{{{s5|yes}}}}}
| {{{{{c9|yes}}}}}
| {{{{{c10|yes}}}}}
| {{{{{c11|yes}}}}}
| {{{{{c12|yes}}}}}
| {{{{{o10|yes}}}}}
| {{{{{o11|yes}}}}}
| {{{{{o12|yes}}}}}
|}
{{clear}}

<noinclude>[[Categoría:Wikipedia:Plantillas de apoyo]]</noinclude>

Plantilla:Listaref/doc/estilolista

2026-06-14T04:12:59Z

Nodo Central: 1 revisión importada

;CSS2.1 <code>list-style-type</code> values

{{Listaref/doc/estilolista/núcleo
|type=none
}}
{{Listaref/doc/estilolista/núcleo
|type=disc
}}
{{Listaref/doc/estilolista/núcleo
|type=circle
}}
{{Listaref/doc/estilolista/núcleo
|type=square
}}
{{Listaref/doc/estilolista/núcleo
|type=decimal
}}
{{Listaref/doc/estilolista/núcleo
|type=decimal-leading-zero
|ie6=no
|ie7=no
}}
{{Listaref/doc/estilolista/núcleo
|type=lower-roman
}}
{{Listaref/doc/estilolista/núcleo
|type=upper-roman
}}
{{Listaref/doc/estilolista/núcleo
|type=lower-alpha
}}
{{Listaref/doc/estilolista/núcleo
|type=upper-alpha
}}
{{Listaref/doc/estilolista/núcleo
|type=lower-greek
|ie6=no
|ie7=no
}}
{{Listaref/doc/estilolista/núcleo
|type=armenian
|ie6=no
|ie7=no
}}
{{Listaref/doc/estilolista/núcleo
|type=georgian
|ie6=no
|ie7=no
}}

;CSS2 <code>list-style-type</code> values dropped in CSS2.1 but still supported by some browsers
{{Listaref/doc/estilolista/núcleo
|type=hebrew
|ie6=no
|ie7=no
|ie8=no
|ie9=no
|ie10=no
|o10=no
|o11=no
|o12=no
}}
{{Listaref/doc/estilolista/núcleo
|type=cjk-ideographic
|ie6=no
|ie7=no
|ie8=no
|ie9=no
|ie10=no
|o10=no
|o11=no
|o12=no
}}
{{Listaref/doc/estilolista/núcleo
|type=hiragana
|ie6=no
|ie7=no
|ie8=no
|ie9=no
|ie10=no
|o10=no
|o11=no
|o12=no
}}
{{Listaref/doc/estilolista/núcleo
|type=katakana
|ie6=no
|ie7=no
|ie8=no
|ie9=no
|ie10=no
|o10=no
|o11=no
|o12=no
}}
{{Listaref/doc/estilolista/núcleo
|type=hiragana-iroha
|ie6=no
|ie7=no
|ie8=no
|ie9=no
|ie10=no
|o10=no
|o11=no
|o12=no
}}
{{Listaref/doc/estilolista/núcleo
|type=katakana-iroha
|ie6=no
|ie7=no
|ie8=no
|ie9=no
|ie10=no
|o10=no
|o11=no
|o12=no
}}

;CSS3 <code>list-style-type</code> values (incomplete)

CSS3 adds hundreds of new values, most not yet supported by major browsers

{{Listaref/doc/estilolista/núcleo
|type=upper-greek
|ie6=no
|ie7=no
|ff3=no
|ff4=no
|ff5=no
|s4=no
|c4=no
|o10=no
|o11=no
|o12=no
}}<noinclude>[[Categoría:Wikipedia:Plantillas de apoyo]]</noinclude>

Plantilla:Listaref/doc

2026-06-14T04:12:59Z

Nodo Central: 1 revisión importada

{{Subpágina de documentación}}
{{riesgoso|nombre=1 700 000}}
=== Uso ===
<pre>{{listaref|2|ancho=600px|refs=|grupo=|estilolista=}}</pre>

Donde «2» corresponde al número de columnas y «xxx» es el ancho mínimo de cada columna.

=== Parámetros ===
Todos los parámetros son opcionales.

* '''1''': número de columnas. El número de columnas solo se aplica si la anchura del navegador lo permite. Es decir, si <code>n=2</code> y <code>ancho=600px</code>, la plantilla generará dos columnas cuando la anchura de la ventana del navegador sea superior a 1200 píxeles, y solo una única columna cuando la anchura sea inferior. '''No se recomienda más de 2 columnas'''. Las listas con números superiores suelen resultar más largas y entrecortar varias veces una misma referencia.
* '''ancho''': ancho de las columnas.
* '''refs''': dentro de las referencias se coloca:

<pre>
{{listaref|grupo="nombre del grupo"|refs=
<ref name="nombre1">contenido1</ref>
<ref name="nombre2">contenido2</ref>
}}</pre>

Así, estas referencias pueden ser invocadas en el artículo como:

<pre><ref group="nombre_del_grupo" name="nombre1" /><ref group="nombre_del_grupo" name="nombre2" /></pre>

* '''estilolista''': permite especificar el estilo de las viñetas de las referencias. Haz clic en [mostrar] en el cuadro que se muestra a continuación para ver una tabla con las viñetas disponibles y su compatibilidad con los distintos navegadores.

{{Lista desplegable
|título=Tipos de estilos de lista
|título_estilo=width: 60%; margin: 0.5em; background:#DDE; text-align: center;
|1={{Listaref/doc/estilolista}}}}

=== Referencias por grupo ===
El sistema de notas al pie permite la separación de las referencias en grupos. Los grupos permiten tener separadas las notas de las referencias, entre otros usos.

El formato general para una etiqueta de referencia de grupo es:

: <code><nowiki><ref group="nombre del grupo"></ref></nowiki></code>

y para la plantilla de lista de referencias:

: {{ep|listaref|2=grupo="nombre del grupo"}}

:Donde <nombre del grupo> es el identificador del grupo, como por ejemplo «nota», «n.» o cualquier otro nombre.

=== Ejemplo sencillo de referencias por grupo ===
El código siguiente muestra un ejemplo sencillo de cómo deben colocarse en el código de un texto las llamadas a la orden <code><nowiki><ref group=nota></nowiki></code> para que funcionen correctamente:
{|class="wikitable mw-collapsible" width=80%
!Código:
!Resultado:
|-
|width=50%|
<pre>
==Ejemplo sencillo de cómo colocar notas==
La primera nota la voy a introducir aquí.<ref group=nota>Esta es la primera nota, en efecto.</ref> Luego sigo escribiendo, y un poco más adelante, coloco la segunda nota.<ref group=nota>Esta es la segunda nota, no falla.</ref>

Ahora, en vez de notas, voy a llamarlas aclaraciones.<ref group=aclar.>Esta es la primera aclaración, en efecto.</ref> Y por si no queda claro, se introduce otra aclaración más.<ref group=aclar.>Esta es la segunda aclaración, inexorablemente.</ref>

Por último, pongo una tercera nota.<ref group=nota>Esta es la tercera nota, la última.</ref>

Al final del artículo, debe ponerse la llamada a las anotaciones que se hayan hecho.

== Notas ==
{{listaref|group=nota}}

== Aclaraciones ==
{{listaref|group=aclar.}}
</pre>
|width=50% style="font-size:99%;line-height:99%;" valign="top"|
 
 
Ejemplo sencillo de cómo colocar notas [ editar código · editar ]
----
La primera nota la voy a introducir aquí.nota 1 Luego sigo escribiendo, y un poco más adelante, coloco la segunda nota.nota 2

Ahora, en vez de notas, voy a llamarlas aclaraciones.aclar. 1 Y por si no queda claro, se introduce otra aclaración más.aclar. 2

Por último, pongo una tercera nota.nota 3

Al final del artículo, debe ponerse la llamada a las anotaciones que se hayan hecho.
 
 
 
 
 
 
Notas [ editar código · editar ]
----
:1. ↑ Esta es la primera nota, en efecto.
:2. ↑ Esta es la segunda nota, no falla.
:3. ↑ Esta es la tercera nota, la última.
 
Aclaraciones [ editar código · editar ]
----
:1. ↑ Esta es la primera aclaración, en efecto.
:2. ↑ Esta es la segunda aclaración, inexorablemente.
 
 
|-
|colspan=2|('''''NOTA:''' en una página normal, los enlaces de color azul funcionarían normalmente; en este caso, solo sirven como una imagen del resultado que se debe obtener)''
('''''NOTA:''' si la página contiene también referencias ''normales'', el comando {{ep|listaref}} debe '''COLOCARSE POR DELANTE''' de <nowiki>{{listaref|group=nota}}</nowiki> )''
|}

=== Detalles técnicos ===
Las columnas múltiples se generan mediante las propiedades del módulo CSS Multi-column Layout, parte de las especificaciones de CSS. Este módulo está ampliamente soportado por los principales navegadores modernos, por lo que las páginas que utilicen estas propiedades pueden mostrar contenido distribuido en varias columnas cuando el navegador es compatible.<ref>{{cita web|url=https://caniuse.com/multicolumn|título=CSS Multi-column Layout – Can I Use|fechaacceso=5 de diciembre de 2025}}</ref><ref>{{cita web|url=https://www.w3.org/TR/css-multicol-1/|título=CSS Multi-column Layout Module Level 1|editorial=W3C|fechaacceso=5 de diciembre de 2025}}</ref>

=== Véase también ===
* [[Wikipedia:Referencias]]
* [[Plantilla:Harvnp|Harvnp]], sistema de citas de Harvard

=== Referencias ===
{{listaref}}
<includeonly>
[[Categoría:Wikipedia:Plantillas de listas]]
[[Categoría:Wikipedia:Plantillas de referencias]]

<templatedata>
{
"params": {
"1": {
"description": "Número de columnas. El número de columnas solo se aplica si la anchura del navegador lo permite. No se recomienda más de 2 columnas.",
"example": "2",
"type": "number",
"default": "2",
"suggested": true
},
"ancho": {
"aliases": [
"colwidth"
],
"description": "Ancho de las columnas. Puede ser en [[píxel|píxeles]] (600px) o ems (30em).",
"example": "600px",
"type": "number"
},
"estilolista": {
"aliases": [
"liststyle"
],
"description": "Permite especificar el estilo de las viñetas de las referencias. Ver la documentación para todas las posibilidades.",
"example": "none, disc, circle, square, decimal, lower-roman...",
"type": "string"
},
"grupo": {
"aliases": [
"group"
],
"description": "Permite la separación de las referencias en grupos. Hay que incluir las comillas.",
"example": "\"nota\"",
"type": "string"
},
"refs": {
"description": "Dentro de las referencias se coloca: <ref name=\"nombre1\">contenido1</ref>; <ref name=\"nombre2\">contenido2</ref>...",
"type": "unbalanced-wikitext"
}
},
"paramOrder": [
"1",
"ancho",
"refs",
"grupo",
"estilolista"
],
"format": "inline",
"description": "Esta plantilla se utiliza para poder visualizar las referencias colocadas en el artículo."
}
</templatedata>
</includeonly>

Plantilla:Yes

2026-06-14T04:12:59Z

Nodo Central: 1 revisión importada

#REDIRECT [[Plantilla:Sí]]

Plantilla:Sí

2026-06-14T04:12:58Z

Nodo Central: 1 revisión importada

[[Archivo:Yes_check.svg|{{{2|15px}}}|link=|Sí]] {{{1|{{leng|1=es|2=Sí|3=Yes}}}}}<noinclude>{{documentación}}
</noinclude>

Plantilla:Documentación/caja final

2026-06-14T04:12:58Z

Nodo Central: 1 revisión importada

<div class="template-documentation" style="font-style: italic">{{#ifexist:{{{1|{{FULLPAGENAME}}/doc}}}|Esta documentación está [[Wikipedia:Transclusión|transcluida]] desde [[{{{1|{{FULLPAGENAME}}/doc}}}]]. }} {{#ifeq: {{SUBPAGENAME}} | zona de pruebas | | Los editores pueden experimentar en la {{#ifexist: {{FULLPAGENAME}}/zona de pruebas | [[{{FULLPAGENAME}}/zona de pruebas|zona de pruebas]] ([{{fullurl: {{FULLPAGENAME}}/zona de pruebas | action=edit }} editar]) | zona de pruebas ([{{fullurl: {{FULLPAGENAME}}/zona de pruebas | action=edit&preload=Plantilla:Documentación/precarga-zona_de_pruebas }} crear]) }} y en los {{#ifexist: {{FULLPAGENAME}}/casos de prueba | [[{{FULLPAGENAME}}/casos de prueba|casos de prueba]] ([{{fullurl: {{FULLPAGENAME}}/casos de prueba | action=edit }} editar]) | casos de prueba ([{{fullurl: {{FULLPAGENAME}}/casos de prueba | action=edit&preload=Plantilla:Documentación/precarga-casos_de_prueba }} crear])}} {{#switch: {{SUBJECTSPACE}} | {{ns:828}} = del módulo | #default = de la plantilla}}. }} Por favor, añade las categorías en la subpágina de documentación. [[Special:PrefixIndex/{{{template page|{{FULLPAGENAME}}}}}/|Subpáginas de {{#switch: {{SUBJECTSPACE}} | {{ns:828}} = este módulo | #default = esta plantilla}}]].</div><includeonly></div></includeonly>

Plantilla:Subpágina de documentación

2026-06-14T04:12:57Z

Nodo Central: 1 revisión importada

<includeonly>__NOTOC__{{#ifeq: {{lc:{{SUBPAGENAME}}}} | doc
| </includeonly>{{Aviso
| imagen = Commons-emblem-doc.svg
| encabezado = Esta es la subpágina de documentación para [[{{NAMESPACE}}:{{{1|{{BASEPAGENAME}}}}}]].
| texto = Contiene información de uso, [[Ayuda:Categoría|categorías]] y otros contenidos que no forman parte {{#switch:{{NAMESPACE}}|Plantilla=de la plantilla original|{{ns:828}}=del módulo|de la página original}}.
}}[[Categoría:Wikipedia:Indicaciones para el uso de {{#switch:{{NAMESPACE}}|{{ns:Module}}=módulo|#default=plantillas}}<noinclude>| </noinclude>]]<includeonly>{{#ifexist:{{NAMESPACE}}:{{{1|{{BASEPAGENAME}}}}}||[[Categoría:Wikipedia:Documentaciones sin {{#switch:{{NAMESPACE}}|{{ns:Module}}=módulo|#default=plantilla}}]]}}
| 
}}</includeonly><noinclude>
{{Documentación}}
</noinclude>

Plantilla:Historial

2026-06-14T04:12:57Z

Nodo Central: 1 revisión importada

[//es.wikipedia.org/w/index.php?title={{urlencode:{{{1|PAGENAMEE}}}}}&action=history {{{2|historial}}}]<noinclude>{{documentación}}</noinclude>

Plantilla:Documentación/caja inicial

2026-06-14T04:12:57Z

Nodo Central: 1 revisión importada

<div id="template-documentation" class="template-documentation">
{{#ifeq: {{{título|¬}}} | 
| 
| <div style="padding-bottom: 3px; border-bottom: 1px solid #aaa; margin-bottom: 1ex;">{{#if: {{{título|}}}
| {{{título}}}
| {{#switch: {{SUBJECTSPACE}}
| {{ns:6}} = Resumen
| {{ns:10}} = [[Archivo:Documentation-plain.svg|50px|link=|alt=Icono de documentación de plantilla]] Documentación de la plantilla
| {{ns:828}} = [[Archivo:Documentation-plain.svg|50px|link=|alt=Icono de documentación de módulo]] Documentación del módulo
| #default = Documentación
}}
}}{{
#if: {{{contenido|}}}
|

{{{contenido}}}
| 
{{
#ifexist:{{{1|{{FULLPAGENAME}}/doc}}}
| [[{{fullurl:{{{1|{{FULLPAGENAME}}/doc}}}}} ver]] [{{editar|{{{1|{{FULLPAGENAME}}/doc}}}}}] [{{historial|{{{1|{{FULLPAGENAME}}/doc}}}}}] [{{purgar|página={{{1|{{FULLPAGENAME}}/doc}}}}}]
| 
[[{{fullurl:{{{1|{{FULLPAGENAME}}/doc}}}|action=edit&preload={{#switch: {{SUBJECTSPACE}}| {{ns:828}} = {{urlencode:Plantilla:Documentación/precarga módulo}}| #default = {{urlencode:Plantilla:Documentación/precarga}}}} }} crear]]}}}}
</div>
}}<noinclude></div>

Esta subplantilla de {{ep|documentación}} genera el formato de la caja de color con un título y enlaces en el encabezado en la página de documentación.

[[Categoría:Wikipedia:Plantillas de apoyo]]
</noinclude>

Plantilla:Documentación

2026-06-14T04:12:56Z

Nodo Central: 1 revisión importada

<includeonly>{{Documentación/caja inicial|{{{1|{{FULLPAGENAME}}/doc}}}}}
{{#ifexist: {{{1|{{FULLPAGENAME}}/doc}}}
| __NOEDITSECTION__{{ {{{1|{{FULLPAGENAME}}/doc}}}|ns:0 }}
| {{documentación deficiente|0}}
}}<div style="clear: both;"></div>
{{Documentación/caja final|{{{1|{{FULLPAGENAME}}/doc}}}}}</includeonly><noinclude>{{documentación}}</noinclude>

Plantilla:Editar

2026-06-14T04:12:56Z

Nodo Central: 1 revisión importada

[{{SERVER}}{{localurl:{{{1|{{FULLPAGENAME}}}}}|{{#if:{{{visual|}}}|ve}}action=edit{{{3|}}}{{#if:{{{intro|}}}|&editintro={{{intro}}}}}}} {{#if:{{{2|}}}|{{{2}}}|{{#ifeq:{{int:edit}}|Editar|editar|{{int:edit}}}}}}]<noinclude>{{documentación}}</noinclude>

Plantilla:Purgar

2026-06-14T04:12:56Z

Nodo Central: 1 revisión importada

[{{fullurl:{{{página|{{{page|{{FULLPAGENAME}}}}}}}}|action=purge}} {{{1|{{leng|1=es|2=purgar|3=purge}}}}}]<noinclude>{{documentación}}</noinclude>

Plantilla:Clear

2026-06-14T04:12:56Z

Nodo Central: 1 revisión importada

<div style="clear: {{{1|both}}};"></div><noinclude>{{documentación}}</noinclude>

Plantilla:No

2026-06-14T04:12:56Z

Nodo Central: 1 revisión importada

[[Archivo:X mark.svg|{{{2|15px}}}|link=|No]] {{{1|No}}}<noinclude>{{documentación}}
</noinclude>

Plantilla:Ep

2026-06-14T04:12:56Z

Nodo Central: 1 revisión importada

<code>{{[[{{#switch: {{NAMESPACE:{{{1|{{FULLPAGENAME}}}}}}}
| {{ns:0}} = Plantilla:{{{1|{{FULLPAGENAME}}}}}{{!}}{{{1|{{FULLPAGENAME}}}}}
| {{ns:10}} = {{{1|{{FULLPAGENAME}}}}}{{!}}{{PAGENAME:{{{1|{{FULLPAGENAME}}}}}}}
| #default = {{{1|{{FULLPAGENAME}}}}}
}}]]{{#if:{{{2|}}}||{{{2}}}}}{{#if:{{{3|}}}||{{{3}}}}}{{#if:{{{4|}}}||{{{4}}}}}{{#if:{{{5|}}}||{{{5}}}}}{{#if:{{{6|}}}||{{{6}}}}}{{#if:{{{7|}}}||{{{7}}}}}{{#if:{{{8|}}}||{{{8}}}}}{{#if:{{{9|}}}||{{{9}}}}}}}</code><noinclude>{{documentación}}</noinclude>

Plantilla:Leng

2026-06-14T04:12:56Z

Nodo Central: 1 revisión importada

{{#switch:{{uc:{{{1|}}}}}
|ESP=
{{#switch:{{USERLANGUAGE}}
|es|ca|an|gl|eu={{{2|}}}
|#default={{{3|}}}
}}
|#default=
{{#ifeq:{{lc:{{USERLANGUAGE}}}}|{{lc:{{{1|}}}}}
|{{{2|}}}
|{{{3|}}}
}}
}}<noinclude>
{{documentación}}
</noinclude>

Módulo:Identificadores

2026-06-14T04:12:56Z

Nodo Central: 1 revisión importada

local p = {}

--[[
ISBN-10 and ISSN validator code calculates checksum across all isbn/issn digits including the check digit. ISBN-13 is checked in checkisbn().
If the number is valid the result will be 0. Before calling this function, issbn/issn must be checked for length and stripped of dashes,
spaces and other non-isxn characters.
]]
-- Función traída de en:Module:Citation/CS1

function p.esValidoISXN (isxn_str, len)
local temp = 0;
isxn_str = { isxn_str:byte(1, len) }; -- make a table of bytes
len = len+1; -- adjust to be a loop counter
for i, v in ipairs( isxn_str ) do -- loop through all of the bytes and calculate the checksum
if v == string.byte( "X" ) then -- if checkdigit is X
temp = temp + 10*( len - i ); -- it represents 10 decimal
else
temp = temp + tonumber( string.char(v) )*(len-i);
end
end
return temp % 11 == 0; -- returns true if calculation result is zero
end

-- Adaptación de la función checkisbn de en:Module:Citation/CS1
function p.esValidoISBN(isbn)
-- El isbn solo contiene números, guiones, espacios en blanco y el dígito de
-- control X.

if not isbn or isbn:match("[^%s-0-9X]") then
return false
end

-- Eliminar los guiones y espacios en blanco

isbn = isbn:gsub( "-", "" ):gsub( " ", "" )
local longitud = isbn:len()

if longitud == 10 then
-- La X solo puede ir al final.
if not isbn:match( "^%d*X?$" ) then
return false
end
return p.esValidoISXN(isbn, 10);
elseif longitud == 13 then -- isbn13
local temp = 0;
-- Debe comenzar por 978 o 979
if not isbn:match( "^97[89]%d*$" ) then
return false
end

-- Comprobar el dígito de control
isbn = { isbn:byte(1, longitud) };
for i, v in ipairs( isbn ) do
temp = temp + (3 - 2*(i % 2)) * tonumber( string.char(v) );
end
return temp % 10 == 0;
else
return false
end

end

-- Función que devuelve un enlace al ISBN si es correcto y si no (por ejemplo si
-- ya está enlazado) lo devuelve sin más.
-- Por defecto no se incluye el literal ISBN delante.

function p.enlazarISBN(isbn, opciones)
if p.esValidoISBN(isbn) then
return '[[Especial:FuentesDeLibros/' .. isbn .. '|' .. isbn .. ']]'
else
return isbn
end
end

function p.enlazarOCLC(oclc, opciones)
if tonumber(oclc) then
return '[http://www.worldcat.org/oclc/' .. oclc .. ' ' .. oclc .. ']'
else
return oclc
end
end

return p

Módulo:Citas/ValidaciónFechas

2026-06-14T04:12:56Z

Nodo Central: 1 revisión importada

local p = {}

-- returns a number according to the month in a date: 1 for January, etc. Capitalization and spelling must be correct. If not a valid month, returns 0
function get_month_number (month)
local long_months = {['January']=1, ['February']=2, ['March']=3, ['April']=4, ['May']=5, ['June']=6, ['July']=7, ['August']=8, ['September']=9, ['October']=10, ['November']=11, ['December']=12};
local short_months = {['Jan']=1, ['Feb']=2, ['Mar']=3, ['Apr']=4, ['May']=5, ['Jun']=6, ['Jul']=7, ['Aug']=8, ['Sep']=9, ['Oct']=10, ['Nov']=11, ['Dec']=12};
local temp;
temp=long_months[month];
if temp then return temp; end -- if month is the long-form name
temp=short_months[month];
if temp then return temp; end -- if month is the short-form name
return 0; -- misspelled, improper case, or not a month name
end

-- returns a number according to the sequence of seasons in a year: 1 for Winter, etc. Capitalization and spelling must be correct. If not a valid season, returns 0
function get_season_number (season)
local season_list = {['Winter']=1, ['Spring']=2, ['Summer']=3, ['Fall']=4, ['Autumn']=4}
local temp;
temp=season_list[season];
if temp then return temp; end -- if season is a valid name return its number
return 0; -- misspelled, improper case, or not a season name
end

--returns true if month or season is valid (properly spelled, capitalized, abbreviated)
function is_valid_month_or_season (month_season)
if 0 == get_month_number (month_season) then -- if month text isn't one of the twelve months, might be a season
if 0 == get_season_number (month_season) then -- not a month, is it a season?
return false; -- return false not a month or one of the five seasons
end
end
return true;
end

-- Function gets current year from the server and compares it to year from a citation parameter. Years more than one year in the future are not acceptable.
function is_valid_year(year)
if not is_set(year_limit) then
year_limit = tonumber(os.date("%Y"))+1; -- global variable so we only have to fetch it once (os.date("Y") no longer works?)
end
return tonumber(year) <= year_limit; -- false if year is in the future more than one year
end

--[[
Returns true if day is less than or equal to the number of days in month and year is no farther into the future than next year; else returns false.

Assumes Julian calendar prior to year 1582 and Gregorian calendar thereafter. Accounts for Julian calendar leap years before 1582 and Gregorian leap years after 1582.
Where the two calendars overlap (1582 to approximately 1923) dates are assumed to be Gregorian.
]]
function is_valid_date (year, month, day)
local days_in_month = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
local month_length;
if not is_valid_year(year) then -- no farther into the future than next year
return false;
end

if (2==month) then -- if February
month_length = 28; -- then 28 days unless
if 1582 > tonumber(year) then -- Julian calendar
if 0==(year%4) then
month_length = 29;
end
else -- Gregorian calendar
if (0==(year%4) and (0~=(year%100) or 0==(year%400))) then -- is a leap year?
month_length = 29; -- if leap year then 29 days in February
end
end
else
month_length=days_in_month[month];
end

if tonumber (day) > month_length then
return false;
end
return true;
end

--[[
Check a pair of months or seasons to see if both are valid members of a month or season pair.

Month pairs are expected to be left to right, earliest to latest in time. Similarly, seasons are also left to right, earliest to latest in time. There is
an oddity with seasons. Winter is assigned a value of 1, spring 2, ..., fall and autumn 4. Because winter can follow fall/autumn at the end of a calender year, a special test
is made to see if |date=Fall-Winter yyyy (4-1) is the date.
]]

function is_valid_month_season_range(range_start, range_end)
local range_start_number = get_month_number (range_start);

if 0 == range_start_number then -- is this a month range?
local range_start_number = get_season_number (range_start); -- not a month; is it a season? get start season number
local range_end_number = get_season_number (range_end); -- get end season number

if 0 ~= range_start_number then -- is start of range a season?
if range_start_number < range_end_number then -- range_start is a season
return true; -- return true when range_end is also a season and follows start season; else false
end
if 4 == range_start_number and 1 == range_end_number then -- special case when range is Fall-Winter or Autumn-Winter
return true;
end
end
return false; -- range_start is not a month or a season; or range_start is a season and range_end is not; or improper season sequence
end

local range_end_number = get_month_number (range_end); -- get end month number
if range_start_number < range_end_number then -- range_start is a month; does range_start precede range_end?
return true; -- if yes, return true
end
return false; -- range_start month number is greater than or equal to range end number; or range end isn't a month
end

--[[
Check date format to see that it is one of the formats approved by WP:DATESNO or WP:DATERANGE. Exception: only allowed range separator is endash.
Additionally, check the date to see that it is a real date: no 31 in 30-day months; no 29 February when not a leap year. Months, both long-form and three
character abbreviations, and seasons must be spelled correctly. Future years beyond next year are not allowed.

If the date fails the fomat tests, this function returns false and does not return values for anchor_year and COinS_date. When this happens, the date parameter is
used in the COinS metadata and the CITEREF identifier gets its year from the year parameter if present otherwise CITEREF does not get a date value.

Inputs:
date_string - date string from date-holding parameters (date, year, accessdate, embargo, archivedate, etc)

Returns:
false if date string is not a real date; else
true, anchor_year, COinS_date
anchor_year can be used in CITEREF anchors
COinS_date is date_string without anchor_year disambiguator if any
]]
function check_date (date_string)
local year; -- assume that year2, months, and days are not used;
local year2=0; -- second year in a year range
local month=0;
local month2=0; -- second month in a month range
local day=0;
local day2=0; -- second day in a day range
local anchor_year;
local coins_date;

if date_string:match("^%d%d%d%d%-%d%d%-%d%d$") then -- year-initial numerical year month day format
year, month, day=string.match(date_string, "(%d%d%d%d)%-(%d%d)%-(%d%d)");
month=tonumber(month);
if 12 < month or 1 > month or 1583 > tonumber(year) then return false; end -- month number not valid or not Gregorian calendar
anchor_year = year;

elseif date_string:match("^%a+ +[1-9]%d?, +[1-9]%d%d%d%a?$") then -- month-initial: month day, year
month, day, anchor_year, year=string.match(date_string, "(%a+)%s*(%d%d?),%s*((%d%d%d%d)%a?)");
month = get_month_number (month);
if 0 == month then return false; end -- return false if month text isn't one of the twelve months

elseif date_string:match("^%a+ +[1-9]%d?–[1-9]%d?, +[1-9]%d%d%d%a?$") then -- month-initial day range: month day–day, year; days are separated by endash
month, day, day2, anchor_year, year=string.match(date_string, "(%a+) +(%d%d?)–(%d%d?), +((%d%d%d%d)%a?)");
if tonumber(day) >= tonumber(day2) then return false; end -- date range order is left to right: earlier to later; dates may not be the same;
month = get_month_number (month);
if 0 == month then return false; end -- return false if month text isn't one of the twelve months

elseif date_string:match("^[1-9]%d? +%a+ +[1-9]%d%d%d%a?$") then -- day-initial: day month year
day, month, anchor_year, year=string.match(date_string, "(%d%d*)%s*(%a+)%s*((%d%d%d%d)%a?)");
month = get_month_number (month);
if 0 == month then return false; end -- return false if month text isn't one of the twelve months

elseif date_string:match("^[1-9]%d?–[1-9]%d? +%a+ +[1-9]%d%d%d%a?$") then -- day-range-initial: day–day month year; days are separated by endash
day, day2, month, anchor_year, year=string.match(date_string, "(%d%d?)–(%d%d?) +(%a+) +((%d%d%d%d)%a?)");
if tonumber(day) >= tonumber(day2) then return false; end -- date range order is left to right: earlier to later; dates may not be the same;
month = get_month_number (month);
if 0 == month then return false; end -- return false if month text isn't one of the twelve months

elseif date_string:match("^[1-9]%d? +%a+ – [1-9]%d? +%a+ +[1-9]%d%d%d%a?$") then -- day initial month-day-range: day month - day month year; uses spaced endash
day, month, day2, month2, anchor_year, year=date_string:match("(%d%d?) +(%a+) – (%d%d?) +(%a+) +((%d%d%d%d)%a?)");
if (not is_valid_month_season_range(month, month2)) or not is_valid_year(year) then return false; end -- date range order is left to right: earlier to later;
month = get_month_number (month);
month2 = get_month_number (month2);

elseif date_string:match("^%a+ +[1-9]%d? – %a+ +[1-9]%d?, +[1-9]%d%d%d%a?$") then -- month initial month-day-range: month day – month day, year; uses spaced endash
month, day, month2, day2, anchor_year, year=date_string:match("(%a+) +(%d%d?) – (%a+) +(%d%d?), +((%d%d%d%d)%a?)");
if (not is_valid_month_season_range(month, month2)) or not is_valid_year(year) then return false; end
month = get_month_number (month);
month2 = get_month_number (month2);

elseif date_string:match("^Winter +[1-9]%d%d%d–[1-9]%d%d%d%a?$") then -- special case Winter year-year; year separated with unspaced endash
year, anchor_year, year2=date_string:match("Winter +(%d%d%d%d)–((%d%d%d%d)%a?)");
anchor_year=year..'–'..anchor_year; -- assemble anchor_year from both years
if 1 ~= tonumber(year2) - tonumber(year) then return false; end -- must be sequential years, left to right, earlier to later
if not is_valid_year(year2) then return false; end -- no year farther in the future than next year

elseif date_string:match("^%a+ +[1-9]%d%d%d% – %a+ +[1-9]%d%d%d%a?$") then -- month/season year - month/season year; separated by spaced endash
month, year, month2, anchor_year, year2=date_string:match("(%a+) +(%d%d%d%d) – (%a+) +((%d%d%d%d)%a?)");
anchor_year=year..'–'..anchor_year; -- assemble anchor_year from both years
if tonumber(year) >= tonumber(year2) then return false; end -- left to right, earlier to later, not the same
if not is_valid_year(year2) then return false; end -- no year farther in the future than next year
if not((0 ~= get_month_number(month) and 0 ~= get_month_number(month2)) or -- both must be month year or season year, not mixed
(0 ~= get_season_number(month) and 0 ~= get_season_number(month2))) then return false; end

elseif date_string:match ("^%a+–%a+ +[1-9]%d%d%d%a?$") then -- month/season range year; months separated by endash
month, month2, anchor_year, year=date_string:match ("(%a+)–(%a+)%s*((%d%d%d%d)%a?)");
if (not is_valid_month_season_range(month, month2)) or (not is_valid_year(year)) then
return false;
end

elseif date_string:match("^%a+ +%d%d%d%d%a?$") then -- month/season year
month, anchor_year, year=date_string:match("(%a+)%s*((%d%d%d%d)%a?)");
if not is_valid_year(year) then return false; end
if not is_valid_month_or_season (month) then return false; end

elseif date_string:match("^[1-9]%d%d%d?–[1-9]%d%d%d?%a?$") then -- Year range: YYY-YYY or YYY-YYYY or YYYY–YYYY; separated by unspaced endash; 100-9999
year, anchor_year, year2=date_string:match("(%d%d%d%d?)–((%d%d%d%d?)%a?)");
anchor_year=year..'–'..anchor_year; -- assemble anchor year from both years
if tonumber(year) >= tonumber(year2) then return false; end -- left to right, earlier to later, not the same
if not is_valid_year(year2) then return false; end -- no year farther in the future than next year

elseif date_string:match("^[1-9]%d%d%d–%d%d%a?$") then -- Year range: YYYY–YY; separated by unspaced endash
local century;
year, century, anchor_year, year2=date_string:match("((%d%d)%d%d)–((%d%d)%a?)");
anchor_year=year..'–'..anchor_year; -- assemble anchor year from both years
if 13 > tonumber(year2) then return false; end -- don't allow 2003-05 which might be May 2003
year2 = century..year2; -- add the century to year2 for comparisons
if tonumber(year) >= tonumber(year2) then return false; end -- left to right, earlier to later, not the same
if not is_valid_year(year2) then return false; end -- no year farther in the future than next year

elseif date_string:match("^[1-9]%d%d%d?%a?$") then -- year; here accept either YYY or YYYY
anchor_year, year=date_string:match("((%d%d%d%d?)%a?)");
if false == is_valid_year(year) then
return false;
end

else
return false; -- date format not one of the MOS:DATE approved formats
end

local result=true; -- check whole dates for validity; assume true because not all dates will go through this test
if 0 ~= year and 0 ~= month and 0 ~= day and 0 == year2 and 0 == month2 and 0 == day2 then -- YMD (simple whole date)
result=is_valid_date(year,month,day);

elseif 0 ~= year and 0 ~= month and 0 ~= day and 0 == year2 and 0 == month2 and 0 ~= day2 then -- YMD-d (day range)
result=is_valid_date(year,month,day);
result=result and is_valid_date(year,month,day2);

elseif 0 ~= year and 0 ~= month and 0 ~= day and 0 == year2 and 0 ~= month2 and 0 ~= day2 then -- YMD-md (day month range)
result=is_valid_date(year,month,day);
result=result and is_valid_date(year,month2,day2);

elseif 0 ~= year and 0 ~= month and 0 ~= day and 0 ~= year2 and 0 ~= month2 and 0 ~= day2 then -- YMD-ymd (day month year range)
result=is_valid_date(year,month,day);
result=result and is_valid_date(year2,month2,day2);
end

if false == result then return false; end
-- if here, then date_string is valid; get coins_date from date_string (leave CITEREF disambiguator) ...
coins_date=date_string:match("^(.+%d)%a?$"); -- last character of valid disambiguatable date is always a digit
coins_date= mw.ustring.gsub(coins_date, "–", "-" ); -- ... and replace any ndash with a hyphen

return true, anchor_year, coins_date; -- format is good and date string represents a real date
end

--[[
Cycle the date-holding parameters in passed table date_parameters_list through check_date() to check compliance with MOS:DATE. For all valid dates, check_date() returns
true. The |date= parameter test is unique, it is the only date holding parameter from which values for anchor_year (used in CITEREF identifiers) and COinS_date (used in
the COinS metadata) are derived. The |date= parameter is the only date-holding parameter that is allowed to contain the no-date keywords "n.d." or "nd" (without quotes).

Unlike most error messages created in this module, only one error message is created by this function. Because all of the date holding parameters are processed serially,
a single error message is created as the dates are tested.
]]

function p.dates(date_parameters_list)
local anchor_year; -- will return as nil if the date being tested is not |date=
local COinS_date; -- will return as nil if the date being tested is not |date=
local error_message ="";
local good_date=false;

for k, v in pairs(date_parameters_list) do -- for each date-holding parameter in the list
if is_set(v) then -- if the parameter has a value
if v:match("^c%. [1-9]%d%d%d?%a?$") then -- special case for c. year or with or without CITEREF disambiguator - only |date= and |year=
local year = v:match("c%. ([1-9]%d%d%d?)%a?"); -- get the year portion so it can be tested
if 'date'==k then
anchor_year, COinS_date = v:match("((c%. [1-9]%d%d%d?)%a?)"); -- anchor year and COinS_date only from |date= parameter
good_date = is_valid_year(year);
elseif 'year'==k then
good_date = is_valid_year(year);
end
elseif 'date'==k then -- if the parameter is |date=
if v:match("n%.d%.%a?") then -- if |date=n.d. with or without a CITEREF disambiguator
good_date, anchor_year, COinS_date = true, v:match("((n%.d%.)%a?)"); --"n.d."; no error when date parameter is set to no date
elseif v:match("nd%a?$") then -- if |date=nd with or without a CITEREF disambiguator
good_date, anchor_year, COinS_date = true, v:match("((nd)%a?)"); --"nd"; no error when date parameter is set to no date
else
good_date, anchor_year, COinS_date = check_date (v); -- go test the date
end
else -- any other date-holding parameter
good_date = check_date (v); -- go test the date
end
if false==good_date then -- assemble one error message so we don't add the tracking category multiple times
if is_set(error_message) then -- once we've added the first portion of the error message ...
error_message=error_message .. ", "; -- ... add a comma space separator
end
error_message=error_message .. "|" .. k .. "="; -- add the failed parameter
end
end
end

return anchor_year, COinS_date, error_message; -- and done
end

return p;

Módulo:Citas/Whitelist

2026-06-14T04:12:55Z

Nodo Central: 1 revisión importada

--[[
Because a steady-state signal conveys no useful information, whitelist.basic_arguments[] list items now can have three values:
true - these parameters are valid and supported parameters
false - these parameters are deprecated but still supported
nil - these parameters are no longer supported (when setting a parameter to nil, leave a comment stating the reasons for invalidating the parameter)
]]
whitelist = {

basic_arguments = {
-- Argumentos permitidos en español no numerados. Algunos de ellos también se usan en inglés.
['1'] = true,
['agencia'] = true,
['ampersand'] = true,
['año'] = true,
['año-original'] = true,
['añoacceso'] = true,
['apellido'] = true,
['apellidos'] = true,
['apellido-editor']= true,
['apellidos-editor']= true,
['artículo'] = true,
['autor'] = true,
['autores'] = true,
['bibcode'] = true,
['BIBCODE'] = true,
['capítulo'] = true,
['capítulo-trad']= true,
['cita'] = true,
['cita-trad'] = true,
['ciudad'] = true,
['colección'] = true, -- Inexistente en la plantilla original. Añadido como sinónimo de serie.
['conferencia'] = true,
['diccionario'] = true,
['doi'] = true,
['DOI'] = true,
['edición'] = true,
['editor'] = true,
['editorial'] = true,
['eissn'] = true,
['EISSN'] = true,
['en'] = true,
['enciclopedia'] = true,
['enlace-autor'] = true,
['enlaceautor'] = true,
['enlaceeditor'] = true,
['enlace-editor']= true,
['enlace-pasaje'] = true,
['entrevistador'] = true, --cite interview
['extra'] = true, -- Inexistente en la plantilla original
['fecha'] = true,
['fecha-acceso'] = true,
['fecha-doi-roto']= true,
['fechaprofano'] = true,
['fecha-publicación']= true,
['fecharesumen'] = true,
['fecha-resumen']= true,
['fechaacceso'] = true,
['fechaarchivo'] = true,
['formato'] = true,
['fuenteresumen']= true,
['fuenteprofano']= true,
['grado'] = true, -- Para tesis
['hdl'] = true,
['HDL'] = true,
['hdl-access'] = true,
['id'] = true,
['ID'] = true,
['idioma'] = true,
['isbn'] = true,
['ISBN'] = true,
['isbn13'] = true,
['ISBN13'] = true,
['issn'] = true,
['ISSN'] = true,
['localización'] = true,
['lugar'] = true,
['lugar-publicación']= true,
['máscaraautor'] = true,
['máscara-autor']= true,
['medio'] = true,
['nombre'] = true,
['nombre-editor']= true,
['nombres'] = true,
['número'] = true,
['número-autores']= true,
['número-editores']= true,
['obra'] = true,
['oclc'] = true,
['OCLC'] = true,
['ol'] = true,
['OL'] = true,
['otros'] = true,
['página'] = true,
['páginas'] = true,
['pasaje'] = true,
['periódico'] = true,
['persona'] = true,
['personas'] = true,
['publicación'] = true,
['pub-periódica'] = true,
['puntofinal'] = true,
['registro'] = true,
['requiereregistro'] = true,
['requiere-registro'] = true,
['resumen'] = true,
['resumenprofano']= true,
['revista'] = true,
['s2cid'] = true,
['separador'] = true,
['separador-autores']= true,
['separador-nombres']= true,
['serie'] = true,
['sined'] = true, -- Inexistente en la plantilla original
['sinpp'] = true,
['sitio web'] = true,
['sitioweb'] = true,
['suscripción'] = true,
['temporada'] = true,
['tiempo'] = true,
['tipo'] = true,
['título'] = true,
['títulolibro'] = true,
['trad-título'] = true,
['título_trad'] = true,
['títulotrad'] = true,
['título-trad'] = true,
['traductor'] = true,
['traductores'] = true,
['ubicación'] = true,
['ubicación-publicación']= true,
['url'] = true,
['URL'] = true,
['urlarchivo'] = true,
['url-acceso'] = true,
['url-capítulo'] = true,
['urlcapítulo'] = true,
['urlconferencia'] = true,
['urlmuerta'] = true,
['url-pasaje'] = true,
['versión'] = true,
['volumen'] = true,
['wikidata'] = true,

-- Parámetros obsoletos (con false)
['añoacceso'] = false,
['coautor'] = false,
['coautores'] = false,
['día'] = false,
['mes'] = false,
['mesacceso'] = false,
['accessmonth'] = false,
['accessyear'] = false,

-- Parámetros en inglés

['accessdate'] = true,
['access-date'] = true,
['agency'] = true,
['airdate'] = true,
['albumlink'] = false, -- deprecated; set to nil after 1 October 2014; a unique alias of titlelink used by old cite AV media notes
['albumtype'] = nil, -- controled inappropriate functionality in the old cite AV media notes
['archivedate'] = true,
['archive-date'] = true,
['archiveurl'] = true,
['archive-url'] = true,
['article'] = true,
['artist'] = false, -- deprecated; set to nil after 1 October 2014; a unique alias of others used by old cite AV media notes
['bandname'] = false, -- Obsoleto. Remplazado por artist que será remplazado creo que por others.
['arxiv'] = true,
['ARXIV'] = true,
['at'] = true,
['author'] = true,
['Author'] = true,
['author-first'] = true,
['authorformat'] = true,
['author-format'] = true,
['author-last'] = true,
['authorlink'] = true,
['author-link'] = true,
['authormask'] = true,
['author-mask'] = true,
['author-name-separator'] = true,
['authors'] = true,
['author-separator'] = true,
['booktitle'] = true,
['book-title'] = true,
['callsign']=true, -- cite interview
['cartography'] = true,
['chapter'] = true,
['chapterlink'] = true,
['chapterurl'] = true,
['chapter-url'] = true,
['city']=true, -- cite interview
['coauthor'] = false,
['coauthors'] = false,
['cointerviewers'] = false, -- cite interview
['conference'] = true,
['conferenceurl'] = true,
['conference-url'] = true,
['contribution'] = true,
['contributionurl'] = true,
['contribution-url'] = true,
['date'] = true,
['day'] = false,
['dead-url'] = true,
['deadurl'] = true,
['degree'] = true,
['department'] = true,
['dictionary'] = true,
['director'] = false, -- deprecated; set to nil after 1 October 2014; a unique alias of author used by old cite DVD-notes
['displayauthors'] = true,
['display-authors'] = true,
['displayeditors'] = true,
['display-editors'] = true,
['docket'] = true,
['DoiBroken'] = true,
['doi_brokendate'] = true,
['doi_inactivedate'] = true,
['edition'] = true,
['Editor'] = true,
['editor-first'] = true,
['editorformat'] = true,
['editor-format'] = true,
['EditorGiven'] = true,
['editor-last'] = true,
['editorlink'] = true,
['editor-link'] = true,
['editormask'] = true,
['editor-mask'] = true,
['editor-name-separator'] = true,
['editors'] = true,
['editor-separator'] = true,
['EditorSurname'] = true,
['embargo'] = true,
['Embargo'] = true,
['encyclopaedia'] = true,
['encyclopedia'] = true,
['entry'] = true,
['episodelink'] = true,
['event'] = true,
['eventurl'] = true,
['first'] = true,
['format'] = true,
['given'] = true,
['host'] = true,
['ignoreisbnerror'] = true,
['ignore-isbn-error'] = true,
['in'] = true,
['inset'] = true,
['institution'] = true,
['interviewer'] = true, --cite interview
['issue'] = true,
['jfm'] = true,
['JFM'] = true,
['journal'] = true,
['jstor'] = true,
['JSTOR'] = true,
['language'] = true,
['last'] = true,
['lastauthoramp'] = true,
['laydate'] = true,
['laysource'] = true,
['laysummary'] = true,
['layurl'] = true,
['lccn'] = true,
['LCCN'] = true,
['location'] = true,
['magazine'] = true,
['medium'] = true,
['minutes'] = true,
['month'] = false,
['mr'] = true,
['MR'] = true,
['name-separator'] = true,
['network'] = true,
['newspaper'] = true,
['nocat'] = true,
['nopp'] = true,
['notestitle'] = false, -- deprecated; set to nil after 1 October 2014; a unique alias of chapter used by old cite AV media notes
['notracking'] = true,
['no-tracking'] = true,
['number'] = true,
['origyear'] = true,
['osti'] = true,
['OSTI'] = true,
['others'] = true,
['p'] = true,
['page'] = true,
['pages'] = true,
['people'] = true,
['periodical'] = true,
['place'] = true,
['pmc'] = true,
['PMC'] = true,
['pmid'] = true,
['PMID'] = true,
['postscript'] = true,
['pp'] = true,
['PPPrefix'] = true,
['PPrefix'] = true,
['program']=true, -- cite interview
['publicationdate'] = true,
['publication-date'] = true,
['publicationplace'] = true,
['publication-place'] = true,
['publisher'] = true,
['publisherid'] = false, -- deprecated; set to nil after 1 October 2014; a unique alias of others used by old cite AV media notes and old cite DVD-notes
['quotation'] = true,
['quote'] = true,
['ref'] = true,
['Ref'] = true,
['registration'] = true,
['rfc'] = true,
['RFC'] = true,
['scale'] = true,
['season'] = true,
['section'] = true,
['sectionurl'] = true,
['separator'] = true,
['series'] = true,
['serieslink'] = true,
['seriesno'] = true,
['seriesnumber'] = true,
['series-separator'] = true,
['ssrn'] = true,
['SSRN'] = true,
['station'] = true,
['subject'] = true,
['subjectlink'] = true,
['subscription'] = true,
['surname'] = true,
['template doc demo'] = true,
['time'] = true,
['timecaption'] = true,
['title'] = true,
['titlelink'] = true,
['titleyear'] = false, -- deprecated; set to nil after 1 October 2014; a unique alias of origyear used by old cite DVD-notes
['trans_chapter'] = true,
['trans-chapter'] = true,
['transcript'] = true,
['transcripturl'] = true,
['transcript-url'] = true,
['trans_quote'] = true,
['trans-quote'] = true,
['trans_title'] = true,
['trans-title'] = true,
['type'] = true,
['url-access'] = true,
['version'] = true,
['via'] = true,
['volume'] = true,
['website'] = true,
['work'] = true,
['year'] = true,
['zbl'] = true,
['ZBL'] = true,
},

numbered_arguments = {
['máscaraautor#'] = true,
['máscara-autor#'] = true,
['apellidos#'] = true,
['apellido#'] = true, -- Por apellido1
['apellido-editor#'] = true,
['apellidos-editor#']= true,
['autor#'] = true,
['editor#'] = true,
['enlaceautor#'] = true,
['enlace-autor#'] = true,
['enlace-editor#'] = true,
['nombre#'] = true,
['nombre-editor#'] = true,
['nombres#'] = true,

-- Parámetros en inglés
['author#'] = true,
['Author#'] = true,
['author-first#'] = true,
['author#-first'] = true,
['author-last#'] = true,
['author#-last'] = true,
['author-link#'] = true,
['author#link'] = true,
['author#-link'] = true,
['authorlink#'] = true,
['author-mask#'] = true,
['author#mask'] = true,
['author#-mask'] = true,
['authormask#'] = true,
['authors#'] = true,
['Editor#'] = true,
['editor-first#'] = true,
['editor#-first'] = true,
['editor-given#'] = true,
['EditorGiven#'] = true,
['editor-last#'] = true,
['editor#-last'] = true,
['editor-link#'] = true,
['editor#link'] = true,
['editor#-link'] = true,
['editorlink#'] = true,
['editor-mask#'] = true,
['editor#mask'] = true,
['editor#-mask'] = true,
['editormask#'] = true,
['editors#'] = true,
['editor-surname#'] = true,
['EditorSurname#'] = true,
['first#'] = true,
['given#'] = true,
['last#'] = true,
['subject#'] = true,
['subjectlink#'] = true,
['surname#'] = true,
},
};

return whitelist;

Módulo:Citas/Configuración

2026-06-14T04:12:55Z

Nodo Central: 1 revisión importada

citation_config = {};

--[[
List of namespaces that should not be included in citation
error categories. Same as setting notracking = true by default

Note: Namespace names should use underscores instead of spaces.de

citation_config.uncategorized_namespaces = { 'User', 'Talk', 'User_talk', 'Wikipedia_talk', 'File_talk', 'Template_talk',
'Help_talk', 'Category_talk', 'Portal_talk', 'Book_talk', 'Draft', 'Draft_talk', 'Education_Program_talk',
'Module_talk', 'MediaWiki_talk' };
]]
citation_config.uncategorized_namespaces = { 'Usuario', 'Usuaria', 'Discusión', 'Usuario_discusión', 'Usuario_Discusión','Usuaria_Discusión', 'Usuaria_discusión', 'Wikipedia_discusión', 'Archivo_discusión',
'Plantilla_discusión', 'Ayuda_discusión', 'Categoría_discusión', 'Portal_Discusión', 'Book_talk', 'Draft', 'Draft_talk', 'Education_Program_talk',
'Módulo_discusión', 'MediaWiki_discusión', 'Wikipedia', 'Wikiproyecto', 'Wikiproyecto_discusión' };

--[[
Translation table

The following contains fixed text that may be output as part of a citation.
This is separated from the main body to aid in future translations of this
module.
]]
citation_config.messages = {
['published'] = 'publicado el $1', --'published $1',
['lay summary'] = 'Resumen divulgativo', --'Lay summary',
['retrieved'] = 'Consultado el $1', --'Retrieved $1',
['inactive'] = 'inactivo', --'inactive',
['archived-dead'] = 'Archivado desde $1 el $2',-- 'Archived from $1 on $2',
['archived-not-dead'] = '$1 desde el original el $2', --'$1 from the original on $2',
['archived-missing'] = 'Archivado desde el original$1 el $2', --'Archived from the original$1 on $2',
['archived'] = 'Archivado', --'Archived',
['original'] = 'el original', --'the original',
['editor'] = 'ed.',
['editors'] = 'eds.',
['edition'] = '($1 edición)', --'($1 ed.)',
['interview'] = 'Entrevista con $1',
['sin edición'] = '($1)', -- No existe en la Wikipedia inglesa
['episode'] = 'episode',
['season'] = 'season',
['series'] = 'series',
['cartography'] = 'Cartography by $1',
['section'] = 'Section $1',
['inset'] = '$1 inset',
['traductor'] = '($1, trad.)',
['traductores'] = '($1, trads.)',
['written'] = 'Escrito en $1', --'Written at $1',
['in'] = 'En', --'In',
['et al'] = "''et al.''", -- 'et al.', l

['subscription'] = '(requiere suscripción)' ..
'[[Categoría:Wikipedia:Páginas con referencias que requieren suscripción]]',

['registration'] = '(requiere registro)' ..
'[[Categoría:Wikipedia:Páginas con referencias que requieren registro]]',

['language'] = '(en $1)', -- '(in $1)',
['format'] = '($1)', -- No existe en la Wikipedia inglesa
['via'] = " – vía $1",
['event'] = 'Escena en', --'Event occurs at',
['minutes'] = 'minutes in',
['id'] = '$1', -- Nuevo. No existe en la plantilla original

['quoted-title'] = '«$1»', --'"$1"',
['italic-title'] = "''$1''",
['trans-quoted-title'] = "[$1]",
['trans-italic-title'] = "[''$1'']",
['quoted-text'] = '«$1»', -- '"$1"',

['parameter'] = '<code>|$1=</code>',
['parameter-separator'] = ', ',
['parameter-final-separator'] = ', y ', -- ', and ',
['parameter-pair-separator'] = ' y ', -- ' and ',

-- Error output
['hidden-error'] = '$1',
['visible-error'] = '$1',

-- Determines the location of the help page
['help page link'] = 'Ayuda:Errores en las referencias', --'Help:CS1 errors',
['help page label'] = 'ayuda', --'help',

-- Internal errors (should only occur if configuration is bad)
['undefined_error'] = 'Called with an undefined error condition',
['unknown_manual_ID'] = 'Unrecognized manual ID mode',
['unknown_ID_mode'] = 'Unrecognized ID mode',
['unknown_argument_map'] = 'Argument map not defined for this variable',
['bare_url_no_origin'] = 'Bare url found but origin indicator is nil or empty',
}

-- Aliases table for commonly passed parameters
citation_config.aliases = {
['AccessDate'] = {'fechaacceso', 'fecha-acceso', 'accessdate', 'access-date'}, --{'accessdate', 'accessyear'},
['AñoAcceso'] = {'añoacceso', 'accessyear'}, -- Inexistente en la plantilla original
['Agency'] = {'agencia', 'agency'},
['AirDate'] = 'airdate',
['ArchiveDate'] = {'fechaarchivo', 'archive-date', 'archivedate' },
['ArchiveURL'] = {'urlarchivo', 'archive-url', 'archiveurl' },
['At'] = {'en', 'at'},
['Authors'] = {'autores', 'persona', 'personas', 'authors', 'people', 'host'},
['AuthorFormat'] = {"author-format", "authorformat" },
['AuthorSeparator'] = {'separador-autores', 'author-separator'},
['AuthorNameSeparator'] = {'separador-nombres', 'author-name-separator'},
['BookTitle'] = {'book-title', 'booktitle', 'títulolibro'},
['Callsign'] = 'callsign', -- cite interview
['Cartography'] = 'cartography',
['Chapter'] = {'capítulo', 'artículo', 'chapter', 'contribution', 'entry', 'article', 'section', 'notestitle'}, -- notestitle is deprecated used by old cite AV media notes; remove after 1 October 2014;
['ChapterLink'] = 'chapterlink',
['ChapterURL'] = {'url-capítulo', 'urlcapítulo', 'chapter-url', 'chapterurl', 'contribution-url', 'contributionurl', 'sectionurl' },
['City'] = 'city', -- cite interview
['Coauthors'] = {'coautores', 'coautor', 'coauthors', 'coauthor' },
['Cointerviewers'] = {'coentrevistadores', 'cointerviewers'}, -- cite interview
['Conference'] = {'conference', 'event', 'conferencia' },
['ConferenceURL'] = {'conference-url', 'conferenceurl', 'event-url', 'eventurl', 'urlconferencia'},
['Date'] = {'fecha','date'},
['Day'] = {'día', 'day'},
['DeadURL'] = {'deadurl','urlmuerta'},
['Degree'] = {'degree', 'grado'},
['DisplayAuthors'] = {"número-autores", "display-authors", "displayauthors"},
['DisplayEditors'] = {"número-editores", "display-editors", "displayeditors"},
['Docket'] = 'docket',
['DoiBroken'] = {'fecha-doi-roto', 'doi_inactivedate', 'doi_brokendate', 'DoiBroken', 'doi-broken-date'},
['Edition'] = {'edición', 'edition'},
['Editors'] = 'editors',
['EditorFormat'] = {"editor-format", "editorformat" },
['EditorSeparator'] = 'editor-separator',
['EditorNameSeparator'] = 'editor-name-separator',
['Embargo'] = {'Embargo', 'embargo'},
['Extra'] = 'extra', -- Inexistente en la plantilla original
['Format'] = {'formato', 'format'},
['ID'] = {'id', 'ID', 'publisherid'}, -- publisherid is deprecated; used by old cite AV media notes and old cite DVD notes; remove after 1 October 2014;
['IgnoreISBN'] = {'ignore-isbn-error', 'ignoreisbnerror'},
['Inset'] = 'inset',
['Interviewer'] = {'entrevistador', 'interviewer'}, -- cite interview
['Issue'] = {'número', 'issue', 'number'},
['Language'] = {'idioma', 'language', 'in'},
['LastAuthorAmp'] = {'ampersand', 'lastauthoramp', 'last-author-amp'},
['LayDate'] = {'fecharesumen', 'fecha-resumen', 'fechaprofano', 'laydate'},
['LaySource'] = {'fuenteresumen', 'fuenteprofano', 'laysource'},
['LayURL'] = {'resumen', 'resumenprofano', 'layurl', 'laysummary'},
['MesAcceso'] = {'mesacceso', 'accessmonth'}, -- Inexistente en la plantilla original
['Minutes'] = 'minutes',
['Month'] = {'mes', 'month'},
['NameSeparator'] = 'name-separator',
['Network'] = 'network',
['NoPP'] = {'sinpp', 'nopp'},
['NoTracking'] = {"template doc demo", 'nocat',
'notracking', "no-tracking"},
['OrigYear'] = {'año-original', 'origyear', 'titleyear'}, -- titleyear is deprecated; used in old cite DVD notes; remove after 1 October 2014
['Others'] = {'otros', 'others', 'artist', 'director', 'bandname'}, -- artist and director are deprecated; used in old cite AV media notes and old cite DVD notes; remove after 1 October 2014
-- bandname ya es obsoleto en la wikipedia inglesa.
['Page'] = {'página', 'p', 'page'},
['Pages'] = {'páginas', 'pp', 'pages'},
['Passage'] = 'pasaje',
['PassageURL'] = {'enlace-pasaje', 'url-pasaje'},
['Periodical'] = {'publicación', 'pub-periódica', 'periódico', 'revista', 'obra', 'journal', 'newspaper', 'magazine', 'work',
'website', 'sitioweb', 'sitio web', 'periodical', 'enciclopedia', 'encyclopedia', 'encyclopaedia', 'diccionario', 'dictionary'},
['Place'] = {'lugar', 'localización', 'ubicación', 'ciudad', 'place', 'location'},
['PPrefix'] = 'PPrefix',
['PPPrefix'] = 'PPPrefix',
['Program'] = 'program', -- cite interview
['PostScript'] = {'puntofinal', 'postscript'},
['PublicationDate'] = {'fecha-publicación', 'publicationdate', 'publication-date' },
['PublicationPlace'] = {'lugar-publicación', 'ubicación-publicación', 'publication-place', 'publicationplace' },
['PublisherName'] = {'editorial', 'publisher', 'distributor', 'institution'},
['Quote'] = {'cita', 'quote', 'quotation'},
['Ref'] = {'ref', 'Ref'},
['RegistrationRequired'] = {'registration', 'requiere-registro', 'requiereregistro', 'registro'},
['Scale'] = 'scale',
['Section'] = 'section',
['Season'] = {'season', 'temporada'},
['Separator'] = {'separador', 'separator'},
['Series'] = {'serie', 'versión', 'colección', 'series', 'version'},
['SeriesSeparator'] = 'series-separator',
['SeriesLink'] = 'serieslink',
['SeriesNumber'] = {'seriesnumber', 'seriesno'},
['SinEd'] = 'sined', -- Inexistente en la plantilla original
['Station'] = 'station',
['SubscriptionRequired'] = {'suscripción', 'subscription'},
['Time'] = {'tiempo', 'time'},
['TimeCaption'] = 'timecaption',
['Texto1'] = 1,
['Title'] = {'título', 'title'}, -- No pongo titre
['TitleLink'] = {'titlelink', 'episodelink', 'albumlink' }, -- albumlink is deprecated; used by old cite AV media notes; remove after 1 October 2014
['TitleNote'] = 'department',
['TitleType'] = {'tipo', 'medio', 'type', 'medium'},
['Traductor'] = 'traductor',
['Traductores'] = 'traductores',
['TransChapter'] = {'capítulo-trad','capítulotrad', 'trans-chapter', 'trans_chapter' },
['Transcript'] = 'transcript',
['TranscriptURL'] = {'transcript-url', 'transcripturl'},
['TransQuote'] = {'cita-trad', 'citatrad', 'trans-quote', 'trans_quote' },
['TransTitle'] = {'trad-título', 'títulotrad', 'título_trad', 'título-trad', 'trans-title', 'trans_title' },
['URL'] = {'url', 'URL'},
['UrlAccess'] = {'url-acceso', 'url-access'},
['Via'] = 'via',
['Volume'] = {'volumen', 'volume'},
['Year'] = {'año', 'year'},

['AuthorList-First'] = {"nombre#", "nombres#", "author#-first", "author-first#",
"first#", "given#"},
['AuthorList-Last'] = {"apellido#", "apellidos#", "autor#", "author#-last", "author-last#",
"last#", "surname#", "Author#", "author#", "authors#", "subject#"},
['AuthorList-Link'] = {"enlace-autor#", "enlaceautor#", "author#-link", "author-link#",
"author#link", "authorlink#", "subjectlink#", "subject-link#"},
['AuthorList-Mask'] = {"máscara-autor#","máscaraautor#","author#-mask", "author-mask#",
"author#mask", "authormask#"},

['EditorList-First'] = {"nombre-editor#", "editor#-first",
"editor-first#", "editor-given#", "EditorGiven#"},
['EditorList-Last'] = {"apellido-editor#", "apellidos-editor#", "editor#-last", "editor-last#",
"editor-surname#", "EditorSurname#", "Editor#", "editor#", "editors#"},
['EditorList-Link'] = {"enlace-editor#", "enlaceeditor#", "editor#-link", "editor-link#",
"editor#link", "editorlink#"},
['EditorList-Mask'] = {"editor#-mask", "editor-mask#",
"editor#mask", "editormask#"},

}

citation_config.parametros_a_implementar={ --No aparece en la Wikipedia inglesa
['urltrad']=true,
['script-title']=true
}

-- Default parameter values
citation_config.defaults = {
['DeadURL'] = 'yes',
['AuthorSeparator'] = ';', -- Por comprobar si poner ; ¿No hace falta poner el espacio?
['EditorSeparator'] = ';',
['NameSeparator'] = ',', -- Por comprobar 
['PPrefix'] = "p. ",
['PPPrefix'] = "pp. ",
}

--[[
Error condition table

The following contains a list of IDs for various error conditions defined in the
code. For each ID, we specify a text message to display, an error category to
include, and whether the error message should be wrapped as a hidden comment.

Anchor changes require identical changes to matching anchor in Help:CS1 errors
]]

citation_config.error_conditions = {
accessdate_missing_url = {
message = '<code>|fechaacceso=</code> requiere <code>|url=</code>', --'<code>|accessdate=</code> requires <code>|url=</code>',
anchor = 'accessdate_missing_url',
category = 'Wikipedia:Páginas con referencias sin URL y con fecha de acceso', --'Pages using citations with accessdate and no URL',
hidden = true },
archive_missing_date = {
message = '<code>|urlarchivo=</code> requiere <code>|fechaarchivo=</code>', --'<code>|archiveurl=</code> requires <code>|archivedate=</code>',
anchor = 'archive_missing_date',
category = 'Wikipedia:Páginas con referencias sin fechaarchivo y con urlarchivo', --'Pages with archiveurl citation errors',
hidden = false },
archive_missing_url = {
message = '<code>|urlarchivo=</code> requiere <code>|url=</code>', --'<code>|archiveurl=</code> requires <code>|url=</code>',
anchor = 'archive_missing_url',
category = 'Wikipedia:Páginas con referencias sin URL y con urlarchivo', --'Pages with archiveurl citation errors',
hidden = false },
bad_authorlink = {
message = 'Comprueba el valor del <code>|enlaceautor=</code>', -- 'Check <code>|authorlink=</code> value',
anchor = 'bad_authorlink',
category = 'Wikipedia:Páginas con referencias con enlaceautor incorrecto', -- 'CS1 errors: authorlink',
hidden = false },
bad_date = {
message = 'Check date values in: <code>$1</code>',
anchor = 'bad_date',
category = 'CS1 errors: dates',
hidden = true },
bad_doi = {
message = '<code>|doi=</code> incorrecto',--'Check <code>|doi=</code> value',
anchor = 'bad_doi',
category = 'Wikipedia:Páginas con DOI incorrectos', --'Pages with DOI errors',
hidden = false },
bad_hdl = {
message = 'Check <code class="cs1-code">|hdl=</code> value',
anchor = 'bad_hdl',
category = 'CS1 errors: HDL',
hidden = false },
bad_isbn = {
message = '<code>|isbn=</code> incorrecto', --'Check <code>|isbn=</code> value',
anchor = 'bad_isbn',
category = 'Wikipedia:Páginas con ISBN incorrectos', --'Pages with ISBN errors',
hidden = false },
bad_issn = {
message = '<code>|issn=</code> incorrecto',--'Check <code>|issn=</code> value',
anchor = 'bad_issn',
category = 'Wikipedia:Páginas con ISSN incorrectos', --'CS1 errors: ISSN',
hidden = false },
bad_lccn = {
message = '<code>|lccn=</code> incorrecto', --'Check <code>|lccn=</code> value',
anchor = 'bad_lccn',
category = 'Wikipedia:Páginas con LCCN incorrectos', --'CS1 errors: LCCN',
hidden = false },
bad_ol = {
message = 'Check <code>|ol=</code> value',
anchor = 'bad_ol',
category = 'Pages with OL errors',
hidden = false },
bad_pmc = {
message = '<code>|pmc=</code> incorrecto', --'Check <code>|pmc=</code> value',
anchor = 'bad_pmc',
category = 'Wikipedia:Páginas con PMC incorrectos', --'CS1 errors: PMC',
hidden = false },
bad_pmid = {
message = '<code>|pmid=</code> incorrecto', --'Check <code>|pmid=</code> value',
anchor = 'bad_pmid',
category = 'Wikipedia:Páginas con PMID incorrectos', -- 'CS1 errors: PMID',
hidden = false },
bad_url = {
message = '<code>|url=</code> incorrecta', --'Check <code>|url=</code> scheme',
anchor = 'bad_url',
category = 'Wikipedia:Páginas con URL incorrectas', --'Pages with URL errors',
hidden = false },
bad_url_autorreferencia = {
message = '<code>|url=</code> incorrecta con autorreferencia',
anchor = 'bad_url_autorreferencia',
category = 'Wikipedia:Páginas con autorreferencias',
hidden = false },
bare_url_missing_title = {
message = '$1 sin título', --'$1 missing title',
anchor = 'bare_url_missing_title',
category = 'Wikipedia:Páginas con referencias sin título y con URL', -- 'Pages with citations having bare URLs',
hidden = false },
citation_missing_title = {
message = 'Falta el <code>|título=</code>', --'Missing or empty <code>|title=</code>',
anchor = 'citation_missing_title',
category = 'Wikipedia:Páginas con referencias sin título', --'Pages with citations lacking titles',
hidden = false },
cite_web_url = { -- this error applies to cite web and to cite podcast
message = 'Falta la <code>|url=</code>', --'Missing or empty <code>|url=</code>',
anchor = 'cite_web_url',
category = 'Wikipedia:Páginas con referencias web sin URL', --'Pages using web citations with no URL',
hidden = true },
coauthors_missing_author = {
message = '<code>|coautores=</code> requiere <code>|autor=</code>', --'<code>|coauthors=</code> requires <code>|author=</code>',
anchor = 'coauthors_missing_author',
category = 'Wikipedia:Páginas con referencias sin autor y con coautores', --'CS1 errors: coauthors without author',
hidden = false },
deprecated_params = {
message = 'La referencia utiliza el parámetro obsoleto <code>|$1=</code>', --'Cite uses deprecated parameters',
anchor = 'deprecated_params',
category = 'Wikipedia:Páginas con referencias con parámetros obsoletos', -- 'Pages containing cite templates with deprecated parameters',
hidden = true },
empty_citation = {
message = 'Referencia vacía', 'Empty citation', --'Empty citation',
anchor = 'empty_citation',
category = 'Wikipedia:Páginas con referencias vacías', --'Pages with empty citations',
hidden = false },
extra_pages = {
message = 'Extra <code>|páginas=</code> o <code>|en=</code>', --'Extra <code>|pages=</code> or <code>|at=</code>',
anchor = 'extra_pages',
category = 'Pages with citations using conflicting page specifications', --'Pages with citations using conflicting page specifications',
hidden = false },
format_missing_url = {
message = '<code>|formato=</code> requiere <code>|url=</code>', --'<code>|format=</code> requires <code>|url=</code>',
anchor = 'format_missing_url',
category = 'Wikipedia:Páginas con referencias sin URL y con formato', --'Pages using citations with format and no URL',
hidden = true },
implict_etal_author = {
message = 'Se sugiere usar <code>|número-autores=</code>', --'<code>|displayauthors=</code> suggested',
anchor = 'displayauthors',
category = 'Wikipedia:Páginas con referencias con et al. implícito en los autores', --'Pages using citations with old-style implicit et al.',
hidden = true },
implict_etal_editor = {
message = 'Se sugiere usar <code>|número-editores=</code>', --'<code>|displayeditors=</code> suggested', --'<code>|displayeditors=</code> suggested',
anchor = 'displayeditors',
category = 'Wikipedia:Páginas con referencias con et al. implícito en los editores', --'Pages using citations with old-style implicit et al. in editors',
hidden = true },
parameter_ignored = {
message = 'Parámetro desconocido <code>|$1=</code> ignorado',
anchor = 'parameter_ignored',
category = 'Wikipedia:Páginas con referencias con parámetros desconocidos', --'Pages with citations using unsupported parameters',
hidden = false },
parameter_ignored_suggest = {
message = 'Parámetro desconocido <code>|$1=</code> ignorado (se sugiere <code>|$2=</code>)', --'Unknown parameter <code>|$1=</code> ignored (<code>|$2=</code> suggested)',
anchor = 'parameter_ignored_suggest',
category = 'Wikipedia:Páginas con referencias con parámetros sugeridos', --'Pages with citations using unsupported parameters',
hidden = false },

-- Pendiente implementar los parámetros urltrad de la cita web (No existe en la Wikipedia inglesa) y script-title.
parametro_por_implementar = {
message = 'Parámetro desconocido <code>|$1=</code> ignorado',
anchor = 'parametro_por_implementar',
category = 'Wikipedia:Páginas con referencias con parámetros por implementar',
hidden = false },

redundant_parameters = {
message = '$1 redundantes', --'More than one of $1 specified',
anchor = 'redundant_parameters',
category = 'Wikipedia:Páginas con referencias con parámetros redundantes', --'Pages with citations having redundant parameters',
hidden = false },
text_ignored = {
message = 'Texto «$1» ignorado', --'Text "$1" ignored',
anchor = 'text_ignored',
category = 'Wikipedia:Páginas con referencias con parámetros sin nombre', -- 'Pages with citations using unnamed parameters',
hidden = false },
trans_missing_chapter = {
message = '<code>|capítulo-trad=</code> requiere <code>|capítulo=</code>', --'<code>|trans_chapter=</code> requires <code>|chapter=</code>',
anchor = 'trans_missing_chapter',
category = 'Wikipedia:Páginas con referencias con términos traducidos sin el original', --'Pages with citations using translated terms without the original',
hidden = false },
trans_missing_title = {
message = '<code>|título-trad=</code> requiere <code>|título=</code>',--'<code>|trans_title=</code> requires <code>|title=</code>',
anchor = 'trans_missing_title',
category = 'Wikipedia:Páginas con referencias con términos traducidos sin el original', --'Pages with citations using translated terms without the original',
hidden = false },
wikilink_in_url = {
message = 'Wikienlace dentro del título de la URL', -- 'Wikilink embedded in URL title',
anchor = 'wikilink_in_url',
category = 'Wikipedia:Páginas con referencias con wikienlaces dentro del título de la URL', -- 'Pages with citations having wikilinks embedded in URL titles',
hidden = false },
url_sugerida = { -- Se aplica cuando está informado el campo 1 con una url y la cita no tiene informada la url.
message = 'Texto «$1» ignorado (se sugiere <code>|$2=</code>)',
anchor = 'url_sugerida',
category = 'Wikipedia:Páginas con referencias con parámetros sugeridos (URL)',
hidden = false },
}

citation_config.id_handlers = {
['ARXIV'] = {
parameters = {'arxiv', 'ARXIV'},
link = 'arXiv',
label = 'arXiv',
mode = 'external',
prefix = '//arxiv.org/abs/', -- protocol relative tested 2013-09-04
encode = false,
COinS = 'info:arxiv',
separator = ':',
},
['BIBCODE'] = {
parameters = {'bibcode', 'BIBCODE'},
link = 'Bibcode',
label = 'Bibcode',
mode = 'external',
prefix = 'http://adsabs.harvard.edu/abs/',
encode = false,
COinS = 'info:bibcode',
separator = ':',
},
['DOI'] = {
parameters = { 'doi', 'DOI' },
link = 'Digital object identifier',
label = 'doi',
mode = 'manual',
prefix = 'http://dx.doi.org/',
COinS = 'info:doi',
separator = ':',
encode = true,
},
['EISSN'] = {
parameters = {'eissn', 'EISSN'},
link = 'International Standard Serial Number#Electronic ISSN',
redirect = 'eISSN (identifier)',
q = 'Q46339674',
label = 'eISSN',
mode = 'manual',
prefix = '//www.worldcat.org/issn/',
COinS = 'rft.eissn',
encode = false,
separator = ' ',
},
['HDL'] = {
parameters = { 'hdl', 'HDL' },
link = 'Handle System',
redirect = 'hdl (identifier)',
q = 'Q3126718',
mode = 'external',
label = 'hdl',
prefix = '//hdl.handle.net/',
COinS = 'info:hdl',
separator = ':',
encode = true,
custom_access = 'hdl-access',
},
['ISBN'] = {
parameters = {'isbn', 'ISBN', 'isbn13', 'ISBN13'},
link = 'ISBN', --'International Standard Book Number',
label = 'ISBN',
mode = 'manual',
prefix = 'Special:BookSources/',
COinS = 'rft.isbn',
separator = ' ',
},
['ISSN'] = {
parameters = {'issn', 'ISSN'},
link = 'ISSN', --'International Standard Serial Number',
label = 'ISSN',
mode = 'manual',
prefix = '//portal.issn.org/resource/ISSN/',
COinS = 'rft.issn',
encode = false,
separator = ' ',
},
['JFM'] = {
parameters = {'jfm', 'JFM'},
link = 'Jahrbuch über die Fortschritte der Mathematik',
label = 'JFM',
mode = 'external',
prefix = 'http://www.zentralblatt-math.org/zmath/en/search/?format=complete&q=an:',
COinS = 'rft.jfm',
encode = true,
separator = ' ',
},
['JSTOR'] = {
parameters = {'jstor', 'JSTOR'},
link = 'JSTOR',
label = 'JSTOR',
mode = 'external',
prefix = '//www.jstor.org/stable/', -- protocol relative tested 2013-09-04
COinS = 'rft.jstor',
encode = true,
separator = ' ',
},
['LCCN'] = {
parameters = {'LCCN', 'lccn'},
link = 'Library of Congress Control Number',
label = 'LCCN',
mode = 'manual',
prefix = 'http://lccn.loc.gov/',
COinS = 'rft.lccn',
encode = false,
separator = ' ',
},
['MR'] = {
parameters = {'MR', 'mr'},
link = 'Mathematical Reviews',
label = 'MR',
mode = 'external',
prefix = '//www.ams.org/mathscinet-getitem?mr=', -- protocol relative tested 2013-09-04
COinS = 'rft.mr',
encode = true,
separator = ' ',
},
['OCLC'] = {
parameters = {'OCLC', 'oclc'},
link = 'OCLC', --'Online Computer Library Center',
label = 'OCLC',
mode = 'external',
prefix = '//www.worldcat.org/oclc/',
COinS = 'info:oclcnum',
encode = true,
separator = ' ',
},
['OL'] = {
parameters = { 'ol', 'OL' },
link = 'Open Library',
label = 'OL',
mode = 'manual',
COinS = 'info:olnum',
separator = ' ',
encode = true,
},
['OSTI'] = {
parameters = {'OSTI', 'osti'},
link = 'Office of Scientific and Technical Information',
label = 'OSTI',
mode = 'external',
prefix = '//www.osti.gov/energycitations/product.biblio.jsp?osti_id=', -- protocol relative tested 2013-09-04
COinS = 'info:osti',
encode = true,
separator = ' ',
},
['PMC'] = {
parameters = {'PMC', 'pmc'},
link = 'PubMed Central',
label = 'PMC',
mode = 'manual', -- changed to support unlinking of PMC identifier when article is embargoed
prefix = '//www.ncbi.nlm.nih.gov/pmc/articles/PMC',
suffix = " ",
COinS = 'info:pmc',
encode = true,
separator = ' ',
},
['PMID'] = {
parameters = {'PMID', 'pmid'},
link = 'PubMed Identifier',
label = 'PMID',
mode = 'manual', -- changed from external manual to support PMID validation
prefix = '//www.ncbi.nlm.nih.gov/pubmed/',
COinS = 'info:pmid',
encode = false,
separator = ' ',
},
['RFC'] = {
parameters = {'RFC', 'rfc'},
link = 'Request for Comments',
label = 'RFC',
mode = 'external',
prefix = '//tools.ietf.org/html/rfc',
COinS = 'info:rfc',
encode = false,
separator = ' ',
},
['S2CID'] = {
parameters = {'s2cid', 'S2CID'},
link = 'Semantic Scholar',
label = 'S2CID',
mode = 'external',
prefix = 'https://api.semanticscholar.org/CorpusID:',
COinS = 'pre', -- use prefix value
encode = false,
separator = ' ',
},
['SSRN'] = {
parameters = {'SSRN', 'ssrn'},
link = 'Social Science Research Network',
label = 'SSRN',
mode = 'external',
prefix = '//ssrn.com/abstract=', -- protocol relative tested 2013-09-04
COinS = 'info:ssrn',
encode = true,
separator = ' ',
},
['ZBL'] = {
parameters = {'ZBL', 'zbl'},
link = 'Zentralblatt MATH',
label = 'Zbl',
mode = 'external',
prefix = 'http://www.zentralblatt-math.org/zmath/en/search/?format=complete&q=an:',
COinS = 'info:zbl',
encode = true,
separator = ' ',
},
['WIKIDATA'] = {
parameters = {'wikidata'},
link = 'Wikidata',
label = 'Wikidata',
mode = 'internal',
prefix = ':d:',
COinS = '', -- ?
encode = false,
separator = ' ',
}
}

return citation_config;

Módulo:Date

2026-06-14T04:12:55Z

Nodo Central: 1 revisión importada

-- Date functions for use by other modules.
-- I18N and time zones are not supported.

local MINUS = '−' -- Unicode U+2212 MINUS SIGN
local floor = math.floor

local Date, DateDiff, diffmt -- forward declarations
local uniq = { 'unique identifier' }

local function is_date(t)
-- The system used to make a date read-only means there is no unique
-- metatable that is conveniently accessible to check.
return type(t) == 'table' and t._id == uniq
end

local function is_diff(t)
return type(t) == 'table' and getmetatable(t) == diffmt
end

local function _list_join(list, sep)
return table.concat(list, sep)
end

local function collection()
-- Return a table to hold items.
return {
n = 0,
add = function (self, item)
self.n = self.n + 1
self[self.n] = item
end,
join = _list_join,
}
end

local function strip_to_nil(text)
-- If text is a string, return its trimmed content, or nil if empty.
-- Otherwise return text (convenient when Date fields are provided from
-- another module which may pass a string, a number, or another type).
if type(text) == 'string' then
text = text:match('(%S.-)%s*$')
end
return text
end

local function is_leap_year(year, calname)
-- Return true if year is a leap year.
if calname == 'Julian' then
return year % 4 == 0
end
return (year % 4 == 0 and year % 100 ~= 0) or year % 400 == 0
end

local function days_in_month(year, month, calname)
-- Return number of days (1..31) in given month (1..12).
if month == 2 and is_leap_year(year, calname) then
return 29
end
return ({ 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 })[month]
end

local function h_m_s(time)
-- Return hour, minute, second extracted from fraction of a day.
time = floor(time * 24 * 3600 + 0.5) -- number of seconds
local second = time % 60
time = floor(time / 60)
return floor(time / 60), time % 60, second
end

local function hms(date)
-- Return fraction of a day from date's time, where (0 <= fraction < 1)
-- if the values are valid, but could be anything if outside range.
return (date.hour + (date.minute + date.second / 60) / 60) / 24
end

local function julian_date(date)
-- Return jd, jdz from a Julian or Gregorian calendar date where
-- jd = Julian date and its fractional part is zero at noon
-- jdz = same, but assume time is 00:00:00 if no time given
-- http://www.tondering.dk/claus/cal/julperiod.php#formula
-- Testing shows this works for all dates from year -9999 to 9999!
-- JDN 0 is the 24-hour period starting at noon UTC on Monday
-- 1 January 4713 BC = (-4712, 1, 1) Julian calendar
-- 24 November 4714 BC = (-4713, 11, 24) Gregorian calendar
local offset
local a = floor((14 - date.month)/12)
local y = date.year + 4800 - a
if date.calendar == 'Julian' then
offset = floor(y/4) - 32083
else
offset = floor(y/4) - floor(y/100) + floor(y/400) - 32045
end
local m = date.month + 12*a - 3
local jd = date.day + floor((153*m + 2)/5) + 365*y + offset
if date.hastime then
jd = jd + hms(date) - 0.5
return jd, jd
end
return jd, jd - 0.5
end

local function set_date_from_jd(date)
-- Set the fields of table date from its Julian date field.
-- Return true if date is valid.
-- http://www.tondering.dk/claus/cal/julperiod.php#formula
-- This handles the proleptic Julian and Gregorian calendars.
-- Negative Julian dates are not defined but they work.
local calname = date.calendar
local low, high -- min/max limits for date ranges −9999-01-01 to 9999-12-31
if calname == 'Gregorian' then
low, high = -1930999.5, 5373484.49999
elseif calname == 'Julian' then
low, high = -1931076.5, 5373557.49999
else
return
end
local jd = date.jd
if not (type(jd) == 'number' and low <= jd and jd <= high) then
return
end
local jdn = floor(jd)
if date.hastime then
local time = jd - jdn -- 0 <= time < 1
if time >= 0.5 then -- if at or after midnight of next day
jdn = jdn + 1
time = time - 0.5
else
time = time + 0.5
end
date.hour, date.minute, date.second = h_m_s(time)
else
date.second = 0
date.minute = 0
date.hour = 0
end
local b, c
if calname == 'Julian' then
b = 0
c = jdn + 32082
else -- Gregorian
local a = jdn + 32044
b = floor((4*a + 3)/146097)
c = a - floor(146097*b/4)
end
local d = floor((4*c + 3)/1461)
local e = c - floor(1461*d/4)
local m = floor((5*e + 2)/153)
date.day = e - floor((153*m + 2)/5) + 1
date.month = m + 3 - 12*floor(m/10)
date.year = 100*b + d - 4800 + floor(m/10)
return true
end

local function fix_numbers(numbers, y, m, d, H, M, S, partial, hastime, calendar)
-- Put the result of normalizing the given values in table numbers.
-- The result will have valid m, d values if y is valid; caller checks y.
-- The logic of PHP mktime is followed where m or d can be zero to mean
-- the previous unit, and -1 is the one before that, etc.
-- Positive values carry forward.
local date
if not (1 <= m and m <= 12) then
date = Date(y, 1, 1)
if not date then return end
date = date + ((m - 1) .. 'm')
y, m = date.year, date.month
end
local days_hms
if not partial then
if hastime and H and M and S then
if not (0 <= H and H <= 23 and
0 <= M and M <= 59 and
0 <= S and S <= 59) then
days_hms = hms({ hour = H, minute = M, second = S })
end
end
if days_hms or not (1 <= d and d <= days_in_month(y, m, calendar)) then
date = date or Date(y, m, 1)
if not date then return end
date = date + (d - 1 + (days_hms or 0))
y, m, d = date.year, date.month, date.day
if days_hms then
H, M, S = date.hour, date.minute, date.second
end
end
end
numbers.year = y
numbers.month = m
numbers.day = d
if days_hms then
-- Don't set H unless it was valid because a valid H will set hastime.
numbers.hour = H
numbers.minute = M
numbers.second = S
end
end

local function set_date_from_numbers(date, numbers, options)
-- Set the fields of table date from numeric values.
-- Return true if date is valid.
if type(numbers) ~= 'table' then
return
end
local y = numbers.year or date.year
local m = numbers.month or date.month
local d = numbers.day or date.day
local H = numbers.hour
local M = numbers.minute or date.minute or 0
local S = numbers.second or date.second or 0
local need_fix
if y and m and d then
date.partial = nil
if not (-9999 <= y and y <= 9999 and
1 <= m and m <= 12 and
1 <= d and d <= days_in_month(y, m, date.calendar)) then
if not date.want_fix then
return
end
need_fix = true
end
elseif y and date.partial then
if d or not (-9999 <= y and y <= 9999) then
return
end
if m and not (1 <= m and m <= 12) then
if not date.want_fix then
return
end
need_fix = true
end
else
return
end
if date.partial then
H = nil -- ignore any time
M = nil
S = nil
else
if H then
-- It is not possible to set M or S without also setting H.
date.hastime = true
else
H = 0
end
if not (0 <= H and H <= 23 and
0 <= M and M <= 59 and
0 <= S and S <= 59) then
if date.want_fix then
need_fix = true
else
return
end
end
end
date.want_fix = nil
if need_fix then
fix_numbers(numbers, y, m, d, H, M, S, date.partial, date.hastime, date.calendar)
return set_date_from_numbers(date, numbers, options)
end
date.year = y -- -9999 to 9999 ('n BC' → year = 1 - n)
date.month = m -- 1 to 12 (may be nil if partial)
date.day = d -- 1 to 31 (* = nil if partial)
date.hour = H -- 0 to 59 (*)
date.minute = M -- 0 to 59 (*)
date.second = S -- 0 to 59 (*)
if type(options) == 'table' then
for _, k in ipairs({ 'am', 'era', 'format' }) do
if options[k] then
date.options[k] = options[k]
end
end
end
return true
end

local function make_option_table(options1, options2)
-- If options1 is a string, return a table with its settings, or
-- if it is a table, use its settings.
-- Missing options are set from table options2 or defaults.
-- If a default is used, a flag is set so caller knows the value was not intentionally set.
-- Valid option settings are:
-- am: 'am', 'a.m.', 'AM', 'A.M.'
-- 'pm', 'p.m.', 'PM', 'P.M.' (each has same meaning as corresponding item above)
-- era: 'BCMINUS', 'BCNEGATIVE', 'BC', 'B.C.', 'BCE', 'B.C.E.', 'AD', 'A.D.', 'CE', 'C.E.'
-- Option am = 'am' does not mean the hour is AM; it means 'am' or 'pm' is used, depending on the hour,
-- and am = 'pm' has the same meaning.
-- Similarly, era = 'BC' means 'BC' is used if year <= 0.
-- BCMINUS displays a MINUS if year < 0 and the display format does not include %{era}.
-- BCNEGATIVE is similar but displays a hyphen.
local result = { bydefault = {} }
if type(options1) == 'table' then
result.am = options1.am
result.era = options1.era
elseif type(options1) == 'string' then
-- Example: 'am:AM era:BC' or 'am=AM era=BC'.
for item in options1:gmatch('%S+') do
local lhs, rhs = item:match('^(%w+)[:=](.+)$')
if lhs then
result[lhs] = rhs
end
end
end
options2 = type(options2) == 'table' and options2 or {}
local defaults = { am = 'am', era = 'a. C.' }
for k, v in pairs(defaults) do
if not result[k] then
if options2[k] then
result[k] = options2[k]
else
result[k] = v
result.bydefault[k] = true
end
end
end
return result
end

local ampm_options = {
-- lhs = input text accepted as an am/pm option
-- rhs = code used internally
['am'] = 'am',
['AM'] = 'AM',
['a.m.'] = 'a.m.',
['A.M.'] = 'A.M.',
['pm'] = 'am', -- same as am
['PM'] = 'AM',
['p.m.'] = 'a.m.',
['P.M.'] = 'A.M.',
}

local era_text = {
-- Text for displaying an era with a positive year (after adjusting
-- by replacing year with 1 - year if date.year <= 0).
-- options.era = { year<=0 , year>0 }
['BCMINUS'] = { 'BC' , '' , isbc = true, sign = MINUS },
['BCNEGATIVE'] = { 'BC' , '' , isbc = true, sign = '-' },
['BC'] = { 'BC' , '' , isbc = true },
['B.C.'] = { 'B.C.' , '' , isbc = true },
['BCE'] = { 'BCE' , '' , isbc = true },
['B.C.E.'] = { 'B.C.E.', '' , isbc = true },
['AD'] = { 'BC' , 'AD' },
['A.D.'] = { 'B.C.' , 'A.D.' },
['CE'] = { 'BCE' , 'CE' },
['C.E.'] = { 'B.C.E.', 'C.E.' },
--ABREVIATURAS EN ESPAÑOL--
['a. C.'] = { 'a. C.' , '' , isbc = true }, --antes de Cristo
['a. de C.'] = { 'a. de C.' , '' , isbc = true }, --antes de Cristo
['a. de J. C.'] = { 'a. de J. C.' , '' , isbc = true }, --antes de Jesucristo
['a. J. C.'] = { 'a. J. C.' , '' , isbc = true }, --antes de Jesucristo
['AEC'] = { 'AEC' , '' , isbc = true }, --antes de la era común
['a. e. c.'] = { 'a. e. c.' , '' , isbc = true }, --antes de la era común
['a. n. e.'] = { 'a. n. e.' , '' , isbc = true }, --antes de nuestra era
['a. e. v.'] = { 'a. e. v.' , '' , isbc = true }, --antes de la era vulgar
['d. C.'] = { 'a. C.' , 'd. C.' }, --después de Cristo
['d. de C.'] = { 'a. de C.' , 'd. de C.' }, --después de Cristo
['d. de J. C.'] = { 'a. de J. C.' , 'd. de J. C.' }, --después de Jesucristo
['d. J. C.'] = { 'a. J. C.' , 'd. J. C.' }, --después de Jesucristo
['EC'] = { 'AEC' , 'EC' }, --era común
['e. c.'] = { 'a. e. c.' , 'e. c.' }, --era común
['n. e.'] = { 'a. n. e.' , 'n. e.' }, --nuestra era
['e. v.'] = { 'a. e. v.' , 'e. v.' }, --era vulgar
['A. D.'] = { 'a. C.' , 'A. D.' }, --anno Domini
}

local function get_era_for_year(era, year)
return (era_text[era] or era_text['a. C.'])[year > 0 and 2 or 1]:gsub(" ", " ") or ''
end

local function strftime(date, format, options)
-- Return date formatted as a string using codes similar to those
-- in the C strftime library function.
local sformat = string.format
local shortcuts = {
['%c'] = '%-I:%M %p %-d de %B de %-Y %{era}', -- date and time: 2:30 pm 1 de abril de 2016
['%C'] = '%-d de %B de %-Y, %H:%M:%S', -- date and time: 1 de abril de 2016, 14:30
['%x'] = '%-d de %B de %-Y %{era}', -- date: 1 de abril de 2016
['%X'] = '%-I:%M %p', -- time: 2:30 pm
}
if shortcuts[format] then
format = shortcuts[format]
end
local codes = {
a = { field = 'dayabbr' },
A = { field = 'dayname' },
b = { field = 'monthabbr' },
B = { field = 'monthname' },
u = { fmt = '%d' , field = 'dowiso' },
w = { fmt = '%d' , field = 'dow' },
d = { fmt = '%02d', fmt2 = '%d', field = 'day' },
m = { fmt = '%02d', fmt2 = '%d', field = 'month' },
Y = { fmt = '%04d', fmt2 = '%d', field = 'year' },
H = { fmt = '%02d', fmt2 = '%d', field = 'hour' },
M = { fmt = '%02d', fmt2 = '%d', field = 'minute' },
S = { fmt = '%02d', fmt2 = '%d', field = 'second' },
j = { fmt = '%03d', fmt2 = '%d', field = 'dayofyear' },
I = { fmt = '%02d', fmt2 = '%d', field = 'hour', special = 'hour12' },
p = { field = 'hour', special = 'am' },
}
options = make_option_table(options, date.options)
local amopt = options.am
local eraopt = options.era
local function replace_code(spaces, modifier, id)
local code = codes[id]
if code then
local fmt = code.fmt
if modifier == '-' and code.fmt2 then
fmt = code.fmt2
end
local value = date[code.field]
if not value then
return nil -- an undefined field in a partial date
end
local special = code.special
if special then
if special == 'hour12' then
value = value % 12
value = value == 0 and 12 or value
elseif special == 'am' then
local ap = ({
['a.m.'] = { 'a.m.', 'p.m.' },
['AM'] = { 'AM', 'PM' },
['A.M.'] = { 'A.M.', 'P.M.' },
})[ampm_options[amopt]] or { 'am', 'pm' }
return (spaces == '' and '' or ' ') .. (value < 12 and ap[1] or ap[2])
end
end
if code.field == 'year' then
local sign = (era_text[eraopt] or {}).sign
if not sign or format:find('%{era}', 1, true) then
sign = ''
if value <= 0 then
value = 1 - value
end
else
if value >= 0 then
sign = ''
else
value = -value
end
end
return spaces .. sign .. sformat(fmt, value)
end
return spaces .. (fmt and sformat(fmt, value) or value)
end
end
local function replace_property(spaces, id)
if id == 'era' then
-- Special case so can use local era option.
local result = get_era_for_year(eraopt, date.year)
if result == '' then
return ''
end
return (spaces == '' and '' or ' ') .. result
end
local result = date[id]
if type(result) == 'string' then
return spaces .. result
end
if type(result) == 'number' then
return spaces .. tostring(result)
end
if type(result) == 'boolean' then
return spaces .. (result and '1' or '0')
end
-- This occurs if id is an undefined field in a partial date, or is the name of a function.
return nil
end
local PERCENT = '\127PERCENT\127'
return (format
:gsub('%%%%', PERCENT)
:gsub('(%s*)%%{(%w+)}', replace_property)
:gsub('(%s*)%%(%-?)(%a)', replace_code)
:gsub(PERCENT, '%%')
)
end

local function _date_text(date, fmt, options)
-- Return a formatted string representing the given date.
if not is_date(date) then
error('date:text: need a date (use "date:text()" with a colon)', 2)
end
if type(fmt) == 'string' and fmt:match('%S') then
if fmt:find('%', 1, true) then
return strftime(date, fmt, options)
end
elseif date.partial then
fmt = date.month and 'my' or 'y'
else
fmt = 'dmy'
if date.hastime then
fmt = (date.second > 0 and 'hms ' or 'hm ') .. fmt
end
end
local function bad_format()
-- For consistency with other format processing, return given format
-- (or cleaned format if original was not a string) if invalid.
return mw.text.nowiki(fmt)
end
if date.partial then
-- Ignore days in standard formats like 'ymd'.
if fmt == 'ym' or fmt == 'ymd' then
fmt = date.month and '%Y-%m %{era}' or '%Y %{era}'
elseif fmt == 'my' or fmt == 'dmy' or fmt == 'mdy' then
fmt = date.month and '%B %-Y %{era}' or '%-Y %{era}'
elseif fmt == 'y' then
fmt = date.month and '%-Y %{era}' or '%-Y %{era}'
else
return bad_format()
end
return strftime(date, fmt, options)
end
local function hm_fmt()
local plain = make_option_table(options, date.options).bydefault.am
return plain and '%H:%M' or '%-I:%M %p'
end
local need_time = date.hastime
local t = collection()
for item in fmt:gmatch('%S+') do
local f
if item == 'hm' then
f = hm_fmt()
need_time = false
elseif item == 'hms' then
f = '%H:%M:%S'
need_time = false
elseif item == 'ymd' then
f = '%Y-%m-%d %{era}'
elseif item == 'mdy' then
f = '%B %-d, %-Y %{era}'
elseif item == 'dmy' then
f = '%-d de %B de %-Y %{era}'
else
return bad_format()
end
t:add(f)
end
fmt = t:join(' ')
if need_time then
fmt = hm_fmt() .. ' ' .. fmt
end
return strftime(date, fmt, options)
end

local day_info = {
-- 0=Sun to 6=Sat
[0] = { 'do', 'domingo' },
{ 'lu', 'lunes' },
{ 'ma', 'martes' },
{ 'mi', 'miércoles' },
{ 'ju', 'jueves' },
{ 'vi', 'viernes' },
{ 'sa', 'sábado' },
}

local month_info = {
-- 1=Jan to 12=Dec
{ 'ene', 'enero' },
{ 'feb', 'febrero' },
{ 'mar', 'marzo' },
{ 'abr', 'abril' },
{ 'may', 'mayo' },
{ 'jun', 'junio' },
{ 'jul', 'julio' },
{ 'ago', 'agosto' },
{ 'sep', 'septiembre' },
{ 'oct', 'octubre' },
{ 'nov', 'noviembre' },
{ 'dic', 'diciembre' },
}
for k,v in pairs(month_info) do month_info[ v[1] ], month_info[ v[2] ] = v, v end

local function name_to_number(text, translate)
if type(text) == 'string' then
return translate['xx' .. text:lower():gsub('é', 'e'):gsub('á', 'a')]
end
end

local function day_number(text)
return name_to_number(text, {
xxdo = 0, xxdomingo = 0,
xxlu = 1, xxlunes = 1, xxlune = 1,
xxma = 2, xxmartes = 2, xxmarte = 2,
xxmi = 3, xxmiercoles = 3, xxmiercole = 3,
xxju = 4, xxjueves = 4, xxjueve = 4,
xxvi = 5, xxviernes = 5, xxvierne = 5,
xxsat = 6, xxsabado = 6
})
end

local function month_number(text)
return name_to_number(text, {
xxene = 1, xxenero = 1,
xxfeb = 2, xxfebrero = 2,
xxmar = 3, xxmarzo = 3,
xxabr = 4, xxabril = 4,
xxmay = 5, xxmayo = 5,
xxjun = 6, xxjunio = 6,
xxjul = 7, xxjulio = 7,
xxago = 8, xxagosto = 8,
xxsep = 9, xxseptiembre = 9, xxsept = 9,
xxoct = 10, xxoctubre = 10,
xxnov = 11, xxnoviembre = 11,
xxdic = 12, xxdiciembre = 12,
})
end

local function _list_text(list, fmt)
-- Return a list of formatted strings from a list of dates.
if not type(list) == 'table' then
error('date:list:text: need "list:text()" with a colon', 2)
end
local result = { join = _list_join }
for i, date in ipairs(list) do
result[i] = date:text(fmt)
end
return result
end

local function _date_list(date, spec)
-- Return a possibly empty numbered table of dates meeting the specification.
-- Dates in the list are in ascending order (oldest date first).
-- The spec should be a string of form "<count> <day> <op>"
-- where each item is optional and
-- count = number of items wanted in list
-- day = abbreviation or name such as Mon or Monday
-- op = >, >=, <, <= (default is > meaning after date)
-- If no count is given, the list is for the specified days in date's month.
-- The default day is date's day.
-- The spec can also be a positive or negative number:
-- -5 is equivalent to '5 <'
-- 5 is equivalent to '5' which is '5 >'
if not is_date(date) then
error('date:list: need a date (use "date:list()" with a colon)', 2)
end
local list = { text = _list_text }
if date.partial then
return list
end
local count, offset, operation
local ops = {
['>='] = { before = false, include = true },
['>'] = { before = false, include = false },
['<='] = { before = true , include = true },
['<'] = { before = true , include = false },
}
if spec then
if type(spec) == 'number' then
count = floor(spec + 0.5)
if count < 0 then
count = -count
operation = ops['<']
end
elseif type(spec) == 'string' then
local num, day, op = spec:match('^%s*(%d*)%s*(%a*)%s*([<>=]*)%s*$')
if not num then
return list
end
if num ~= '' then
count = tonumber(num)
end
if day ~= '' then
local dow = day_number(day:gsub('[sS]$', '')) -- accept plural days
if not dow then
return list
end
offset = dow - date.dow
end
operation = ops[op]
else
return list
end
end
offset = offset or 0
operation = operation or ops['>']
local datefrom, dayfirst, daylast
if operation.before then
if offset > 0 or (offset == 0 and not operation.include) then
offset = offset - 7
end
if count then
if count > 1 then
offset = offset - 7*(count - 1)
end
datefrom = date + offset
else
daylast = date.day + offset
dayfirst = daylast % 7
if dayfirst == 0 then
dayfirst = 7
end
end
else
if offset < 0 or (offset == 0 and not operation.include) then
offset = offset + 7
end
if count then
datefrom = date + offset
else
dayfirst = date.day + offset
daylast = date.monthdays
end
end
if not count then
if daylast < dayfirst then
return list
end
count = floor((daylast - dayfirst)/7) + 1
datefrom = Date(date, {day = dayfirst})
end
for i = 1, count do
if not datefrom then break end -- exceeds date limits
list[i] = datefrom
datefrom = datefrom + 7
end
return list
end

-- Cache the current date/time (UTC). Avoid `current.min` or `current.sec` in articles!
-- This returns an empty object with a per-field lazy getter optimization. https://phabricator.wikimedia.org/T416616
local current = os.date('!*t')

local function extract_date(newdate, text)
-- Parse the date/time in text and return n, o where
-- n = table of numbers with date/time fields
-- o = table of options for AM/PM or AD/BC or format, if any
-- or return nothing if date is known to be invalid.
-- Caller determines if the values in n are valid.
-- A year must be positive ('1' to '9999'); use 'BC' for BC.
-- In a y-m-d string, the year must be four digits to avoid ambiguity
-- ('0001' to '9999'). The only way to enter year <= 0 is by specifying
-- the date as three numeric parameters like ymd Date(-1, 1, 1).
-- Dates of form d/m/y, m/d/y, y/m/d are [partially] rejected as potentially ambiguous.
local date, options = {}, {}
if text:sub(-1) == 'Z' then
-- Extract date/time from a Wikidata timestamp.
-- The year can be 1 to 16 digits but this module handles 1 to 4 digits only.
-- Examples: '+2016-06-21T14:30:00Z', '-0000000180-00-00T00:00:00Z'.
local sign, y, m, d, H, M, S = text:match('^([+%-])(%d+)%-(%d%d)%-(%d%d)T(%d%d):(%d%d):(%d%d)Z$')
if sign then
y = tonumber(y)
if sign == '-' and y > 0 then
y = -y
end
if y <= 0 then
options.era = 'a. C.' -- Sets the era when the year is negative on the timestamp
end
date.year = y
m = tonumber(m)
d = tonumber(d)
H = tonumber(H)
M = tonumber(M)
S = tonumber(S)
if m == 0 then
newdate.partial = true
return date, options
end
date.month = m
if d == 0 then
newdate.partial = true
return date, options
end
date.day = d
if H > 0 or M > 0 or S > 0 then
date.hour = H
date.minute = M
date.second = S
end
return date, options
end
return
end

local a, b, c = text:match('^(%d+)[-./](%d+)[-./](%d+)$')
if a --[[ and b and c --]] then
a = tonumber(a)
b = tonumber(b)
c = tonumber(c)
--[[ -- use extract_ymd for this
if a > 31 and m <= 12 and c > 12 then
date.year, date.month, date.day = a, b, c
options.format = 'ymd'
newdate.partial = true
return date, options
else--]]
if a > 12 and b <= 12 and c > 31 then
date.year, date.month, date.day = c, b, a
options.format = 'dmy'
newdate.partial = true
return date, options
elseif a <= 12 and b > 12 and c > 31 then
date.year, date.month, date.day = c, a, b
options.format = 'mdy'
newdate.partial = true
return date, options
end
end

local function extract_ymd(item)
-- Called when no day or month has been set.
local y, m, d = item:match('^(%d%d%d%d)[-./](%w+)[-./](%d%d?)$')
if y then
if date.year then
return
end
if m:match('^%d%d?$') then
m = tonumber(m)
else
m = month_number(m)
end
if m then
date.year = tonumber(y)
date.month = m
date.day = tonumber(d)
return true
end
end
end
local function extract_day_or_year(item)
-- Called when a day would be valid, or
-- when a year would be valid if no year has been set and partial is set.
local number, suffix = item:match('^(%d%d?%d?%d?)(.*)$')
if number then
local n = tonumber(number)
if #number <= 2 and n <= 31 then
suffix = suffix:lower()
if suffix == '' or suffix == 'st' or suffix == 'nd' or suffix == 'rd' or suffix == 'th' then
date.day = n
return true
end
elseif suffix == '' and newdate.partial and not date.year then
date.year = n
return true
end
end
end
local function extract_month(item)
-- A month must be given as a name or abbreviation; a number could be ambiguous.
local m = month_number(item)
if m then
date.month = m
return true
end
end
local function extract_time(item)
local h, m, s = item:match('^(%d%d?):(%d%d)(:?%d*)$')
if date.hour or not h then
return
end
if s ~= '' then
s = s:match('^:(%d%d)$')
if not s then
return
end
end
date.hour = tonumber(h)
date.minute = tonumber(m)
date.second = tonumber(s) -- nil if empty string
return true
end
local item_count = 0
local index_time
local function set_ampm(item)
local H = date.hour
if H and not options.am and index_time + 1 == item_count then
options.am = ampm_options[item] -- caller checked this is not nil
if item:match('^[Aa]') then
if not (1 <= H and H <= 12) then
return
end
if H == 12 then
date.hour = 0
end
else
if not (1 <= H and H <= 23) then
return
end
if H <= 11 then
date.hour = H + 12
end
end
return true
end
end
--Filtrar abreviaturas de era
for key,value in pairs(era_text) do
if string.find(text, key) ~= nil then
options.era = key
text = string.gsub(text, key, '')
break
end
end
for item in text:gsub(',', ' '):gsub('del?', ''):gsub(' ', ' '):gmatch('%S+') do
item_count = item_count + 1
if era_text[item] then
-- Era is accepted in peculiar places.
if options.era then
return
end
options.era = item
elseif ampm_options[item] then
if not set_ampm(item) then
return
end
elseif item:find(':', 1, true) then
if not extract_time(item) then
return
end
index_time = item_count
elseif date.day and date.month then
if date.year then
return -- should be nothing more so item is invalid
end
if not item:match('^(%d%d?%d?%d?)$') then
return
end
date.year = tonumber(item)
elseif day_number(item) then
--catch month day case
elseif date.day then
if not extract_month(item) then
return
end
elseif date.month then
if not extract_day_or_year(item) then
return
end
elseif extract_month(item) then
options.format = 'mdy'
elseif extract_ymd(item) then
options.format = 'ymd'
elseif extract_day_or_year(item) then
if date.day then
options.format = 'dmy'
end
else
--return not return if item not recognized
end
end
if not date.year or date.year == 0 then
return
end
local era = era_text[options.era]
if era and era.isbc then
date.year = 1 - date.year
end
return date, options
end

local function autofill(date1, date2)
-- Fill any missing month or day in each date using the
-- corresponding component from the other date, if present,
-- or with 1 if both dates are missing the month or day.
-- This gives a good result for calculating the difference
-- between two partial dates when no range is wanted.
-- Return filled date1, date2 (two full dates).
local function filled(a, b)
local fillmonth, fillday
if not a.month then
fillmonth = b.month or 1
end
if not a.day then
fillday = b.day or 1
end
if fillmonth or fillday then -- need to create a new date
if (fillmonth or a.month) == 2 and (fillday or a.day) == 29 then
-- Avoid invalid date, for example with {{age|2013|29 Feb 2016}} or {{age|Feb 2013|29 Jan 2015}}.
if not is_leap_year(a.year, a.calendar) then
fillday = 28
end
end
a = Date(a, { month = fillmonth, day = fillday })
end
return a
end
return filled(date1, date2), filled(date2, date1)
end

local function date_add_sub(lhs, rhs, is_sub)
-- Return a new date from calculating (lhs + rhs) or (lhs - rhs),
-- or return nothing if invalid.
-- The result is nil if the calculated date exceeds allowable limits.
-- Caller ensures that lhs is a date; its properties are copied for the new date.
if lhs.partial then
-- Adding to a partial is not supported.
-- Can subtract a date or partial from a partial, but this is not called for that.
return
end
local function is_prefix(text, word, minlen)
local n = #text
return (minlen or 1) <= n and n <= #word and text == word:sub(1, n)
end
local function do_days(n)
local forcetime, jd
if floor(n) == n then
jd = lhs.jd
else
forcetime = not lhs.hastime
jd = lhs.jdz
end
jd = jd + (is_sub and -n or n)
if forcetime then
jd = tostring(jd)
if not jd:find('.', 1, true) then
jd = jd .. '.0'
end
end
return Date(lhs, 'juliandate', jd)
end
if type(rhs) == 'number' then
-- Add/subtract days, including fractional days.
return do_days(rhs)
end
if type(rhs) == 'string' then
-- rhs is a single component like '26m' or '26 months' (with optional sign).
-- Fractions like '3.25d' are accepted for the units which are handled as days.
local sign, numstr, id = rhs:match('^%s*([+-]?)([%d%.]+)%s*(%a+)$')
if sign then
if sign == '-' then
is_sub = not (is_sub and true or false)
end
local y, m, days
local num = tonumber(numstr)
if not num then
return
end
id = id:lower()
if is_prefix(id, 'years') then
y = num
m = 0
elseif is_prefix(id, 'months') then
y = floor(num / 12)
m = num % 12
elseif is_prefix(id, 'weeks') then
days = num * 7
elseif is_prefix(id, 'days') then
days = num
elseif is_prefix(id, 'hours') then
days = num / 24
elseif is_prefix(id, 'minutes', 3) then
days = num / (24 * 60)
elseif is_prefix(id, 'seconds') then
days = num / (24 * 3600)
else
return
end
if days then
return do_days(days)
end
if numstr:find('.', 1, true) then
return
end
if is_sub then
y = -y
m = -m
end
assert(-11 <= m and m <= 11)
y = lhs.year + y
m = lhs.month + m
if m > 12 then
y = y + 1
m = m - 12
elseif m < 1 then
y = y - 1
m = m + 12
end
local d = math.min(lhs.day, days_in_month(y, m, lhs.calendar))
return Date(lhs, y, m, d)
end
end
if is_diff(rhs) then
local days = rhs.age_days
if (is_sub or false) ~= (rhs.isnegative or false) then
days = -days
end
return lhs + days
end
end

local full_date_only = {
dayabbr = true,
dayname = true,
dow = true,
dayofweek = true,
dowiso = true,
dayofweekiso = true,
dayofyear = true,
gsd = true,
juliandate = true,
jd = true,
jdz = true,
jdnoon = true,
}

-- Metatable for a date's calculated fields.
local datemt = {
__index = function (self, key)
if rawget(self, 'partial') then
if full_date_only[key] then return end
if key == 'monthabbr' or key == 'monthdays' or key == 'monthname' then
if not self.month then return end
end
end
local value
if key == 'dayabbr' then
value = day_info[self.dow][1]
elseif key == 'dayname' then
value = day_info[self.dow][2]
elseif key == 'dow' then
value = (self.jdnoon + 1) % 7 -- day-of-week 0=Sun to 6=Sat
elseif key == 'dayofweek' then
value = self.dow
elseif key == 'dowiso' then
value = (self.jdnoon % 7) + 1 -- ISO day-of-week 1=Mon to 7=Sun
elseif key == 'dayofweekiso' then
value = self.dowiso
elseif key == 'dayofyear' then
local first = Date(self.year, 1, 1, self.calendar).jdnoon
value = self.jdnoon - first + 1 -- day-of-year 1 to 366
elseif key == 'era' then
-- Era text (never a negative sign) from year and options.
value = get_era_for_year(self.options.era, self.year)
elseif key == 'format' then
value = self.options.format or 'dmy'
elseif key == 'gsd' then
-- GSD = 1 from 00:00:00 to 23:59:59 on 1 January 1 AD Gregorian calendar,
-- which is from jd 1721425.5 to 1721426.49999.
value = floor(self.jd - 1721424.5)
elseif key == 'juliandate' or key == 'jd' or key == 'jdz' then
local jd, jdz = julian_date(self)
rawset(self, 'juliandate', jd)
rawset(self, 'jd', jd)
rawset(self, 'jdz', jdz)
return key == 'jdz' and jdz or jd
elseif key == 'jdnoon' then
-- Julian date at noon (an integer) on the calendar day when jd occurs.
value = floor(self.jd + 0.5)
elseif key == 'isleapyear' then
value = is_leap_year(self.year, self.calendar)
elseif key == 'monthabbr' then
value = month_info[self.month][1]
elseif key == 'monthdays' then
value = days_in_month(self.year, self.month, self.calendar)
elseif key == 'monthname' then
value = month_info[self.month][2]
end
if value ~= nil then
rawset(self, key, value)
return value
end
end,
}

-- Date operators.
local function mt_date_add(lhs, rhs)
if not is_date(lhs) then
lhs, rhs = rhs, lhs -- put date on left (it must be a date for this to have been called)
end
return date_add_sub(lhs, rhs)
end

local function mt_date_sub(lhs, rhs)
if is_date(lhs) then
if is_date(rhs) then
return DateDiff(lhs, rhs)
end
return date_add_sub(lhs, rhs, true)
end
end

local function mt_date_concat(lhs, rhs)
return tostring(lhs) .. tostring(rhs)
end

local function mt_date_tostring(self)
return self:text()
end

local function mt_date_eq(lhs, rhs)
-- Return true if dates identify same date/time where, for example,
-- Date(-4712, 1, 1, 'Julian') == Date(-4713, 11, 24, 'Gregorian') is true.
-- This is called only if lhs and rhs have the same type and the same metamethod.
if lhs.partial or rhs.partial then
-- One date is partial; the other is a partial or a full date.
-- The months may both be nil, but must be the same.
return lhs.year == rhs.year and lhs.month == rhs.month and lhs.calendar == rhs.calendar
end
return lhs.jdz == rhs.jdz
end

local function mt_date_lt(lhs, rhs)
-- Return true if lhs < rhs, for example,
-- Date('1 Jan 2016') < Date('06:00 1 Jan 2016') is true.
-- This is called only if lhs and rhs have the same type and the same metamethod.
if lhs.partial or rhs.partial then
-- One date is partial; the other is a partial or a full date.
if lhs.calendar ~= rhs.calendar then
return lhs.calendar == 'Julian'
end
if lhs.partial then
lhs = lhs.partial.first
end
if rhs.partial then
rhs = rhs.partial.first
end
end
return lhs.jdz < rhs.jdz
end

--[[ Examples of syntax to construct a date:
Date(y, m, d, 'julian') default calendar is 'gregorian'
Date(y, m, d, H, M, S, 'julian')
Date('juliandate', jd, 'julian') if jd contains "." text output includes H:M:S
Date('currentdate')
Date('currentdatetime')
Date('1 April 1995', 'julian') parse date from text
Date('1 April 1995 AD', 'julian') using an era sets a flag to do the same for output
Date('04:30:59 1 April 1995', 'julian')
Date(date) copy of an existing date
Date(date, t) same, updated with y,m,d,H,M,S fields from table t
Date(t) date with y,m,d,H,M,S fields from table t
]]
function Date(...) -- for forward declaration above
-- Return a table holding a date assuming a uniform calendar always applies
-- (proleptic Gregorian calendar or proleptic Julian calendar), or
-- return nothing if date is invalid.
-- A partial date has a valid year, however its month may be nil, and
-- its day and time fields are nil.
-- Field partial is set to false (if a full date) or a table (if a partial date).
local calendars = { julian = 'Julian', gregorian = 'Gregorian' }
local newdate = {
_id = uniq,
calendar = 'Gregorian', -- default is Gregorian calendar
hastime = false, -- true if input sets a time
hour = 0, -- always set hour/minute/second so don't have to handle nil
minute = 0,
second = 0,
options = {},
list = _date_list,
subtract = function (self, rhs, options)
return DateDiff(self, rhs, options)
end,
text = _date_text,
}
local argtype, datetext, is_copy, jd_number, tnums
local numindex = 0
local numfields = { 'year', 'month', 'day', 'hour', 'minute', 'second' }
local numbers = {}
for _, v in ipairs({...}) do
v = strip_to_nil(v)
local vlower = type(v) == 'string' and v:lower() or nil
if v == nil then
-- Ignore empty arguments after stripping so modules can directly pass template parameters.
elseif calendars[vlower] then
newdate.calendar = calendars[vlower]
elseif vlower == 'partial' then
newdate.partial = true
elseif vlower == 'fix' then
newdate.want_fix = true
elseif is_date(v) then
-- Copy existing date (items can be overridden by other arguments).
if is_copy or tnums then
return
end
is_copy = true
newdate.calendar = v.calendar
newdate.partial = v.partial
newdate.hastime = v.hastime
newdate.options = v.options
newdate.year = v.year
newdate.month = v.month
newdate.day = v.day
newdate.hour = v.hour
newdate.minute = v.minute
newdate.second = v.second
elseif type(v) == 'table' then
if tnums then
return
end
tnums = {}
local tfields = { year=1, month=1, day=1, hour=2, minute=2, second=2 }
for tk, tv in pairs(v) do
if tfields[tk] then
tnums[tk] = tonumber(tv)
end
if tfields[tk] == 2 then
newdate.hastime = true
end
end
else
local num = tonumber(v)
if not num and argtype == 'setdate' and numindex == 1 then
num = month_number(v)
end
if num then
if not argtype then
argtype = 'setdate'
end
if argtype == 'setdate' and numindex < 6 then
numindex = numindex + 1
numbers[numfields[numindex]] = num
elseif argtype == 'juliandate' and not jd_number then
jd_number = num
if type(v) == 'string' then
if v:find('.', 1, true) then
newdate.hastime = true
end
elseif num ~= floor(num) then
-- The given value was a number. The time will be used
-- if the fractional part is nonzero.
newdate.hastime = true
end
else
return
end
elseif argtype then
return
elseif type(v) == 'string' then
if v == 'currentdate' or v == 'currentdatetime' or v == 'juliandate' then
argtype = v
else
argtype = 'datetext'
datetext = v
end
else
return
end
end
end
if argtype == 'datetext' then
if tnums or not set_date_from_numbers(newdate, extract_date(newdate, datetext)) then
return
end
elseif argtype == 'juliandate' then
newdate.partial = nil
newdate.jd = jd_number
if not set_date_from_jd(newdate) then
return
end
elseif argtype == 'currentdate' or argtype == 'currentdatetime' then
newdate.partial = nil
newdate.year = current.year
newdate.month = current.month
newdate.day = current.day
if argtype == 'currentdatetime' then
newdate.hour = current.hour
newdate.minute = current.min
newdate.second = current.sec
newdate.hastime = true
end
newdate.calendar = 'Gregorian' -- ignore any given calendar name
elseif argtype == 'setdate' then
if tnums or not set_date_from_numbers(newdate, numbers) then
return
end
elseif not (is_copy or tnums) then
return
end
if tnums then
newdate.jd = nil -- force recalculation in case jd was set before changes from tnums
if not set_date_from_numbers(newdate, tnums) then
return
end
end
if newdate.partial then
local year = newdate.year
local month = newdate.month
local first = Date(year, month or 1, 1, newdate.calendar)
month = month or 12
local last = Date(year, month, days_in_month(year, month), newdate.calendar)
newdate.partial = { first = first, last = last }
else
newdate.partial = false -- avoid index lookup
end
setmetatable(newdate, datemt)
local readonly = {}
local mt = {
__index = newdate,
__newindex = function(t, k, v) error('date.' .. tostring(k) .. ' is read-only', 2) end,
__add = mt_date_add,
__sub = mt_date_sub,
__concat = mt_date_concat,
__tostring = mt_date_tostring,
__eq = mt_date_eq,
__lt = mt_date_lt,
}
return setmetatable(readonly, mt)
end

local function _diff_age(diff, code, options)
-- Return a tuple of integer values from diff as specified by code, except that
-- each integer may be a list of two integers for a diff with a partial date, or
-- return nil if the code is not supported.
-- If want round, the least significant unit is rounded to nearest whole unit.
-- For a duration, an extra day is added.
local wantround, wantduration, wantrange
if type(options) == 'table' then
wantround = options.round
wantduration = options.duration
wantrange = options.range
else
wantround = options
end
if not is_diff(diff) then
local f = wantduration and 'duration' or 'age'
error(f .. ': need a date difference (use "diff:' .. f .. '()" with a colon)', 2)
end
if diff.partial then
-- Ignore wantround, wantduration.
local function choose(v)
if type(v) == 'table' then
if not wantrange or v[1] == v[2] then
-- Example: Date('partial', 2005) - Date('partial', 2001) gives
-- diff.years = { 3, 4 } to show the range of possible results.
-- If do not want a range, choose the second value as more expected.
return v[2]
end
end
return v
end
if code == 'ym' or code == 'ymd' then
if not wantrange and diff.iszero then
-- This avoids an unexpected result such as
-- Date('partial', 2001) - Date('partial', 2001)
-- giving diff = { years = 0, months = { 0, 11 } }
-- which would be reported as 0 years and 11 months.
return 0, 0
end
return choose(diff.partial.years), choose(diff.partial.months)
end
if code == 'y' then
return choose(diff.partial.years)
end
if code == 'm' or code == 'w' or code == 'd' then
return choose({ diff.partial.mindiff:age(code), diff.partial.maxdiff:age(code) })
end
return nil
end
local extra_days = wantduration and 1 or 0
if code == 'wd' or code == 'w' or code == 'd' then
local offset = wantround and 0.5 or 0
local days = diff.age_days + extra_days
if code == 'wd' or code == 'd' then
days = floor(days + offset)
if code == 'd' then
return days
end
return floor(days/7), days % 7
end
return floor(days/7 + offset)
end
local H, M, S = diff.hours, diff.minutes, diff.seconds
if code == 'dh' or code == 'dhm' or code == 'dhms' or code == 'h' or code == 'hm' or code == 'hms' then
local days = floor(diff.age_days + extra_days)
local inc_hour
if wantround then
if code == 'dh' or code == 'h' then
if M >= 30 then
inc_hour = true
end
elseif code == 'dhm' or code == 'hm' then
if S >= 30 then
M = M + 1
if M >= 60 then
M = 0
inc_hour = true
end
end
else
-- Nothing needed because S is an integer.
end
if inc_hour then
H = H + 1
if H >= 24 then
H = 0
days = days + 1
end
end
end
if code == 'dh' or code == 'dhm' or code == 'dhms' then
if code == 'dh' then
return days, H
elseif code == 'dhm' then
return days, H, M
else
return days, H, M, S
end
end
local hours = days * 24 + H
if code == 'h' then
return hours
elseif code == 'hm' then
return hours, M
end
return hours, M, S
end
if wantround then
local inc_hour
if code == 'ymdh' or code == 'ymwdh' then
if M >= 30 then
inc_hour = true
end
elseif code == 'ymdhm' or code == 'ymwdhm' then
if S >= 30 then
M = M + 1
if M >= 60 then
M = 0
inc_hour = true
end
end
elseif code == 'ymd' or code == 'ymwd' or code == 'yd' or code == 'md' then
if H >= 12 then
extra_days = extra_days + 1
end
end
if inc_hour then
H = H + 1
if H >= 24 then
H = 0
extra_days = extra_days + 1
end
end
end
local y, m, d = diff.years, diff.months, diff.days
if extra_days > 0 then
d = d + extra_days
if d > 28 or code == 'yd' then
-- Recalculate in case have passed a month.
diff = diff.date1 + extra_days - diff.date2
y, m, d = diff.years, diff.months, diff.days
end
end
if code == 'ymd' then
return y, m, d
elseif code == 'yd' then
if y > 0 then
-- It is known that diff.date1 > diff.date2.
diff = diff.date1 - (diff.date2 + (y .. 'y'))
end
return y, floor(diff.age_days)
elseif code == 'md' then
return y * 12 + m, d
elseif code == 'ym' or code == 'm' then
if wantround then
if d >= 16 then
m = m + 1
if m >= 12 then
m = 0
y = y + 1
end
end
end
if code == 'ym' then
return y, m
end
return y * 12 + m
elseif code == 'ymw' then
local weeks = floor(d/7)
if wantround then
local days = d % 7
if days > 3 or (days == 3 and H >= 12) then
weeks = weeks + 1
end
end
return y, m, weeks
elseif code == 'ymwd' then
return y, m, floor(d/7), d % 7
elseif code == 'ymdh' then
return y, m, d, H
elseif code == 'ymwdh' then
return y, m, floor(d/7), d % 7, H
elseif code == 'ymdhm' then
return y, m, d, H, M
elseif code == 'ymwdhm' then
return y, m, floor(d/7), d % 7, H, M
end
if code == 'y' then
if wantround and m >= 6 then
y = y + 1
end
return y
end
return nil
end

local function _diff_duration(diff, code, options)
if type(options) ~= 'table' then
options = { round = options }
end
options.duration = true
return _diff_age(diff, code, options)
end

-- Metatable for some operations on date differences.
diffmt = { -- for forward declaration above
__concat = function (lhs, rhs)
return tostring(lhs) .. tostring(rhs)
end,
__tostring = function (self)
return tostring(self.age_days)
end,
__index = function (self, key)
local value
if key == 'age_days' then
if rawget(self, 'partial') then
local function jdz(date)
return (date.partial and date.partial.first or date).jdz
end
value = jdz(self.date1) - jdz(self.date2)
else
value = self.date1.jdz - self.date2.jdz
end
end
if value ~= nil then
rawset(self, key, value)
return value
end
end,
}

function DateDiff(date1, date2, options) -- for forward declaration above
-- Return a table with the difference between two dates (date1 - date2).
-- The difference is negative if date1 is older than date2.
-- Return nothing if invalid.
-- If d = date1 - date2 then
-- date1 = date2 + d
-- If date1 >= date2 and the dates have no H:M:S time specified then
-- date1 = date2 + (d.years..'y') + (d.months..'m') + d.days
-- where the larger time units are added first.
-- The result of Date(2015,1,x) + '1m' is Date(2015,2,28) for
-- x = 28, 29, 30, 31. That means, for example,
-- d = Date(2015,3,3) - Date(2015,1,31)
-- gives d.years, d.months, d.days = 0, 1, 3 (excluding date1).
if not (is_date(date1) and is_date(date2) and date1.calendar == date2.calendar) then
return
end
local wantfill
if type(options) == 'table' then
wantfill = options.fill
end
local isnegative = false
local iszero = false
if date1 < date2 then
isnegative = true
date1, date2 = date2, date1
elseif date1 == date2 then
iszero = true
end
-- It is known that date1 >= date2 (period is from date2 to date1).
if date1.partial or date2.partial then
-- Two partial dates might have timelines:
---------------------A=================B--- date1 is from A to B inclusive
--------C=======D-------------------------- date2 is from C to D inclusive
-- date1 > date2 iff A > C (date1.partial.first > date2.partial.first)
-- The periods can overlap ('April 2001' - '2001'):
-------------A===B------------------------- A=2001-04-01 B=2001-04-30
--------C=====================D------------ C=2001-01-01 D=2001-12-31
if wantfill then
date1, date2 = autofill(date1, date2)
else
local function zdiff(date1, date2)
local diff = date1 - date2
if diff.isnegative then
return date1 - date1 -- a valid diff in case we call its methods
end
return diff
end
local function getdate(date, which)
return date.partial and date.partial[which] or date
end
local maxdiff = zdiff(getdate(date1, 'last'), getdate(date2, 'first'))
local mindiff = zdiff(getdate(date1, 'first'), getdate(date2, 'last'))
local years, months
if maxdiff.years == mindiff.years then
years = maxdiff.years
if maxdiff.months == mindiff.months then
months = maxdiff.months
else
months = { mindiff.months, maxdiff.months }
end
else
years = { mindiff.years, maxdiff.years }
end
return setmetatable({
date1 = date1,
date2 = date2,
partial = {
years = years,
months = months,
maxdiff = maxdiff,
mindiff = mindiff,
},
isnegative = isnegative,
iszero = iszero,
age = _diff_age,
duration = _diff_duration,
}, diffmt)
end
end
local y1, m1 = date1.year, date1.month
local y2, m2 = date2.year, date2.month
local years = y1 - y2
local months = m1 - m2
local d1 = date1.day + hms(date1)
local d2 = date2.day + hms(date2)
local days, time
if d1 >= d2 then
days = d1 - d2
else
months = months - 1
-- Get days in previous month (before the "to" date) given December has 31 days.
local dpm = m1 > 1 and days_in_month(y1, m1 - 1, date1.calendar) or 31
if d2 >= dpm then
days = d1 - hms(date2)
else
days = dpm - d2 + d1
end
end
if months < 0 then
years = years - 1
months = months + 12
end
days, time = math.modf(days)
local H, M, S = h_m_s(time)
return setmetatable({
date1 = date1,
date2 = date2,
partial = false, -- avoid index lookup
years = years,
months = months,
days = days,
hours = H,
minutes = M,
seconds = S,
isnegative = isnegative,
iszero = iszero,
age = _diff_age,
duration = _diff_duration,
}, diffmt)
end

local z = {
_current = current,
_Date = Date,
_days_in_month = days_in_month,
}

-- Aqui comienzas las funciones adaptadas de [[Módulo:Fecha]] --
----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------

function z.fechaActual()
local d = os.date('!*t')

local fecha = {}
fecha.anyo = d.year
fecha.mes = d.month
fecha.dia = d.day
fecha.hora = d.hour
fecha.minuto = d.min
fecha.segundo = d.sec

return fecha
end

function validar(fecha)
fecha.anyo = tonumber(fecha.anyo)
fecha.mes = tonumber(fecha.mes)
fecha.dia = tonumber(fecha.dia)
fecha.hora = tonumber(fecha.hora)
fecha.minuto = tonumber(fecha.minuto)
fecha.segundo = tonumber(fecha.segundo)

-- Falta validar que es una fecha válida
end

function z.edad(fecha1, fecha2)
--Función que devuelve la edad en años entre dos fechas

--Se supone que las fechas se han validado previamente.

if not fecha1 then
return -- falta devolver un error
end

if not fecha2 then
fecha2=z.fechaActual()
end

local anyos = fecha2.anyo - fecha1.anyo

--if true then return require('Módulo:Tablas').tostring(fecha2) end

if fecha2.mes < fecha1.mes or
(fecha2.mes == fecha1.mes and fecha2.dia < fecha1.dia) then
anyos = anyos - 1
end

if anyos < 0 then
return -- falta devolver error
elseif anyos == 0 then
return 'menos de un año'
elseif anyos == 1 then
return 'un año'
else
return anyos .. ' años'
end
end

function z.llamadaDesdeUnaPlantilla(frame)
function obtenerFecha(dia, mes, anyo)
local resultado={}

if dia then
resultado.dia = dia
resultado.mes = mes
resultado.anyo = anyo

validar(resultado)

return resultado
end
end

local args = frame.args

local funcion = z[args[1]]
local fecha1 = obtenerFecha(args[2], args[3], args[4])
local fecha2 = obtenerFecha(args[5], args[6], args[7])

return funcion(fecha1, fecha2)
end

-- Aqui comienzas las funciones adaptadas de [[Módulo:Fechas]] --
-----------------------------------------------------------------
-----------------------------------------------------------------
-----------------------------------------------------------------

function z.NombreDelMes(mes)
-- Función que devuelve el nombre del mes, donde mes es un número entre 1 y 12.
-- Si no es así se devuelve el valor de mes.
-- Por ejemplo, 2 --> febrero
-- 02 --> febrero
-- abril --> abril
-- MAYO --> MAYO
return month_info[tonumber(mes)][2] or mes
end

function z.Fecha(frame)
-- Función que formatea una fecha
-- El único parámetro obligatorio es el año o 3.
-- Obtener los argumentos con los que se llama a la función

local argumentos = {}
local parent = {}
if frame == mw.getCurrentFrame() then
if frame.args[3] or frame.args["año"] then
argumentos = frame.args
else
parent = frame:getParent()
argumentos = parent.args
end
else
argumentos = frame
end

local enlace = argumentos["enlace"] ~= "no"

-- Obtener el día, el nombre del mes y el año incluyendo para los años negativos a.d.
local dia = argumentos["día"] or argumentos[1] or ''
local mes = argumentos["mes"] or argumentos[2] or ''
local anyo=tonumber(argumentos["año"] or argumentos[3]) or 0

dia = (dia ~='') and (tonumber(dia) or dia) or dia -- Eliminar ceros a la izquierda del día.
mes = (mes~='') and ((month_info[mes] and month_info[mes][2]) or month_info[tonumber(mes)][2] or mes) or mes -- Extraer nombre del mes
anyo = (anyo<0) and (-anyo .. ' a. C.') or anyo

local calendario = (argumentos["calendario"] == 'juliano') and ('[[Calendario juliano|jul.]]') or ''

-- Formatear la fecha dependiendo de si el día, el mes o el año están informados
local out = ''

if anyo ~= 0 then
out = enlace and (out .. '[[' .. anyo .. ']]') or tostring(anyo)
if mes~='' then
if argumentos["mayúscula"] == 'sí' then
mes = mw.language.new('es'):ucfirst(mes)
end
out = enlace and (mes .. ']] de ' .. out) or (mes .. ' de ' .. out)
if dia ~='' then
out = enlace and ('[[' .. dia .. ' de ' .. out .. calendario) or (dia .. ' de ' .. out .. calendario)
else
out = enlace and ('[[' .. out) or out
end
end
end
return out
end

function z.Numerica(frame)
local d = Date(frame.args[1])
local err = 'Cadena de fecha no válida'
return (d == nil) and err or d:text('%Y%m%d')
end

return z

Módulo:Citas

2026-06-14T04:12:55Z

Nodo Central: 1 revisión importada

local z = {
error_categories = {};
error_ids = {};
message_tail = {};
}
-- Include translation message hooks, ID and error handling configuration settings.
--local cfg = mw.loadData( 'Mdódulo:Citas/Configuración/pruebas' );

-- Contains a list of all recognized parameters
--local whitelist = mw.loadData( 'Módulo:Citas/Whitelist/pruebas' );
--local dates = require('Módulo:Citas/ValidaciónFechas/pruebas').dates -- location of date validation code

--Módulo para formatear las fechas
local DateModule = require('Módulo:Date')._Date

-- Whether variable is set or not
function is_set( var )
return not (var == nil or var == '');
end

-- First set variable or nil if none
function first_set(...)
local list = {...};
for _, var in pairs(list) do
if is_set( var ) then
return var;
end
end
end

-- Whether needle is in haystack
function inArray( needle, haystack )
if needle == nil then
return false;
end
for n,v in ipairs( haystack ) do
if v == needle then
return n;
end
end
return false;
end

--[[
Formatea una fecha para que se devuelva de la siguiente forma: "1 de enero de 2020"
Formats a date so it is returned as follows: "1 de enero de 2020"
]]

function format_date(date_string)
function dateFormatter(text)
return DateModule(text):text('%-d de %B de %-Y')
end

local stat, res = pcall(dateFormatter, date_string)

if stat then
return res
else
return date_string
end
end

--[[
Categorize and emit an error message when the citation contains one or more deprecated parameters. Because deprecated parameters (currently |day=, |month=,
|coauthor=, and |coauthors=) aren't related to each other and because these parameters may be concatenated into the variables used by |date= and |author#= (and aliases)
details of which parameter caused the error message are not provided. Only one error message is emitted regarless of the number of deprecated parameters in the citation.
]]
function deprecated_parameter( name )
-- table.insert( z.message_tail, { seterror( 'deprecated_params', {error_message}, true ) } ); -- add error message
table.insert( z.message_tail, { seterror( 'deprecated_params', { name }, true ) } ); -- add error message
end

-- Populates numbered arguments in a message string using an argument table.
function substitute( msg, args )
-- return args and tostring( mw.message.newRawMessage( msg, args ) ) or msg;
return args and mw.message.newRawMessage( msg, args ):plain() or msg;
end

--[[
Apply kerning to open the space between the quote mark provided by the Module and a leading or trailing quote mark contained in a |title= or |chapter= parameter's value.
This function will positive kern either single or double quotes:
"'Unkerned title with leading and trailing single quote marks'"
" 'Kerned title with leading and trailing single quote marks' " (in real life the kerning isn't as wide as this example)
]]
function kern_quotes (str)
local left='%1'; -- spacing to use when title contains leading single or double quote mark
local right='%1'; -- spacing to use when title contains trailing single or double quote mark

if str:match ("^[\"\'][^\']") then
str = string.gsub( str, "^[\"\']", left, 1 ); -- replace (captured) leading single or double quote with left-side 
end
if str:match ("[^\'][\"\']$") then
str = string.gsub( str, "[\"\']$", right, 1 ); -- replace (captured) trailing single or double quote with right-side 
end
return str;
end

-- Wraps a string using a message_list configuration taking one argument
function wrap( key, str, lower )
if not is_set( str ) then
return "";
elseif inArray( key, { 'italic-title', 'trans-italic-title' } ) then
str = safeforitalics( str );
end
if lower == true then
return substitute( cfg.messages[key]:lower(), {str} );
else
return substitute( cfg.messages[key], {str} );
end
end

--[[
Argument wrapper. This function provides support for argument
mapping defined in the configuration file so that multiple names
can be transparently aliased to single internal variable.
]]
function argument_wrapper( args )
local origin = {};

return setmetatable({
ORIGIN = function( self, k )
local dummy = self[k]; --force the variable to be loaded.
return origin[k];
end
},
{
__index = function ( tbl, k )
if origin[k] ~= nil then
return nil;
end

local args, list, v = args, cfg.aliases[k];

if type( list ) == 'table' then
v, origin[k] = selectone( args, list, 'redundant_parameters' );
if origin[k] == nil then
origin[k] = ''; -- Empty string, not nil
end
elseif list ~= nil then
v, origin[k] = args[list], list;
else
-- maybe let through instead of raising an error?
-- v, origin[k] = args[k], k;
error( cfg.messages['unknown_argument_map'] );
end

-- Empty strings, not nil;
if v == nil then
v = cfg.defaults[k] or '';
origin[k] = '';
end

tbl = rawset( tbl, k, v );
return v;
end,
});
end

--[[
Looks for a parameter's name in the whitelist.

Parameters in the whitelist can have three values:
true - active, supported parameters
false - deprecated, supported parameters
nil - unsupported parameters
]]
function validate( name )
local name = tostring( name );
local state = whitelist.basic_arguments[ name ];

-- Normal arguments
if true == state then return true; end -- valid actively supported parameter
if false == state then
deprecated_parameter ( name ); -- parameter is deprecated but still supported
return true;
end

-- Arguments with numbers in them
name = name:gsub( "%d+", "#" ); -- replace digit(s) with # (last25 becomes last#
state = whitelist.numbered_arguments[ name ];
if true == state then return true; end -- valid actively supported parameter
if false == state then
deprecated_parameter ( name ); -- parameter is deprecated but still supported
return true;
end

return false; -- Not supported because not found or name is set to nil
end

-- Formats a comment for error trapping
function errorcomment( content, hidden )
return wrap( hidden and 'hidden-error' or 'visible-error', content );
end

--[[
Sets an error condition and returns the appropriate error message. The actual placement
of the error message in the output is the responsibility of the calling function.
]]
function seterror( error_id, arguments, raw, prefix, suffix )
local error_state = cfg.error_conditions[ error_id ];

prefix = prefix or "";
suffix = suffix or "";

if error_state == nil then
error( cfg.messages['undefined_error'] );
elseif is_set( error_state.category ) then
table.insert( z.error_categories, error_state.category );
end

local message = substitute( error_state.message, arguments );

message = message .. " ([[" .. cfg.messages['help page link'] ..
"#" .. error_state.anchor .. "|" ..
cfg.messages['help page label'] .. "]])";

z.error_ids[ error_id ] = true;
if inArray( error_id, { 'bare_url_missing_title', 'trans_missing_title' } )
and z.error_ids['citation_missing_title'] then
return '', false;
end

message = table.concat({ prefix, message, suffix });

if raw == true then
return message, error_state.hidden;
end

return errorcomment( message, error_state.hidden );
end

-- Formats a wiki style external link
function externallinkid(options)
local url_string = options.id;
if options.encode == true or options.encode == nil then
url_string = mw.uri.encode( url_string );
end
return wrap( 'id', internallink(options.link, options.label) ..
(options.separator or " ") .. mw.ustring.format( '[%s%s%s %s]',
options.prefix, url_string, options.suffix or "",
mw.text.nowiki(options.id)
));
end

-- Formats a wiki style internal link
function internallinkid(options)
return wrap( 'id', internallink(options.link, options.label) ..
(options.separator or " ") .. mw.ustring.format( '[[%s%s%s|%s]]',
options.prefix, options.id, options.suffix or "",
mw.text.nowiki(options.id)
));
end

-- Format an internal link, if link is really set
function internallink( link, label )
if link and link ~= '' then
return mw.ustring.format( '[[%s|%s]]', link, label )
else
return label
end
end

-- Format an external link with error checking
function externallink( URL, label, source )
local error_str = "";
if not is_set( label ) then
label = URL;
if is_set( source ) then
error_str = seterror( 'bare_url_missing_title', { wrap( 'parameter', source ) }, false, " " );
else
error( cfg.messages["bare_url_no_origin"] );
end
end
if not checkurl( URL ) then
error_str = seterror( 'bad_url', {}, false, " " ) .. error_str;
elseif mw.title.getCurrentTitle():inNamespaces(0, 100, 104) and
not mw.title.getCurrentTitle().text:match('Wikipedia') and
URL:match('//[%a%.%-]+%.wikipedia%.org') then
error_str = seterror( 'bad_url_autorreferencia', {}, false, " " ) .. error_str;
end
return table.concat({ "[", URL, " ", safeforurl( label ), "]", error_str });
end
--[[--------------------------< N O R M A L I Z E _ L C C N >--------------------------------------------------

lccn normalization (http://www.loc.gov/marc/lccn-namespace.html#normalization)
1. Remove all blanks.
2. If there is a forward slash (/) in the string, remove it, and remove all characters to the right of the forward slash.
3. If there is a hyphen in the string:
a. Remove it.
b. Inspect the substring following (to the right of) the (removed) hyphen. Then (and assuming that steps 1 and 2 have been carried out):
1. All these characters should be digits, and there should be six or less. (not done in this function)
2. If the length of the substring is less than 6, left-fill the substring with zeroes until the length is six.

Returns a normalized lccn for lccn() to validate. There is no error checking (step 3.b.1) performed in this function.
]]

local function normalize_lccn (lccn)
lccn = lccn:gsub ("%s", ""); -- 1. strip whitespace

if nil ~= string.find (lccn,'/') then
lccn = lccn:match ("(.-)/"); -- 2. remove forward slash and all character to the right of it
end

local prefix
local suffix
prefix, suffix = lccn:match ("(.+)%-(.+)"); -- 3.a remove hyphen by splitting the string into prefix and suffix

if nil ~= suffix then -- if there was a hyphen
suffix=string.rep("0", 6-string.len (suffix)) .. suffix; -- 3.b.2 left fill the suffix with 0s if suffix length less than 6
lccn=prefix..suffix; -- reassemble the lccn
end

return lccn;
end
--[[
Format LCCN link and do simple error checking. LCCN is a character string 8-12 characters long. The length of the LCCN dictates the character type of the first 1-3 characters; the
rightmost eight are always digits. http://info-uri.info/registry/OAIHandler?verb=GetRecord&metadataPrefix=reg&identifier=info:lccn/

length = 8 then all digits
length = 9 then lccn[1] is alpha
length = 10 then lccn[1] and lccn[2] are both alpha or both digits
length = 11 then lccn[1] is alpha, lccn[2] and lccn[3] are both alpha or both digits
length = 12 then lccn[1] and lccn[2] are both alpha

]]
function lccn(id)
local handler = cfg.id_handlers['LCCN'];
local err_cat = ''; -- presume that LCCN is valid

id = normalize_lccn (id);

local len = id:len(); -- get the length of the lccn

if 8 == len then
if id:match("[^%d]") then -- if LCCN has anything but digits (nil if only digits)
err_cat = ' ' .. seterror( 'bad_lccn' ); -- set an error message
end
elseif 9 == len then -- LCCN should be adddddddd
if nil == id:match("%a%d%d%d%d%d%d%d%d") then -- does it match our pattern?
err_cat = ' ' .. seterror( 'bad_lccn' ); -- set an error message
end
elseif 10 == len then -- LCCN should be aadddddddd or dddddddddd
if id:match("[^%d]") then -- if LCCN has anything but digits (nil if only digits) ...
if nil == id:match("^%a%a%d%d%d%d%d%d%d%d") then -- ... see if it matches our pattern
err_cat = ' ' .. seterror( 'bad_lccn' ); -- no match, set an error message
end
end
elseif 11 == len then -- LCCN should be aaadddddddd or adddddddddd
if not (id:match("^%a%a%a%d%d%d%d%d%d%d%d") or id:match("^%a%d%d%d%d%d%d%d%d%d%d")) then -- see if it matches one of our patterns
err_cat = ' ' .. seterror( 'bad_lccn' ); -- no match, set an error message
end
elseif 12 == len then -- LCCN should be aadddddddddd
if not id:match("^%a%a%d%d%d%d%d%d%d%d%d%d") then -- see if it matches our pattern
err_cat = ' ' .. seterror( 'bad_lccn' ); -- no match, set an error message
end
else
err_cat = ' ' .. seterror( 'bad_lccn' ); -- wrong length, set an error message
end

return externallinkid({link = handler.link, label = handler.label,
prefix=handler.prefix,id=id,separator=handler.separator, encode=handler.encode}) .. err_cat;
end

--[[
Format PMID and do simple error checking. PMIDs are sequential numbers beginning at 1 and counting up. This code checks the PMID to see that it
contains only digits and is less than test_limit; the value in local variable test_limit will need to be updated periodically as more PMIDs are issued.
]]
function pmid(id)
local test_limit = 45000000; -- update this value as PMIDs approach
local handler = cfg.id_handlers['PMID'];
local err_cat = ''; -- presume that PMID is valid

if id:match("[^%d]") then -- if PMID has anything but digits
err_cat = ' ' .. seterror( 'bad_pmid' ); -- set an error message
else -- PMID is only digits
local id_num = tonumber(id); -- convert id to a number for range testing
if 1 > id_num or test_limit < id_num then -- if PMID is outside test limit boundaries
err_cat = ' ' .. seterror( 'bad_pmid' ); -- set an error message
end
end

return externallinkid({link = handler.link, label = handler.label,
prefix=handler.prefix,id=id,separator=handler.separator, encode=handler.encode}) .. err_cat;
end

--[[
Determines if a PMC identifier's online version is embargoed. Compares the date in |embargo= against today's date. If embargo date is
in the future, returns true; otherwse, returns false because the embargo has expired or |embargo= not set in this cite.
]]
function is_embargoed(embargo)
if is_set(embargo) then
local lang = mw.getContentLanguage();
local good1, embargo_date, good2, todays_date;
good1, embargo_date = pcall( lang.formatDate, lang, 'U', embargo );
good2, todays_date = pcall( lang.formatDate, lang, 'U' );

if good1 and good2 and tonumber( embargo_date ) >= tonumber( todays_date ) then --is embargo date is in the future?
return true; -- still embargoed
end
end
return false; -- embargo expired or |embargo= not set
end

--[[
Format a PMC, do simple error checking, and check for embargoed articles.

The embargo parameter takes a date for a value. If the embargo date is in the future
the PMC identifier will not be linked to the article. If the embargo specifies a date in the past, or if it is empty or omitted, then
the PMC identifier is linked to the article through the link at cfg.id_handlers['PMC'].prefix.

PMCs are sequential numbers beginning at 1 and counting up. This code checks the PMC to see that it contains only digits and is less
than test_limit; the value in local variable test_limit will need to be updated periodically as more PMCs are issued.
]]
function pmc(id, embargo)
local test_limit = 16000000; -- update this value as PMCs approach
local handler = cfg.id_handlers['PMC'];
local err_cat = ''; -- presume that PMC is valid

local text;

if id:match("^PMC%d") then
id = id:sub(4, j) -- remove 'PMC' preffix if given
end
if id:match("[^%d]") then -- if PMC has anything but digits
err_cat = ' ' .. seterror( 'bad_pmc' ); -- set an error message
else -- PMC is only digits
local id_num = tonumber(id); -- convert id to a number for range testing
if 1 > id_num or test_limit < id_num then -- if PMC is outside test limit boundaries
err_cat = ' ' .. seterror( 'bad_pmc' ); -- set an error message
end
end

if is_embargoed(embargo) then
text="[[" .. handler.link .. "|" .. handler.label .. "]]:" .. handler.separator .. id .. err_cat; --still embargoed so no external link
else
text = externallinkid({link = handler.link, label = handler.label, --no embargo date, ok to link to article
prefix=handler.prefix,id=id,separator=handler.separator, encode=handler.encode}) .. err_cat;
end
return text;
end

-- Formats a DOI and checks for DOI errors.

-- DOI names contain two parts: prefix and suffix separated by a forward slash.
-- Prefix: directory indicator '10.' followed by a registrant code
-- Suffix: character string of any length chosen by the registrant

-- This function checks a DOI name for: prefix/suffix. If the doi name contains spaces or endashes,
-- or, if it ends with a period or a comma, this function will emit a bad_doi error message.

-- DOI names are case-insensitive and can incorporate any printable Unicode characters so the test for spaces, endash,
-- and terminal punctuation may not be technically correct but it appears, that in practice these characters are rarely if ever used in doi names.

function doi(id, inactive)
local cat = ""
local handler = cfg.id_handlers['DOI'];

local text;
if is_set(inactive) then
local inactive_year = inactive:match("%d%d%d%d") or ''; -- try to get the year portion from the inactive date
text = "[[" .. handler.link .. "|" .. handler.label .. "]]:" .. id;
if is_set(inactive_year) then
table.insert( z.error_categories, "Wikipedia:Páginas con DOI inactivos desde " .. inactive_year );
else
table.insert( z.error_categories, "Wikipedia:Páginas con DOI inactivos" ); -- when inactive doesn't contain a recognizable year
end
inactive = " (" .. cfg.messages['inactive'] .. " " .. inactive .. ")"
else
text = externallinkid({link = handler.link, label = handler.label,
prefix=handler.prefix,id=id,separator=handler.separator, encode=handler.encode})
inactive = ""
end

if nil == id:match("^10%.[^%s–]-/[^%s–]-[^%.,]$") then -- doi must begin with '10.', must contain a fwd slash, must not contain spaces or endashes, and must not end with period or comma
cat = ' ' .. seterror( 'bad_doi' );
end
return text .. inactive .. cat
end

-- Formats an OpenLibrary link, and checks for associated errors.
function openlibrary(id)
local code = id:sub(-1,-1)
local handler = cfg.id_handlers['OL'];
if ( code == "A" ) then
return externallinkid({link=handler.link, label=handler.label,
prefix="http://openlibrary.org/authors/OL",id=id, separator=handler.separator,
encode = handler.encode})
elseif ( code == "M" ) then
return externallinkid({link=handler.link, label=handler.label,
prefix="http://openlibrary.org/books/OL",id=id, separator=handler.separator,
encode = handler.encode})
elseif ( code == "W" ) then
return externallinkid({link=handler.link, label=handler.label,
prefix= "http://openlibrary.org/works/OL",id=id, separator=handler.separator,
encode = handler.encode})
else
return externallinkid({link=handler.link, label=handler.label,
prefix= "http://openlibrary.org/OL",id=id, separator=handler.separator,
encode = handler.encode}) ..
' ' .. seterror( 'bad_ol' );
end
end

--[[
Validate and format an issn. This code fixes the case where an editor has included an ISSN in the citation but has separated the two groups of four
digits with a space. When that condition occurred, the resulting link looked like this:

|issn=0819 4327 gives: [http://www.worldcat.org/issn/0819 4327 0819 4327] -- can't have spaces in an external link

This code now prevents that by inserting a hyphen at the issn midpoint. It also validates the issn for length and makes sure that the checkdigit agrees
with the calculated value. Incorrect length (8 digits), characters other than 0-9 and X, or checkdigit / calculated value mismatch will all cause a check issn
error message. The issn is always displayed with a hyphen, even if the issn was given as a single group of 8 digits.
]]
function issn(id, id_handler)
local ModuloIdentificadores = require('Módulo:Identificadores')
local issn_copy = id; -- save a copy of unadulterated issn; use this version for display if issn does not validate
local handler = cfg.id_handlers[id_handler];
local text;
local valid_issn = true;

id=id:gsub( "[%s-–]", "" ); -- strip spaces, hyphens, and ndashes from the issn

if 8 ~= id:len() or nil == id:match( "^%d*X?$" ) then -- validate the issn: 8 didgits long, containing only 0-9 or X in the last position
valid_issn=false; -- wrong length or improper character
else
valid_issn=ModuloIdentificadores.esValidoISXN(id, 8); -- validate issn
end

if true == valid_issn then
id = string.sub( id, 1, 4 ) .. "-" .. string.sub( id, 5 ); -- if valid, display correctly formatted version
else
id = issn_copy; -- if not valid, use the show the invalid issn with error message
end

text = externallinkid({link = handler.link, label = handler.label,
prefix=handler.prefix,id=id,separator=handler.separator, encode=handler.encode})

if false == valid_issn then
text = text .. ' ' .. seterror( 'bad_issn' ) -- add an error message if the issn is invalid
end

return text
end

--[[
This function sets default title types (equivalent to the citation including |type=<default value>) for those citations that have defaults.
Also handles the special case where it is desireable to omit the title type from the rendered citation (|type=none).
]]
function set_titletype(cite_class, title_type)
if is_set(title_type) then
if "none" == title_type then
title_type = ""; -- if |type=none then type parameter not displayed
end
return title_type; -- if |type= has been set to any other value use that value
end

-- if "AV media notes" == cite_class or "DVD notes" == cite_class then -- if this citation is cite AV media notes or cite DVD notes
if "notas audiovisual" == cite_class or "notas de DVD" == cite_class then -- if this citation is cite AV media notes or cite DVD notes
return "Media notes"; -- display AV media notes / DVD media notes annotation -- Falta traducir

elseif "podcast" == cite_class then -- if this citation is cite podcast
return "Podcast"; -- display podcast annotation

elseif "pressrelease" == cite_class then -- if this citation is cite press release
return "Press release"; -- display press release annotation

elseif "techreport" == cite_class then -- if this citation is cite techreport
return "Technical report"; -- display techreport annotation

elseif "tesis" == cite_class then -- if this citation is cite thesis (degree option handled after this function returns)
return "Tesis"; -- display simple thesis annotation (without |degree= modification)
end
end

--[[
Determines whether a URL string is valid

At present the only check is whether the string appears to
be prefixed with a URI scheme. It is not determined whether
the URI scheme is valid or whether the URL is otherwise well
formed.
]]
function checkurl( url_str )
-- Protocol-relative or URL scheme
return url_str:sub(1,2) == "//" or url_str:match( "^[^/]*:" ) ~= nil;
end

-- Removes irrelevant text and dashes from ISBN number
-- Similar to that used for Special:BookSources
function cleanisbn( isbn_str )
return isbn_str:gsub( "[^-0-9X]", "" );
end

-- Extract page numbers from external wikilinks in any of the |page=, |pages=, or |at= parameters for use in COinS.
function get_coins_pages (pages)
if not is_set (pages) then return pages; end -- if no page numbers then we're done

while true do
local urlPattern = "%[%w*:?//[^ ]+%s+([%w%d].*)%]"
local urlMatch = pages:match(urlPattern); -- pattern is the opening bracket, the url and following space(s): "[url "
if nil == urlMatch then break; end -- no more urls
pages = pages:gsub(urlPattern, "%1"); -- remove as many instances of pattern as possible
end
pages = pages:gsub("[%[%]]", ""); -- remove the brackets
pages = pages:gsub("–", "-" ); -- replace endashes with hyphens
pages = pages:gsub("&%w+;", "-" ); -- and replace html entities (– etc) with hyphens; do we need to replace numerical entities like and the like?
return pages;
end

-- Gets the display text for a wikilink like [[A|B]] or [[B]] gives B
function removewikilink( str )
return (str:gsub( "%[%[([^%[%]]*)%]%]", function(l)
return l:gsub( "^[^|]*|(.*)$", "%1" ):gsub("^%s*(.-)%s*$", "%1");
end));
end

-- Escape sequences for content that will be used for URL descriptions
function safeforurl( str )
if str:match( "%[%[.-%]%]" ) ~= nil then
table.insert( z.message_tail, { seterror( 'wikilink_in_url', {}, true ) } );
end

return str:gsub( '[%[%]\n]', {
['['] = '[',
[']'] = ']',
['\n'] = ' ' } );
end

-- Convierte un guión largo (signo de negativo) en un guión corto.
function dashtohyphen( str )
if not is_set(str) or str:match( "[%[%]{}<>]" ) ~= nil then
return str;
end
return str:gsub( '–', '-' );
end

-- Protects a string that will be wrapped in wiki italic markup '' ... ''
function safeforitalics( str )
--[[ Note: We can not use for italics, as the expected behavior for
italics specified by ''...'' in the title is that they will be inverted
(i.e. unitalicized) in the resulting references. In addition, and ''
tend to interact poorly under Mediawiki's HTML tidy. ]]

if not is_set(str) then
return str;
else
if str:sub(1,1) == "'" then str = "" .. str; end
if str:sub(-1,-1) == "'" then str = str .. ""; end

-- Remove newlines as they break italics.
return str:gsub( '\n', ' ' );
end
end

--[[
Joins a sequence of strings together while checking for duplicate separation
characters.
]]
function safejoin( tbl, duplicate_char )
--[[
Note: we use string functions here, rather than ustring functions.

This has considerably faster performance and should work correctly as
long as the duplicate_char is strict ASCII. The strings
in tbl may be ASCII or UTF8.
]]

local str = '';
local comp = '';
local end_chr = '';
local trim;
for _, value in ipairs( tbl ) do
if value == nil then value = ''; end

if str == '' then
str = value;
elseif value ~= '' then
if value:sub(1,1) == '<' then
-- Special case of values enclosed in spans and other markup.
comp = value:gsub( "%b<>", "" );
else
comp = value;
end

if comp:sub(1,1) == duplicate_char then
trim = false;
end_chr = str:sub(-1,-1);
-- str = str .. "<HERE(enchr=" .. end_chr.. ")"
if end_chr == duplicate_char then
str = str:sub(1,-2);
elseif end_chr == "'" then
if str:sub(-3,-1) == duplicate_char .. "''" then
str = str:sub(1, -4) .. "''";
elseif str:sub(-5,-1) == duplicate_char .. "]]''" then
trim = true;
elseif str:sub(-4,-1) == duplicate_char .. "]''" then
trim = true;
end
elseif end_chr == "]" then
if str:sub(-3,-1) == duplicate_char .. "]]" then
trim = true;
elseif str:sub(-2,-1) == duplicate_char .. "]" then
trim = true;
end
elseif end_chr == " " then
if str:sub(-2,-1) == duplicate_char .. " " then
str = str:sub(1,-3);
end
end

if trim then
if value ~= comp then
local dup2 = duplicate_char;
if dup2:match( "%A" ) then dup2 = "%" .. dup2; end

value = value:gsub( "(%b<>)" .. dup2, "%1", 1 )
else
value = value:sub( 2, -1 );
end
end
end
str = str .. value;
end
end
return str;
end

-- Attempts to convert names to initials.
function reducetoinitials(first)
local initials = {}
for word in string.gmatch(first, "%S+") do
table.insert(initials, string.sub(word,1,1)) -- Vancouver format does not include full stops.
end
return table.concat(initials) -- Vancouver format does not include spaces.
end

-- Formats a list of people (e.g. authors / editors)
function listpeople(control, people)
local sep = control.sep;
local namesep = control.namesep
local format = control.format
local maximum = control.maximum
local lastauthoramp = control.lastauthoramp;
local text = {}
local etal = false;

if sep:sub(-1,-1) ~= " " then sep = sep .. " " end
if maximum ~= nil and maximum < 1 then return "", 0; end

for i,person in ipairs(people) do
if is_set(person.last) then
local mask = person.mask
local one
local sep_one = sep;
if maximum ~= nil and i > maximum then
etal = true;
break;
elseif (mask ~= nil) then
local n = tonumber(mask)
if (n ~= nil) then
one = string.rep("—",n)
else
one = mask;
sep_one = " ";
end
else
one = person.last
local first = person.first
if is_set(first) then
if ( "vanc" == format ) then first = reducetoinitials(first) end
one = one .. namesep .. first
end
if is_set(person.link) then one = "[[" .. person.link .. "|" .. one .. "]]" end
if is_set(person.link) and nil ~= person.link:find("//") then one = one .. " " .. seterror( 'bad_authorlink' ) end -- check for url in author link;
end
table.insert( text, one )
table.insert( text, sep_one )
end
end

local count = #text / 2;
if count > 0 then
if count > 1 and is_set(lastauthoramp) and not etal then
text[#text-2] = " & ";
end
text[#text] = nil;
end

local result = table.concat(text) -- construct list
if etal then
local etal_text = cfg.messages['et al'];
result = result .. " " .. etal_text;
end

-- if necessary wrap result in tag to format in Small Caps
if ( "scap" == format ) then result =
'' .. result .. '';
end
return result, count
end

-- Generates a CITEREF anchor ID.
function anchorid( options )
return "CITAREF" .. table.concat( options ); --return "CITEREF" .. table.concat( options );
end

-- Gets name list from the input arguments
function extractnames(args, list_name)
local names = {};
local i = 1;
local last;

while true do
last = selectone( args, cfg.aliases[list_name .. '-Last'], 'redundant_parameters', i );
if not is_set(last) then
-- just in case someone passed in an empty parameter
break;
end
names[i] = {
last = last,
first = selectone( args, cfg.aliases[list_name .. '-First'], 'redundant_parameters', i ),
link = selectone( args, cfg.aliases[list_name .. '-Link'], 'redundant_parameters', i ),
mask = selectone( args, cfg.aliases[list_name .. '-Mask'], 'redundant_parameters', i )
};
i = i + 1;
end
return names;
end

-- Populates ID table from arguments using configuration settings
function extractids( args )
local id_list = {};
for k, v in pairs( cfg.id_handlers ) do
v = selectone( args, v.parameters, 'redundant_parameters' );
if is_set(v) then id_list[k] = v; end
end
return id_list;
end

-- Takes a table of IDs and turns it into a table of formatted ID outputs.
function buildidlist( id_list, options )
local new_list, handler = {};

function fallback(k) return { __index = function(t,i) return cfg.id_handlers[k][i] end } end;

for k, v in pairs( id_list ) do
-- fallback to read-only cfg
handler = setmetatable( { ['id'] = v }, fallback(k) );

if handler.mode == 'external' then
table.insert( new_list, {handler.label, externallinkid( handler ) } );
elseif handler.mode == 'internal' then
table.insert( new_list, {handler.label, internallinkid( handler ) } );
elseif handler.mode ~= 'manual' then
error( cfg.messages['unknown_ID_mode'] );
elseif k == 'DOI' then
table.insert( new_list, {handler.label, doi( v, options.DoiBroken ) } );
elseif k == 'LCCN' then
table.insert( new_list, {handler.label, lccn( v ) } );
elseif k == 'OL' then
table.insert( new_list, {handler.label, openlibrary( v ) } );
elseif k == 'PMC' then
table.insert( new_list, {handler.label, pmc( v, options.Embargo ) } );
elseif k == 'PMID' then
table.insert( new_list, {handler.label, pmid( v ) } );
elseif k == 'ISSN' then
table.insert( new_list, {handler.label, issn( v:upper(), k ) } );
elseif k == 'EISSN' then
table.insert( new_list, {handler.label, issn( v:upper(), k ) } );
elseif k == 'ISBN' then
--local ISBN = internallinkid( handler );
--if not checkisbn( v ) and not is_set(options.IgnoreISBN) then
-- ISBN = ISBN .. seterror( 'bad_isbn', {}, false, " ", "" );
--end
local ISBN
if options.ISBNCorrecto or options.ISBNSugerido or is_set(options.IgnoreISBN) then
ISBN = internallinkid( handler );
else -- ISBN incorrecto.
ISBN = internallinkid( handler ) .. seterror( 'bad_isbn', {}, false, " ", "" );
end
table.insert( new_list, {handler.label, ISBN } );
else
error( cfg.messages['unknown_manual_ID'] );
end
end

function comp( a, b ) -- used in following table.sort()
return a[1] < b[1];
end

table.sort( new_list, comp );
for k, v in ipairs( new_list ) do
new_list[k] = v[2];
end

return new_list;
end

function CorregirISBN(ISBNIncorrecto)
local ModuloIdentificadores = require('Módulo:Identificadores')
local ISBNCorregido

-- Convertir mayúsculas
ISBNCorregido = ISBNIncorrecto:upper()

-- Corregir guiones
ISBNCorregido = ISBNCorregido:gsub("%–","-");

-- Eliminar ISBN del principio
ISBNCorregido =ISBNCorregido:match("ISBN (.*)") or ISBNCorregido;

-- Eliminar separadores como "." y "," del final
ISBNCorregido = ISBNCorregido:gsub("[%.,]","");

if ModuloIdentificadores.esValidoISBN(ISBNCorregido) then
return ISBNCorregido
end

-- Ver si se trata de un ISBN de 13
local ISBNCorregidoSin978
ISBNCorregidoSin978 = ISBNCorregido:match("^978[%s-]*(.*)")
if ISBNCorregidoSin978 and ModuloIdentificadores.esValidoISBN(ISBNCorregidoSin978) then
-- "978" + ISBN10
return ISBNCorregidoSin978
end

-- ISBN de 13 al que se ha quitado 978
if ModuloIdentificadores.esValidoISBN('978'..ISBNCorregido) then
if ISBNCorregido:match('-') then
return '978-' .. ISBNCorregido
elseif ISBNCorregido:match(' ') then
return '978 ' .. ISBNCorregido
else
return '978' .. ISBNCorregido
end
end

-- 13 ISBN o 13: ISBN
local ISBNCorregidoSi13
ISBNCorregidoSin13 = ISBNCorregido:match("^13:?[%s]+(.*)")
if ISBNCorregidoSin13 and ModuloIdentificadores.esValidoISBN(ISBNCorregidoSin13) then
return ISBNCorregidoSin13
end
end

function CorregirISBNs(ISBNIncorrecto1, ISBNIncorrecto2)
-- Tomar aquel de los dos ISBNs correctos si uno de ellos es un ISBN10 y el
-- otro el correspondiente ISBN13

local ISBN1Corregido = CorregirISBN(ISBNIncorrecto1)
local ISBN2Corregido = CorregirISBN(ISBNIncorrecto2)

if ISBN1Corregido and ISBN2Corregido then
-- Ambos son correctos.
if ISBN1Corregido == ISBN2Corregido then
-- Ambos son iguales (tras corregirse)
return ISBN1Corregido
end

-- Ver si uno de ellos es un ISBN10 y el otro un ISBN13
local ISBNSinDigitoControl
ISBNSinDigitoControl = ISBN1Corregido:match("(.*).")
if ISBNSinDigitoControl and ISBN2Corregido:match("978[%s-]*" .. ISBNSinDigitoControl) then
return ISBN2Corregido
end

ISBNSinDigitoControl = ISBN2Corregido:match("(.*).")
if ISBNSinDigitoControl and ISBN1Corregido:match("978[%s-]*" .. ISBNSinDigitoControl) then
return ISBN1Corregido
end

elseif ISBN1Corregido then
return ISBN1Corregido
elseif ISBN2Corregido then
return ISBN1Corregido
end
end

function SugerirISBN(ISBNIncorrecto)
local ISBNSugerido

-- Ejemplos:
-- 0 88254 165 x --> 0 88254 165 X
-- 0-7153-5734-4. --> 0-7153-5734-4
-- 0–313–31807–7 --> 0-313-31807-7
-- ISBN(13): 9788495379092
-- 978-0-7432-9302-0 y 0-7432-9302-0
-- 9788430948949 8430948945
-- 8496702057 9788496702059
-- 0198152213, 978019815221
-- 13 978-0-511-41399-5
-- 13: 9788432238406

-- ISBN con caracteres incorrectos.
ISBNSugerido=CorregirISBN(ISBNIncorrecto)
if ISBNSugerido then
return ISBNSugerido
end

-- ISBN10, ISBN13 o ISBN13, ISBN10
local ISBN1, ISBN2
ISBN1, ISBN2 = ISBNIncorrecto:match("(.*),%s*(.*)")
if is_set(ISBN1) and is_set(ISBN2) then
ISBNSugerido = CorregirISBNs(ISBN1, ISBN2)

if ISBNSugerido then
return ISBNSugerido
end
end

-- ISBN10 y ISBN13 o ISBN13 y ISBN10
ISBN1, ISBN2 = ISBNIncorrecto:match("(.*)%s+y%s+(.*)")
if is_set(ISBN1) and is_set(ISBN2) then
ISBNSugerido = CorregirISBNs(ISBN1, ISBN2)

if ISBNSugerido then
return ISBNSugerido
end
end

-- ISBN10 ISBN13 o ISBN13 ISBN10
ISBN1, ISBN2 = ISBNIncorrecto:match("(.*)%s+(.*)")
if is_set(ISBN1) and is_set(ISBN2) then
ISBNSugerido = CorregirISBNs(ISBN1, ISBN2)

if ISBNSugerido then
return ISBNSugerido
end
end
end

-- Chooses one matching parameter from a list of parameters to consider
-- Generates an error if more than one match is present.
function selectone( args, possible, error_condition, index )
local value = nil;
local selected = '';
local error_list = {};

if index ~= nil then index = tostring(index); end

-- Handle special case of "#" replaced by empty string
if index == '1' then
for _, v in ipairs( possible ) do
v = v:gsub( "#", "" );
if is_set(args[v]) then
if value ~= nil and selected ~= v then
table.insert( error_list, v );
else
value = args[v];
selected = v;
end
end
end
end

for _, v in ipairs( possible ) do
if index ~= nil then
v = v:gsub( "#", index );
end
if is_set(args[v]) then
if value ~= nil and selected ~= v then
table.insert( error_list, v );
else
value = args[v];
selected = v;
end
end
end

if #error_list > 0 then
local error_str = "";
for _, k in ipairs( error_list ) do
if error_str ~= "" then error_str = error_str .. cfg.messages['parameter-separator'] end
error_str = error_str .. wrap( 'parameter', k );
end
if #error_list > 1 then
error_str = error_str .. cfg.messages['parameter-final-separator'];
else
error_str = error_str .. cfg.messages['parameter-pair-separator'];
end
error_str = error_str .. wrap( 'parameter', selected );
table.insert( z.message_tail, { seterror( error_condition, {error_str}, true ) } );
end

return value, selected;
end

-- COinS metadata (see <http://ocoins.info/>) allows automated tools to parse
-- the citation information.
function COinS(data)
if 'table' ~= type(data) or nil == next(data) then
return '';
end

local ctx_ver = "Z39.88-2004";

-- treat table strictly as an array with only set values.
local OCinSoutput = setmetatable( {}, {
__newindex = function(self, key, value)
if is_set(value) then
rawset( self, #self+1, table.concat{ key, '=', mw.uri.encode( removewikilink( value ) ) } );
end
end
});

if is_set(data.Chapter) then
OCinSoutput.rft_val_fmt = "info:ofi/fmt:kev:mtx:book";
OCinSoutput["rft.genre"] = "bookitem";
OCinSoutput["rft.btitle"] = data.Chapter;
OCinSoutput["rft.atitle"] = data.Title;
elseif is_set(data.Periodical) then
OCinSoutput.rft_val_fmt = "info:ofi/fmt:kev:mtx:journal";
OCinSoutput["rft.genre"] = "article";
OCinSoutput["rft.jtitle"] = data.Periodical;
OCinSoutput["rft.atitle"] = data.Title;
else
OCinSoutput.rft_val_fmt = "info:ofi/fmt:kev:mtx:book";
OCinSoutput["rft.genre"] = "book"
OCinSoutput["rft.btitle"] = data.Title;
end

OCinSoutput["rft.place"] = data.PublicationPlace;
OCinSoutput["rft.date"] = data.Date;
OCinSoutput["rft.series"] = data.Series;
OCinSoutput["rft.volume"] = data.Volume;
OCinSoutput["rft.issue"] = data.Issue;
OCinSoutput["rft.pages"] = data.Pages;
OCinSoutput["rft.edition"] = data.Edition;
OCinSoutput["rft.pub"] = data.PublisherName;

for k, v in pairs( data.ID_list ) do
local id, value = cfg.id_handlers[k].COinS;
if k == 'ISBN' then value = cleanisbn( v ); else value = v; end
if string.sub( id or "", 1, 4 ) == 'info' then
OCinSoutput["rft_id"] = table.concat{ id, "/", v };
else
OCinSoutput[ id ] = value;
end
end

local last, first;
for k, v in ipairs( data.Authors ) do
last, first = v.last, v.first;
if k == 1 then
if is_set(last) then
OCinSoutput["rft.aulast"] = last;
end
if is_set(first) then
OCinSoutput["rft.aufirst"] = first;
end
end
if is_set(last) and is_set(first) then
OCinSoutput["rft.au"] = table.concat{ last, ", ", first };
elseif is_set(last) then
OCinSoutput["rft.au"] = last;
end
end

OCinSoutput.rft_id = data.URL;
OCinSoutput.rfr_id = table.concat{ "info:sid/", mw.site.server:match( "[^/]*$" ), ":", data.RawPage };
OCinSoutput = setmetatable( OCinSoutput, nil );

-- sort with version string always first, and combine.
table.sort( OCinSoutput );
table.insert( OCinSoutput, 1, "ctx_ver=" .. ctx_ver ); -- such as "Z39.88-2004"
return table.concat(OCinSoutput, "&");
end

--[[
This is the main function doing the majority of the citation
formatting.
]]
function citation0( config, args)
local ModuloIdentificadores = require('Módulo:Identificadores')
--[[
Load Input Parameters
The argment_wrapper facillitates the mapping of multiple
aliases to single internal variable.
]]
local A = argument_wrapper( args );

local i
local PPrefix = A['PPrefix']
local PPPrefix = A['PPPrefix']
if is_set( A['NoPP'] ) then PPPrefix = "" PPrefix = "" end

-- Pick out the relevant fields from the arguments. Different citation templates
-- define different field names for the same underlying things.
local Authors = A['Authors'];
local a = extractnames( args, 'AuthorList' );

local Coauthors = A['Coauthors'];

local Editors = A['Editors'];
local e = extractnames( args, 'EditorList' );

local Year = A['Year'];
local wYear=Year;
local PublicationDate = A['PublicationDate'];
local OrigYear = A['OrigYear'];
local Date = A['Date'];
local wfecha = Date;
local LayDate = A['LayDate'];
------------------------------------------------- Get title data
local Title = A['Title'];
local BookTitle = A['BookTitle'];
local Conference = A['Conference'];
local TransTitle = A['TransTitle'];
local TitleNote = A['TitleNote'];
local TitleLink = A['TitleLink'];
local Chapter = A['Chapter'];
local ChapterLink = A['ChapterLink'];
local TransChapter = A['TransChapter'];
local TitleType = A['TitleType'];
local Degree = A['Degree'];
local Docket = A['Docket'];
local ArchiveURL = A['ArchiveURL'];
local URL = A['URL']
local URLorigin = A:ORIGIN('URL');
local ChapterURL = A['ChapterURL'];
local ChapterURLorigin = A:ORIGIN('ChapterURL');
local ConferenceURL = A['ConferenceURL'];
local ConferenceURLorigin = A:ORIGIN('ConferenceURL');
local SinURL = false;
local Periodical = A['Periodical'];

local Series = A['Series'];
local Volume = A['Volume'];
local Issue = A['Issue'];
local Position = '';
local Page = A['Page'];
local Pages = dashtohyphen( A['Pages'] );
local At = A['At'];
local Others = A['Others'];
local Edition = A['Edition'];
local PublicationPlace = A['PublicationPlace']
local Place = A['Place'];
local Passage = A['Passage'];
local PassageURL = A['PassageURL'];

local PublisherName = A['PublisherName'];
local UrlAccess = A['UrlAccess'];
local RegistrationRequired = A['RegistrationRequired'];
local SubscriptionRequired = A['SubscriptionRequired'];
local Via = A['Via'];
local AccessDate = A['AccessDate'];
local MesAcceso = A['MesAcceso']; -- Inexistente en la plantilla original
local AnyoAcceso = A['AñoAcceso']; -- Inexistente en la plantilla original
local ArchiveDate = A['ArchiveDate'];
local Agency = A['Agency'];
local DeadURL = A['DeadURL']
local Language = A['Language'];
local Format = A['Format'];
local Ref = A['Ref'];
local DoiBroken = A['DoiBroken'];
local ID = A['ID'];
local IgnoreISBN = A['IgnoreISBN'];
local Embargo = A['Embargo'];
local Texto1 = A['Texto1']
local ID_list = extractids( args );
local ISBNCorrecto = false;
local ISBNSugerido;

if is_set (ID_list['ISBN']) and not is_set (IgnoreISBN) then
if ModuloIdentificadores.esValidoISBN(ID_list['ISBN']) then
ISBNCorrecto= true
else
ISBNSugerido = SugerirISBN(ID_list['ISBN'])
if ISBNSugerido then
ID_list['ISBN'] = ISBNSugerido
end
end
end
local Lista_Identificadores_Formateados={} -- Lista de identificadores con enlaces y en su caso con los errores

local Quote = A['Quote'];
local TransQuote = A['TransQuote'];
local PostScript = A['PostScript'];

local LayURL = A['LayURL'];
local LaySource = A['LaySource'];
local Transcript = A['Transcript'];
local TranscriptURL = A['TranscriptURL']
local TranscriptURLorigin = A:ORIGIN('TranscriptURL');
local sepc = A['Separator'];

local LastAuthorAmp = A['LastAuthorAmp'];
local no_tracking_cats = A['NoTracking'];

--these are used by cite interview
local Callsign = A['Callsign'];
local City = A['City'];
local Cointerviewers = A['Cointerviewers']; -- deprecated
local Interviewer = A['Interviewer']; -- deprecated
local Program = A['Program'];

--Parámetros que no se utilizan en la plantilla inglesa
local SinEd = A['SinEd']
local Extra = A['Extra']
local Traductor = A['Traductor']
local Traductores = A['Traductores']

--local variables that are not cs1 parameters
local page_type; -- is this needed? Doesn't appear to be used anywhere;
local use_lowercase
local this_page = mw.title.getCurrentTitle(); --Also used for COinS and for language
-- local anchor_year; -- used in the CITEREF identifier
local COinS_date; -- used in the COinS metadata

--check this page to see if it is in one of the namespaces that cs1 is not supposed to add to the error categories.
if not is_set(no_tracking_cats) then -- ignore if we are already not going to categorize this page
for k, v in pairs( cfg.uncategorized_namespaces ) do -- otherwise, spin through the list of namespaces we don't include in error categories
if this_page.nsText == v then -- if we find one
no_tracking_cats = "true"; -- set no_trackin_cats
break; -- and we're done
end
end
end

-- check for extra |page=, |pages= or |at= parameters.
if is_set(Page) then
-- La categoría de la plantilla inglesa es intraducible. Utilizo otro error similar.

--if is_set(Pages) or is_set(At) then
-- Page = Page .. " " .. seterror('extra_pages'); -- add error message
-- Pages = ''; -- unset the others
-- At = '';
--end
if is_set(Pages) then
Page = Page .. " " .. seterror('redundant_parameters', '<code>|página=</code> y <code>|páginas=</code>');
Pages = ''; -- unset the others
At = '';
Passage = '';
elseif is_set(At) then
Page = Page .. " " .. seterror('redundant_parameters', '<code>|página=</code> y <code>|en=</code>');
Pages = ''; -- unset the others
At = '';
Passage = '';
elseif is_set(Passage) then
Page = Page .. " " .. seterror('redundant_parameters', '<code>|página=</code> y <code>|pasaje=</code>');
Pages = ''; -- unset the others
At = '';
Passage = '';
end
elseif is_set(Pages) then
if is_set(At) then
-- Pages = Pages .. " " .. seterror('extra_pages'); -- add error messages
Pages = Pages .. " " .. seterror('redundant_parameters', '<code>|páginas=</code> y <code>|en=</code>');
At = '';
Passage = '';
elseif is_set(Passage) then
Pages = Pages .. " " .. seterror('redundant_parameters', '<code>|páginas=</code> y <code>|pasaje=</code>');
At = '';
Passage = '';
end
elseif is_set(At) then
if is_set(Passage) then
At = At .. " " .. seterror('redundant_parameters', '<code>|en=</code> y <code>|pasaje=</code>');
Passage = '';
end
end

-- both |publication-place= and |place= (|location=) allowed if different
if not is_set(PublicationPlace) and is_set(Place) then
PublicationPlace = Place; -- promote |place= (|location=) to |publication-place
end

if PublicationPlace == Place then Place = ''; end -- don't need both if they are the same

--[[
Parameter remapping for cite encyclopedia:
When the citation has these parameters:
|encyclopedia and |title then map |title to |article and |encyclopedia to |title
|encyclopedia and |article then map |encyclopedia to |title
|encyclopedia then map |encyclopedia to |title

|trans_title maps to |trans_chapter when |title is re-mapped

All other combinations of |encyclopedia, |title, and |article are not modified
]]
-- if ( config.ClaseCita == "encyclopaedia" ) then
if ( config.ClaseCita == "enciclopedia" ) then
if is_set(Periodical) then -- Periodical is set when |encyclopedia is set
if is_set(Title) then
if not is_set(Chapter) then
Chapter = Title; -- |encyclopedia and |title are set so map |title to |article and |encyclopedia to |title
TransChapter = TransTitle;
Title = Periodical;
Periodical = ''; -- redundant so unset
TransTitle = ''; -- redundant so unset
end
else -- |title not set
Title = Periodical; -- |encyclopedia set and |article set or not set so map |encyclopedia to |title
Periodical = ''; -- redundant so unset
end
end
end

--special cases for classic book
if config.ClaseCita == 'libro' and is_set(Passage) then
if is_set(PassageURL) then
Passage = externallink( PassageURL, Passage )
end
if not is_set (sepc) then
sepc = ' ';
end
else
Passage = ''
end

--special cases for citation.
if (config.ClaseCita == "citation") then -- for citation templates
if not is_set (sepc) then -- if |separator= is not set
sepc = ','; -- set citation separator to its default (comma)
end
else -- not a citation template
if not is_set (sepc) then -- if |separator= has not been set
sepc = '.'; -- set cite xxx separator to its default (period)
end
end

if not is_set (Ref) then -- if |ref= is not set
-- if inArray(config.ClaseCita, {"citation", "libro", "publicación", "web"}) then -- for citation templates
-- En la Wikipedia inglesa solo se usan citas Harvard para la clase citation
-- Quedan habilitadas las citas Harvard para cualquier clase que contenga algún autor o editor
if #a > 0 or #e > 0 then
Ref = "harv"; -- set default |ref=harv
end
end

-- check for specital case where |separator=none
if 'none' == sepc:lower() then -- if |separator=none
sepc = ''; -- then set it to a empty string
end

use_lowercase = ( sepc ~= '.' );

Others = is_set(Others) and (sepc .. " " .. Others) or "";

-- Special case for cite techreport.
if (config.ClaseCita == "techreport") then -- special case for cite techreport
if is_set(Issue) then -- cite techreport uses 'number', which other citations aliase to 'issue'
if not is_set(ID) then -- can we use ID for the "number"?
ID = Issue; -- yes, use it
Issue = ""; -- unset Issue so that "number" isn't duplicated in the rendered citation or COinS metadata
else -- can't use ID so emit error message
ID = ID .. " " .. seterror('redundant_parameters', '<code>|id=</code> and <code>|number=</code>');
end
end
-- special case for cite interview
elseif (config.ClaseCita == "entrevista") then
if is_set(Program) then
ID = ' ' .. Program;
end
if is_set(Callsign) then
if is_set(ID) then
ID = ID .. sepc .. ' ' .. Callsign;
else
ID = ' ' .. Callsign;
end
end
if is_set(City) then
if is_set(ID) then
ID = ID .. sepc .. ' ' .. City;
else
ID = ' ' .. City;
end
end

if is_set(Interviewer) then
if is_set(TitleType) then
Others = sepc .. ' ' .. TitleType .. ' con ' .. Interviewer -- ' ' .. TitleType .. ' con ' .. Interviewer;
TitleType = '';
else
Others = sepc .. ' ' .. wrap('interview', Interviewer, use_lowercase) .. Others -- ' ' .. 'Entrevista con ' .. Interviewer;
end
if is_set(Cointerviewers) then
Others = Others .. sepc .. ' ' .. Cointerviewers;
end
else
Others = Others .. sepc .. ' (Entrevista)' --'(Interview)';
end
elseif is_set(ID) then
ID = wrap( 'id', ID)
end

--Account for the oddity that is {{cite journal}} with |pmc= set and |url= not set
-- if config.ClaseCita == "journal" and not is_set(URL) and is_set(ID_list['PMC']) then
if config.ClaseCita == "publicación" and not is_set(URL) and is_set(ID_list['PMC']) then
if not is_embargoed(Embargo) then
URL=cfg.id_handlers['PMC'].prefix .. ID_list['PMC']; -- set url to be the same as the PMC external link if not embargoed
URLorigin = cfg.id_handlers['PMC'].parameters[1]; -- set URLorigin to parameter name for use in error message if citation is missing a |title=
end
end

if is_set(Texto1) and Texto1:match("%S+") then
-- Informar la URL con el valor del campo 1 en su caso
if config.ClaseCita == "web" and not is_set(URL) and checkurl(Texto1) then
table.insert( z.message_tail, { seterror( 'url_sugerida', {Texto1, 'url'}, true ) } )
--URL = Texto1 Utilizar URL como texto.
else
table.insert( z.message_tail, { seterror( 'text_ignored', {Texto1}, true ) } )
end
end

-- Account for the oddity that is {{cite conference}}, before generation of COinS data.
--TODO: if this is only for {{cite conference}}, shouldn't we be checking? (if config.ClaseCita=='conference' then ...)

if 'conferencia' == config.ClaseCita then
if is_set(BookTitle) then
Chapter = Title;
-- ChapterLink = TitleLink; -- |chapterlink= is deprecated
ChapterURL = URL;
ChapterUrlAccess = UrlAccess;
ChapterURLorigin = URLorigin;
URLorigin = '';
ChapterFormat = Format;
TransChapter = TransTitle;
Title = BookTitle;
Format = '';
-- TitleLink = '';
TransTitle = '';
URL = '';
end
elseif 'speech' ~= config.ClaseCita then
Conference = ''; -- not cite conference or cite speech so make sure this is empty string
end

-- Account for the oddity that is {{cite episode}}, before generation of COinS data.
--[[ -- {{cite episode}} is not currently supported by this module
if config.ClaseCita == "episode" then
local AirDate = A['AirDate'];
local SeriesLink = A['SeriesLink'];
local Season = A['Season'];
local SeriesNumber = A['SeriesNumber'];
local Network = A['Network'];
local Station = A['Station'];
local s, n = {}, {};
local Sep = (first_set(A["SeriesSeparator"], A["Separator"]) or "") .. " ";

if is_set(Issue) then table.insert(s, cfg.messages["episode"] .. " " .. Issue); Issue = ''; end
if is_set(Season) then table.insert(s, cfg.messages["season"] .. " " .. Season); end
if is_set(SeriesNumber) then table.insert(s, cfg.messages["series"] .. " " .. SeriesNumber); end
if is_set(Network) then table.insert(n, Network); end
if is_set(Station) then table.insert(n, Station); end

Date = Date or AirDate;
Chapter = Title;
ChapterLink = TitleLink;
TransChapter = TransTitle;
Title = Series;
TitleLink = SeriesLink;
TransTitle = '';

Series = table.concat(s, Sep);
ID = table.concat(n, Sep);
end
-- end of {{cite episode}} stuff]]

-- legacy: promote concatenation of |day=, |month=, and |year= to Date if Date not set; or, promote PublicationDate to Date if neither Date nor Year are set.
if not is_set(Date) then
Date = Year; -- promote Year to Date
Year = nil; -- make nil so Year as empty string isn't used for CITEREF
if is_set(Date) then
local Month = A['Month'];
if is_set(Month) then
Date = Month .. " de " .. Date; --Month .. " " .. Date;
local Day = A['Day']
if is_set(Day) then Date = Day .. " de " .. Date end --if is_set(Day) then Date = Day .. " " .. Date end
end
elseif is_set(PublicationDate) then -- use PublicationDate when |date= and |year= are not set
Date = PublicationDate; -- promonte PublicationDate to Date
PublicationDate = ''; -- unset, no longer needed
end
end

if PublicationDate == Date then PublicationDate = ''; end -- if PublicationDate is same as Date, don't display in rendered citation

--[[
Go test all of the date-holding parameters for valid MOS:DATE format and make sure that dates are real dates. This must be done before we do COinS because here is where
we get the date used in the metadata.

Date validation supporting code is in Módulo:Citas/ValidaciónFechas
]]

--[[
anchor_year, COinS_date, error_message = dates({['accessdate']=AccessDate, ['airdate']=AirDate, ['archivedate']=ArchiveDate, ['date']=Date, ['doi_brokendate']=DoiBroken,
['embargo']=Embargo, ['laydate']=LayDate, ['publicationdate']=PublicationDate, ['year']=Year});
if is_set(error_message) then
table.insert( z.message_tail, { seterror( 'bad_date', {error_message}, true ) } ); -- add this error message
end
]]
-- At this point fields may be nil if they weren't specified in the template use. We can use that fact.

-- COinS metadata (see <http://ocoins.info/>) for
-- automated parsing of citation information.
local OCinSoutput = COinS{
['Periodical'] = Periodical,
['Chapter'] = Chapter,
['Title'] = Title,
['PublicationPlace'] = PublicationPlace,
['Date'] = first_set(COinS_date, Date), -- COinS_date has correctly formatted date if Date is valid; any reason to keep Date here? Should we be including invalid dates in metadata?
['Series'] = Series,
['Volume'] = Volume,
['Issue'] = Issue,
['Pages'] = get_coins_pages (first_set(Page, Pages, At)), -- pages stripped of external links
['Edition'] = Edition,
['PublisherName'] = PublisherName,
['URL'] = first_set( URL, ChapterURL ),
['Authors'] = a,
['ID_list'] = ID_list,
['RawPage'] = this_page.prefixedText,
};

if is_set(Periodical) and not is_set(Chapter) and is_set(Title) then
Chapter = Title;
ChapterLink = TitleLink;
TransChapter = TransTitle;
Title = '';
TitleLink = '';
TransTitle = '';
end

-- Now perform various field substitutions.
-- We also add leading spaces and surrounding markup and punctuation to the
-- various parts of the citation, but only when they are non-nil.
if not is_set(Authors) then
local Maximum = tonumber( A['DisplayAuthors'] );

-- Preserve old-style implicit et al.
if not is_set(Maximum) and #a == 9 then
Maximum = 8;
table.insert( z.message_tail, { seterror('implict_etal_author', {}, true ) } );
elseif not is_set(Maximum) then
Maximum = #a + 1;
end

local control = {
sep = A["AuthorSeparator"] .. " ",
namesep = (first_set(A["AuthorNameSeparator"], A["NameSeparator"]) or "") .. " ",
format = A["AuthorFormat"],
maximum = Maximum,
lastauthoramp = LastAuthorAmp
};

-- If the coauthor field is also used, prevent ampersand and et al. formatting.
if is_set(Coauthors) then
control.lastauthoramp = nil;
control.maximum = #a + 1;
end

Authors = listpeople(control, a)
end

if not is_set(Authors) and is_set(Coauthors) then -- coauthors aren't displayed if one of authors=, authorn=, or lastn= isn't specified
table.insert( z.message_tail, { seterror('coauthors_missing_author', {}, true) } ); -- emit error message

-- Utilizo temporalmente los coautores como autores.
Authors = Coauthors
Coauthors = nil
end

local EditorCount
if not is_set(Editors) then
local Maximum = tonumber( A['DisplayEditors'] );
-- Preserve old-style implicit et al.
if not is_set(Maximum) and #e == 4 then
Maximum = 3;
table.insert( z.message_tail, { seterror('implict_etal_editor', {}, true) } );
elseif not is_set(Maximum) then
Maximum = #e + 1;
end

local control = {
sep = A["EditorSeparator"] .. " ",
namesep = (first_set(A["EditorNameSeparator"], A["NameSeparator"]) or "") .. " ",
format = A['EditorFormat'],
maximum = Maximum,
lastauthoramp = LastAuthorAmp
};

Editors, EditorCount = listpeople(control, e);
else
EditorCount = 1;
end

local Cartography = "";
local Scale = "";
if config.ClaseCita == "map" then
if not is_set( Authors ) and is_set( PublisherName ) then
Authors = PublisherName;
PublisherName = "";
end
Cartography = A['Cartography'];
if is_set( Cartography ) then
Cartography = sepc .. " " .. wrap( 'cartography', Cartography, use_lowercase );
end
Scale = A['Scale'];
if is_set( Scale ) then
Scale = sepc .. " " .. Scale;
end
end

if not is_set(URL) and
not is_set(ChapterURL) and
not is_set(ArchiveURL) and
not is_set(ConferenceURL) and
not is_set(TranscriptURL) then

sinURL = true

-- Test if cite web or cite podcast |url= is missing or empty
if inArray(config.ClaseCita, {"web","podcast"}) then
table.insert( z.message_tail, { seterror( 'cite_web_url', {}, true ) } );
end

-- Test if format is given without giving a URL
if is_set(Format) then
Format = Format .. seterror( 'format_missing_url' );
end
end

-- Test if citation has no title
if not is_set(Chapter) and
not is_set(Title) and
not is_set(Periodical) and
not is_set(Conference) and
not is_set(TransTitle) and
not is_set(TransChapter) and
not is_set(Passage) then
table.insert( z.message_tail, { seterror( 'citation_missing_title', {}, true ) } );
end

Format = is_set(Format) and " " .. wrap( 'format', Format ) or ""; --is_set(Format) and " (" .. Format .. ")" or "";

local OriginalURL = URL
DeadURL = DeadURL:lower();
if is_set( ArchiveURL ) then
if ( DeadURL ~= "no" ) then
URL = ArchiveURL
URLorigin = A:ORIGIN('ArchiveURL')
end
end

-- Format chapter / article title
if is_set(Chapter) and is_set(ChapterLink) then
Chapter = "[[" .. ChapterLink .. "|" .. Chapter .. "]]";
end
if is_set(Periodical) and is_set(Title) then
Chapter = wrap( 'italic-title', Chapter );
TransChapter = wrap( 'trans-italic-title', TransChapter );
else
Chapter = kern_quotes (Chapter); -- if necessary, separate chapter title's leading and trailing quote marks from Module provided quote marks
Chapter = wrap( 'quoted-title', Chapter );
TransChapter = wrap( 'trans-quoted-title', TransChapter );
end

local TransError = ""
if is_set(TransChapter) then
if not is_set(Chapter) then
TransError = " " .. seterror( 'trans_missing_chapter' );
else
TransChapter = " " .. TransChapter;
end
end

Chapter = Chapter .. TransChapter;

if is_set(Chapter) then
if not is_set(ChapterLink) then
if is_set(ChapterURL) then
Chapter = externallink( ChapterURL, Chapter ) .. TransError;
if not is_set(URL) then
Chapter = Chapter .. Format;
Format = "";
end
elseif is_set(URL) then
Chapter = externallink( URL, Chapter ) .. TransError .. Format;
URL = "";
Format = "";
else
Chapter = Chapter .. TransError;
end
elseif is_set(ChapterURL) then
Chapter = Chapter .. " " .. externallink( ChapterURL, nil, ChapterURLorigin ) ..
TransError;
else
Chapter = Chapter .. TransError;
end
Chapter = Chapter .. sepc .. " " -- with end-space
elseif is_set(ChapterURL) then
Chapter = " " .. externallink( ChapterURL, nil, ChapterURLorigin ) .. sepc .. " ";
end

-- Format main title.
if is_set(TitleLink) and is_set(Title) then
Title = "[[" .. TitleLink .. "|" .. Title .. "]]"
end

if is_set(Traductor) and is_set(Traductores) then
Traductor = " " .. wrap( 'traductores', Traductores) .. " " .. seterror('redundant_parameters', '<code>|traductor=</code> y <code>|traductores=</code>')
elseif is_set(Traductor) then
Traductor = " " .. wrap( 'traductor', Traductor)
elseif is_set(Traductores) then
Traductor = " " .. wrap( 'traductores', Traductores)
end

Traductores = ''

if is_set(Periodical) then
Title = kern_quotes (Title); -- if necessary, separate title's leading and trailing quote marks from Module provided quote marks
Title = wrap( 'quoted-title', Title );
TransTitle = wrap( 'trans-quoted-title', TransTitle );
-- elseif inArray(config.ClaseCita, {"web","news","pressrelease","conference","podcast"}) and
elseif inArray(config.ClaseCita, {"web","noticia","pressrelease","conference","podcast"}) and
not is_set(Chapter) then
Title = kern_quotes (Title); -- if necessary, separate title's leading and trailing quote marks from Module provided quote marks
Title = wrap( 'quoted-title', Title );
TransTitle = wrap( 'trans-quoted-title', TransTitle );
else
Title = wrap( 'italic-title', Title );
TransTitle = wrap( 'trans-italic-title', TransTitle );
end

TransError = "";
if is_set(TransTitle) then
if not is_set(Title) then
TransError = " " .. seterror( 'trans_missing_title' );
else
TransTitle = " " .. TransTitle;
end
end

Title = Title .. Traductor .. TransTitle;

if is_set(Title) then
if not is_set(TitleLink) and is_set(URL) then
Title = externallink( URL, Title, URL_origin, UrlAccess ) .. TransError .. Format
URL = "";
TieneURL = true;
Format = "";
else
Title = Title .. TransError;
end
end

if is_set(Place) then
Place = " " .. wrap( 'written', Place, use_lowercase ) .. sepc .. " ";
end

if is_set(Conference) then
if is_set(ConferenceURL) then
Conference = externallink( ConferenceURL, Conference );
end
Conference = sepc .. " " .. Conference
elseif is_set(ConferenceURL) then
Conference = sepc .. " " .. externallink( ConferenceURL, nil, ConferenceURLorigin );
end

if not is_set(Position) then
local Minutes = A['Minutes'];
if is_set(Minutes) then
Position = " " .. Minutes .. " " .. cfg.messages['minutes'];
else
local Time = A['Time'];
if is_set(Time) then
local TimeCaption = A['TimeCaption']
if not is_set(TimeCaption) then
TimeCaption = cfg.messages['event'];
if sepc ~= '.' then
TimeCaption = TimeCaption:lower();
end
end
Position = " " .. TimeCaption .. " " .. Time;
end
end
else
Position = " " .. Position;
At = '';
end

if not is_set(Page) then
if is_set(Pages) then
if is_set(Periodical) and
-- not inArray(config.ClaseCita, {"encyclopaedia","web","book","news","podcast"}) then
not inArray(config.ClaseCita, {"enciclopedia","web","libro","noticia","podcast"}) then
Pages = ": " .. Pages;
elseif tonumber(Pages) ~= nil then
Pages = sepc .." " .. PPrefix .. Pages;
else
Pages = sepc .." " .. PPPrefix .. Pages;
end
end
else
if is_set(Periodical) and
-- not inArray(config.ClaseCita, {"encyclopaedia","web","book","news","podcast"}) then
not inArray(config.ClaseCita, {"enciclopedia","web","libro","noticia","podcast"}) then
Page = ": " .. Page;
else
Page = sepc .." " .. PPrefix .. Page;
end
end

At = is_set(At) and (sepc .. " " .. At) or "";
Passage = is_set(Passage) and (sepc .. " " .. Passage) or "";
Position = is_set(Position) and (sepc .. " " .. Position) or "";
if config.ClaseCita == 'map' then
local Section = A['Section'];
local Inset = A['Inset'];
if first_set( Pages, Page, At ) ~= nil or sepc ~= '.' then
if is_set( Section ) then
Section = ", " .. wrap( 'section', Section, true );
end
if is_set( Inset ) then
Inset = ", " .. wrap( 'inset', Inset, true );
end
else
if is_set( Section ) then
Section = sepc .. " " .. wrap( 'section', Section, use_lowercase );
if is_set( Inset ) then
Inset = ", " .. wrap( 'inset', Inset, true );
end
elseif is_set( Inset ) then
Inset = sepc .. " " .. wrap( 'inset', Inset, use_lowercase );
end
end
At = At .. Section .. Inset;
end

--[[Look in the list of iso639-1 language codes to see if the value provided in the language parameter matches one of them. If a match is found,
use that value; if not, then use the value that was provided with the language parameter.

Categories are assigned in a manner similar to the {{xx icon}} templates - categorizes only mainspace citations and only when the language code is not 'en' (English).
]]

if is_set (Language) then
-- Poner en minúsculas el primer caracter del idioma si está en mayúsculas
Language = Language:gsub("^%u", string.lower)

if Language == 'español' or Language == 'castellano' or Language == 'es' or Language:match('^es%-.*') then
Language=""; -- No mostrar el idioma español
else
local name = mw.language.fetchLanguageName( Language:lower(), "es" ); -- experiment: this seems to return correct ISO 639-1 language names

if is_set (name) then
Language=" " .. wrap( 'language', name );
else
Language=" " .. wrap( 'language', Language ); -- no match, use parameter's value
end
end

else
Language=""; -- Asegurarnos de que el idioma no es nulo.
end

-- handle type parameter for those CS1 citations that have default values

-- if inArray(config.ClaseCita, {"AV media notes", "DVD notes", "podcast", "pressrelease", "techreport", "thesis"}) then
if inArray(config.ClaseCita, {"notas audiovisual", "notas de DVD", "podcast", "pressrelease", "techreport", "tesis"}) then
TitleType = set_titletype (config.ClaseCita, TitleType);
if is_set(Degree) and "Tesis" == TitleType then -- special case for cite thesis
TitleType = "Tesis de " .. Degree;
end
end

if is_set(TitleType) then -- if type parameter is specified
TitleType = " (" .. TitleType .. ")"; -- display it in parentheses
end

TitleNote = is_set(TitleNote) and (sepc .. " " .. TitleNote) or "";

if is_set(Edition) then
if is_set(SinEd) then -- No existe el parámetro en el módulo de la wikipedia inglesa.
Edition = " " .. wrap( 'sin edición', Edition ) -- No existe el parámetro en el módulo de la wikipedia inglesa.
else
Edition = " " .. wrap( 'edition', Edition )
end
else
Edition = ""
end
Issue = is_set(Issue) and (" (" .. Issue .. ")") or "";
Series = is_set(Series) and (sepc .. " " .. Series) or "";
OrigYear = is_set(OrigYear) and (" [" .. OrigYear .. "]") or ""; -- zero-width space, para no generar enlaces
Agency = is_set(Agency) and (sepc .. " " .. Agency) or "";

if is_set(Volume) then
if Volume:match ('^%d+$') or Volume:match ('^[MDCLXVI]+$') -- negrita solamente si el capítulo está reflejado como cifra decimal o números romanos
then Volume = " " .. dashtohyphen(Volume) .. "";
else Volume = sepc .." " .. Volume;
end
end

--[[ This code commented out while discussion continues until after week of 2014-03-23 live module update;
if is_set(Volume) then
if ( mw.ustring.len(Volume) > 4 )
then Volume = sepc .. " " .. Volume;
else
Volume = " " .. hyphentodash(Volume) .. "";
if is_set(Series) then Volume = sepc .. Volume;
end
end
end
]]
------------------------------------ totally unrelated data
--[[ Loosely mimic {{subscription required}} template; Via parameter identifies a delivery source that is not the publisher; these sources often, but not always, exist
behind a registration or paywall. So here, we've chosen to decouple via from subscription (via has never been part of the registration required template).

Subscription implies paywall; Registration does not. If both are used in a citation, the subscription required link note is displayed. There are no error messages for this condition.
]]
if is_set(Via) then
Via = " " .. wrap( 'via', Via );
end

if UrlAccess == 'registration' then
RegistrationRequired = true
end
if is_set(SubscriptionRequired) then
SubscriptionRequired = sepc .. " " .. cfg.messages['subscription']; --here when 'via' parameter not used but 'subscription' is
elseif is_set(RegistrationRequired) then
SubscriptionRequired = sepc .. " " .. cfg.messages['registration']; --here when 'via' and 'subscription' parameters not used but 'registration' is
end

-- if is_set(AccessDate) then
if is_set(AccessDate) or is_set(AnyoAcceso) then
-- Test if accessdate is given without giving a URL
if sinURL then
table.insert( z.message_tail, { seterror( 'accessdate_missing_url', {}, true ) } );
AccessDate = '';
else
if is_set(AccessDate) then
if is_set(MesAcceso) and is_set(AnyoAcceso) then
AccessDate = AccessDate .. seterror('redundant_parameters', '<code>|fechaacceso=</code>, <code>|añoacceso=</code> y <code>|mesacceso=</code>')
elseif is_set(MesAcceso) then
AccessDate = AccessDate .. seterror('redundant_parameters', '<code>|fechaacceso=</code> y <code>|mesacceso=</code>')
elseif is_set(AnyoAcceso) then
if string.find(AccessDate, '%sde%s') then
AccessDate = AccessDate .. ' de ' .. AnyoAcceso
else
AccessDate = AccessDate .. seterror('redundant_parameters', '<code>|fechaacceso=</code> y <code>|Añoacceso=</code>');
end
end
elseif is_set(MesAcceso) then
AccessDate = MesAcceso .. ' de ' .. AnyoAcceso
else
AccessDate = AnyoAcceso
end
local retrv_text = " " .. cfg.messages['retrieved']
if (sepc ~= ".") then retrv_text = retrv_text:lower() end
AccessDate = '' .. sepc
.. substitute( retrv_text, {format_date(AccessDate)} ) .. ''
end
elseif is_set(MesAcceso) then
end

if is_set(ID) then ID = sepc .." ".. ID; end
if "tesis" == config.ClaseCita and is_set(Docket) then
ID = sepc .." Docket ".. Docket .. ID;
end

Lista_Identificadores_Formateados = buildidlist( ID_list, {DoiBroken = DoiBroken, IgnoreISBN = IgnoreISBN, Embargo=Embargo, ISBNCorrecto = ISBNCorrecto, ISBNSugerido = ISBNSugerido} );

if is_set(URL) then
URL = " " .. externallink( URL, nil, URLorigin, UrlAccess );
end

-- Set postscript default.
if not is_set (PostScript) then -- if |postscript= has not been set (Postscript is nil which is the default for {{citation}}) and
if (config.ClaseCita ~= "citation") then -- this template is not a citation template
PostScript = '.'; -- must be a cite xxx template so set postscript to default (period)
end
else
if PostScript:lower() == 'none' then -- if |postscript=none then
PostScript = ''; -- no postscript
end
end

if is_set(Quote) or is_set(TransQuote) then
-- Eliminar comillas de Quote
if (Quote:sub(1,1) == '"' and Quote:sub(-1,-1) == '"') or
(Quote:sub(1,1) == '«' and Quote:sub(-1,-1) == '»') then
Quote = Quote:sub(2,-2);
end

-- No añadir el punto final a la cita si el campo Quote ya incluye un punto
if Quote:sub(-1,-1) == '.' or Quote:sub(-1,-1) == '?' or
Quote:sub(-1,-1) == '!' then
PostScript = ""
end

-- Eliminar comillas de TransQuote
if (TransQuote:sub(1, 1) == '"' and TransQuote:sub(-1, -1) == '"') or
(Quote:sub(1,1) == '«' and Quote:sub(-1,-1) == '»') then
TransQuote = TransQuote:sub(2, -2);
end

-- No añadir el punto final a la cita si el campo TransQuote ya incluye un punto
if TransQuote:sub(-1,-1) == '.' or TransQuote:sub(-1,-1) == '?' or
TransQuote:sub(-1,-1) == '!' then
PostScript = ""
end
if TransQuote and TransQuote ~= '' then
Quote = Quote .. " " .. wrap( 'trans-quoted-title', TransQuote );
TransQuote = wrap( 'trans-quoted-title', TransQuote );
end
Quote = sepc .." " .. wrap( 'quoted-text', Quote );
end

local Archived
if is_set(ArchiveURL) then
if not is_set(ArchiveDate) then
ArchiveDate = seterror('archive_missing_date');
else
ArchiveDate = format_date(ArchiveDate)
end
if "no" == DeadURL then
local arch_text = cfg.messages['archived'];
if sepc ~= "." then arch_text = arch_text:lower() end
Archived = sepc .. " " .. substitute( cfg.messages['archived-not-dead'],
{ externallink( ArchiveURL, arch_text ), ArchiveDate } );
if not is_set(OriginalURL) then
Archived = Archived .. " " .. seterror('archive_missing_url');
end
elseif is_set(OriginalURL) then
local arch_text = cfg.messages['archived-dead'];
if sepc ~= "." then arch_text = arch_text:lower() end
Archived = sepc .. " " .. substitute( arch_text,
{ externallink( OriginalURL, cfg.messages['original'] ), ArchiveDate } );
else
local arch_text = cfg.messages['archived-missing'];
if sepc ~= "." then arch_text = arch_text:lower() end
Archived = sepc .. " " .. substitute( arch_text,
{ seterror('archive_missing_url'), ArchiveDate } );
end
else
Archived = ""
end

local Lay
if is_set(LayURL) then
if is_set(LayDate) then LayDate = " (" .. format_date(LayDate) .. ")" end
if is_set(LaySource) then
LaySource = " – ''" .. safeforitalics(LaySource) .. "''";
else
LaySource = "";
end
if sepc == '.' then
Lay = sepc .. " " .. externallink( LayURL, cfg.messages['lay summary'] ) .. LaySource .. LayDate
else
Lay = sepc .. " " .. externallink( LayURL, cfg.messages['lay summary']:lower() ) .. LaySource .. LayDate
end
else
Lay = "";
end

if is_set(Transcript) then
if is_set(TranscriptURL) then Transcript = externallink( TranscriptURL, Transcript ); end
elseif is_set(TranscriptURL) then
Transcript = externallink( TranscriptURL, nil, TranscriptURLorigin );
end

local Publisher;
if is_set(Periodical) and
-- not inArray(config.ClaseCita, {"encyclopaedia","web","pressrelease","podcast"}) then
not inArray(config.ClaseCita, {"enciclopedia","web","pressrelease","podcast"}) then
if is_set(PublisherName) then
if is_set(PublicationPlace) then
Publisher = PublicationPlace .. ": " .. PublisherName;
else
Publisher = PublisherName;
end
elseif is_set(PublicationPlace) then
Publisher= PublicationPlace;
else
Publisher = "";
end
if is_set(PublicationDate) then
if is_set(Publisher) then
Publisher = Publisher .. ", " .. wrap( 'published', PublicationDate );
else
Publisher = PublicationDate;
end
end
if is_set(Publisher) then
Publisher = " (" .. Publisher .. ")";
end
else
if is_set(PublicationDate) then
PublicationDate = " (" .. wrap( 'published', format_date(PublicationDate) ) .. ")";
end
if is_set(PublisherName) then
if is_set(PublicationPlace) then
Publisher = sepc .. " " .. PublicationPlace .. ": " .. PublisherName .. PublicationDate;
else
Publisher = sepc .. " " .. PublisherName .. PublicationDate;
end
elseif is_set(PublicationPlace) then
Publisher= sepc .. " " .. PublicationPlace .. PublicationDate;
else
Publisher = PublicationDate;
end
end

-- Several of the above rely upon detecting this as nil, so do it last.
if is_set(Periodical) then
if is_set(Title) or is_set(TitleNote) then
Periodical = sepc .. " " .. wrap( 'italic-title', Periodical )
else
Periodical = wrap( 'italic-title', Periodical )
end
end

--[[
Handle the oddity that is cite speech. This code overrides whatever may be the value assigned to TitleNote (through |department=) and forces it to be " (Speech)" so that
the annotation directly follows the |title= parameter value in the citation rather than the |event= parameter value (if provided).
]]
if "speech" == config.ClaseCita then -- cite speech only
TitleNote = " (Speech)"; -- annotate the citation
if is_set (Periodical) then -- if Periodical, perhaps because of an included |website= or |journal= parameter
if is_set (Conference) then -- and if |event= is set
Conference = Conference .. sepc .. " "; -- then add appropriate punctuation to the end of the Conference variable before rendering
end
end
end

-- Piece all bits together at last. Here, all should be non-nil.
-- We build things this way because it is more efficient in LUA
-- not to keep reassigning to the same string variable over and over.

local tcommon
-- if inArray(config.ClaseCita, {"journal","citation"}) and is_set(Periodical) then
if inArray(config.ClaseCita, {"publicación","citation"}) and is_set(Periodical) then
if is_set(Others) then Others = Others .. sepc .. " " end
tcommon = safejoin( {Others, Title, TitleNote, Conference, Periodical, Format, TitleType, Scale, Series,
Language, Cartography, Edition, Publisher, Agency, Volume, Issue}, sepc );
else
tcommon = safejoin( {Title, TitleNote, Conference, Periodical, Format, TitleType, Scale, Series, Language,
Volume, Issue, Others, Cartography, Edition, Publisher, Agency}, sepc );
end

if #Lista_Identificadores_Formateados > 0 then
Lista_Identificadores_Formateados = safejoin( { sepc .. " ", table.concat( Lista_Identificadores_Formateados, sepc .. " " ), ID }, sepc );
else
Lista_Identificadores_Formateados = ID;
end

local idcommon = safejoin( { Lista_Identificadores_Formateados, URL, Archived, AccessDate, Via, SubscriptionRequired, Lay, Quote }, sepc );
local text;
local pgtext = Position .. Page .. Pages .. At .. Passage;

if is_set(Authors) then
if is_set(Coauthors) then
Authors = Authors .. A['AuthorSeparator'] .. " " .. Coauthors
end
if is_set(Date) then
Date = " ("..format_date(Date)..")" .. OrigYear .. sepc .. " "
elseif string.sub(Authors,-1,-1) == sepc then
Authors = Authors .. " "
else
Authors = Authors .. sepc .. " "
end
if is_set(Editors) then
local in_text = " ";
local post_text = "";
if is_set(Chapter) then
in_text = in_text .. cfg.messages['in'] .. " "
end
if EditorCount <= 1 then
post_text = ", " .. cfg.messages['editor'];
else
post_text = ", " .. cfg.messages['editors'];
end
if (sepc ~= '.') then in_text = in_text:lower() end
Editors = in_text .. Editors .. post_text;
if (string.sub(Editors,-1,-1) == sepc)
then Editors = Editors .. " "
else Editors = Editors .. sepc .. " "
end
end
text = safejoin( {Authors, Date, Chapter, Place, Editors, tcommon }, sepc );
text = safejoin( {text, pgtext, idcommon}, sepc );
elseif is_set(Editors) then
if is_set(Date) then
if EditorCount <= 1 then
Editors = Editors .. ", " .. cfg.messages['editor'];
else
Editors = Editors .. ", " .. cfg.messages['editors'];
end
Date = " (" .. format_date(Date) ..")" .. OrigYear .. sepc .. " "
else
if EditorCount <= 1 then
Editors = Editors .. " (" .. cfg.messages['editor'] .. ")" .. sepc .. " "
else
Editors = Editors .. " (" .. cfg.messages['editors'] .. ")" .. sepc .. " "
end
end
text = safejoin( {Editors, Date, Chapter, Place, tcommon}, sepc );
text = safejoin( {text, pgtext, idcommon}, sepc );
else
if is_set(Date) then
if ( string.sub(tcommon,-1,-1) ~= sepc )
then Date = sepc .." " .. format_date(Date) .. OrigYear
else Date = " " .. format_date(Date) .. OrigYear
end
end
-- if config.ClaseCita=="journal" and is_set(Periodical) then
if config.ClaseCita=="publicación" and is_set(Periodical) then
text = safejoin( {Chapter, Place, tcommon}, sepc );
text = safejoin( {text, pgtext, Date, idcommon}, sepc );
else
text = safejoin( {Chapter, Place, tcommon, Date}, sepc );
text = safejoin( {text, pgtext, idcommon}, sepc );
end
end

if is_set(PostScript) and PostScript ~= sepc then
text = safejoin( {text, sepc}, sepc ); --Deals with italics, spaces, etc.
text = text:sub(1,-sepc:len()-1);
-- text = text:sub(1,-2); --Remove final separator (assumes that sepc is only one character)
end

text = safejoin( {text, PostScript}, sepc );

-- Now enclose the whole thing in a element
local options = {};

if is_set(config.ClaseCita) and config.ClaseCita ~= "citation" then
options.class = "citation " .. config.ClaseCita;
else
options.class = "citation";
end

if is_set(Ref) and Ref:lower() ~= "none" then
local id = Ref
if ( "harv" == Ref ) then
local names = {} --table of last names & year
if #a > 0 then
for i,v in ipairs(a) do
names[i] = v.last
if i == 4 then break end
end
elseif #e > 0 then
for i,v in ipairs(e) do
names[i] = v.last
if i == 4 then break end
end
end
-- names[ #names + 1 ] = first_set(Year, anchor_year); -- Year first for legacy citations
-- names[ #names + 1 ] = first_set(Year, ''); -- Year first for legacy citations
names[ #names + 1 ] = first_set(wYear, wfecha, ''); -- Year first for legacy citations
id = anchorid(names)
end
options.id = id;
end

if string.len(text:gsub("<span[^>/]*>.-", ""):gsub("%b<>","")) <= 2 then
z.error_categories = {};
text = seterror('empty_citation');
z.message_tail = {};
end

if is_set(options.id) then
text = '' .. text .. "";
else
text = '' .. text .. "";
end

local empty_span = ' ';

-- Note: Using display: none on then COinS span breaks some clients.
local OCinS = '' .. empty_span .. '';
text = text .. OCinS;

if #z.message_tail ~= 0 then
text = text .. " ";
for i,v in ipairs( z.message_tail ) do
if is_set(v[1]) then
if i == #z.message_tail then
text = text .. errorcomment( v[1], v[2] );
else
text = text .. errorcomment( v[1] .. "; ", v[2] );
end
end
end
end

no_tracking_cats = no_tracking_cats:lower();
if inArray(no_tracking_cats, {"", "no", "false", "n"}) then
for _, v in ipairs( z.error_categories ) do
text = text .. '[[Category:' .. v ..']]';
end
end

-- [[:mw:Help:Reference Previews]]
-- [[:mw:WMDE Technical Wishes/ReferencePreviews]]
local citeClassMap = {
["libro"] = "book",
["publicación"] = "journal",
["noticia"] = "news",
["web"] = "web",
["nota"] = "note",
-- NOTE: there is no way to detect '<ref group="note">'' outside of the cite
-- -- [[:mw:WMDE_Technical_Wishes/ReferencePreviews#What_do_I_do_when_the_footnote_in_the_popup_isn't_a_reference_but_a_note?]]
["#default"] = "citation"
-- -- "conferencia", "enciclopedia", "entrevista", "episode", "map",
-- -- "notas de DVD", "podcast", "pressrelease", "speech", "techreport", "tesis", ...
}
if citeClassMap[ config.ClaseCita ] then -- nevermind, ignore detault
text = '<cite class="' .. (citeClassMap[ config.ClaseCita ] or config.ClaseCita[ "#default" ]) .. '"></cite>' .. text;
-- not wrapped because of default italics style for cite
end

return text
end

-- This is used by templates such as {{cite book}} to create the actual citation text.
function z.cita(frame)
local pframe = frame:getParent()

if nil ~= string.find( frame:getTitle(), 'sandbox', 1, true ) then -- did the {{#invoke:}} use sandbox version?
cfg = mw.loadData('Módulo:Citas/Configuración/pruebas' ); -- load sandbox versions of Configuration and Whitelist and ...
whitelist = mw.loadData('Módulo:Citas/Whitelist/pruebas' );
dates = require ('Módulo:Citas/ValidaciónFechas/pruebas').dates -- ... sandbox version of date validation code
else -- otherwise
cfg = mw.loadData('Módulo:Citas/Configuración' ); -- load live versions of Configuration and Whitelist and ...
whitelist = mw.loadData('Módulo:Citas/Whitelist' );
dates = require ('Módulo:Citas/ValidaciónFechas').dates -- ... live version of date validation code
end

local args = {};

local suggestions = {};
local error_text, error_state;

local config = {};
for k, v in pairs( frame.args ) do
config[k] = v;
args[k] = v;
end

for k, v in pairs( pframe.args ) do
if v ~= '' then
if not validate( k ) then
error_text = "";
if type( k ) ~= 'string' then
-- Exclude empty numbered parameters
if v:match("%S+") ~= nil then
error_text, error_state = seterror( 'text_ignored', {v}, true );
end
elseif validate( k:lower() ) then
error_text, error_state = seterror( 'parameter_ignored_suggest', {k, k:lower()}, true );
else

if #suggestions == 0 then
suggestions = mw.loadData( 'Módulo:Citas/Sugerencias' );
end
if suggestions[ k:lower() ] ~= nil then
error_text, error_state = seterror( 'parameter_ignored_suggest', {k, suggestions[ k:lower() ]}, true );
elseif cfg.parametros_a_implementar[k:lower()] then
error_text, error_state = seterror( 'parametro_por_implementar', {k}, true );
else
error_text, error_state = seterror( 'parameter_ignored', {k}, true );
end
end
if error_text ~= '' then
table.insert( z.message_tail, {error_text, error_state} );
end
end
args[k] = v;
elseif args[k] ~= nil or (k == 'postscript') then
args[k] = v;
end
end

return citation0( config, args)
end

return z

Plantilla:Cita web

2026-06-14T04:12:55Z

Nodo Central: 1 revisión importada

<includeonly>{{#invoke:Citas | cita|ClaseCita=web}}</includeonly><noinclude>{{documentación}}</noinclude>

Plantilla:Lista desplegable

2026-06-14T04:12:55Z

Nodo Central: 1 revisión importada

<div class="mw-collapsible mw-collapsed" style="font-size:95%;{{#if:{{{marco_estilo|}}}
|{{{marco_estilo|}}}
|border:none; padding: 0;
}}">
<div style="{{#if:{{{título_estilo|}}}|{{{título_estilo|}}}|width:100%; font-weight:bold" align="left}}">{{#if:{{{título|}}}{{{title|}}}
|{{{título|}}}{{{title|}}}
|Ver lista
}}</div><div class="mw-collapsible-content" style="{{#if:{{{lista_estilo|}}}
|{{{lista_estilo|}}}
|text-align:left;
}}">{{#if:{{{texto|}}} |{{{texto|}}}}}{{#if:{{{1|}}} |{{{1|}}} }}{{#if:{{{2|}}} | {{{2|}}} }}{{#if:{{{3|}}} | {{{3|}}} }}{{#if:{{{4|}}} | {{{4|}}} }}{{#if:{{{5|}}} | {{{5|}}} }}{{#if:{{{6|}}} | {{{6|}}} }}{{#if:{{{7|}}} | {{{7|}}} }}{{#if:{{{8|}}} | {{{8|}}} }}{{#if:{{{9|}}} | {{{9|}}} }}{{#if:{{{10|}}} | {{{10|}}} }}{{#if:{{{11|}}} | {{{11|}}} }}{{#if:{{{12|}}} | {{{12|}}} }}{{#if:{{{13|}}} | {{{13|}}} }}{{#if:{{{14|}}} | {{{14|}}} }}{{#if:{{{15|}}} | {{{15|}}} }}{{#if:{{{16|}}} | {{{16|}}} }}{{#if:{{{17|}}} | {{{17|}}} }}{{#if:{{{18|}}} | {{{18|}}} }}{{#if:{{{19|}}} | {{{19|}}} }}{{#if:{{{20|}}} | {{{20|}}} }}{{#if:{{{21|}}} | {{{21|}}} }}{{#if:{{{22|}}} | {{{22|}}} }}{{#if:{{{23|}}} | {{{23|}}} }}{{#if:{{{24|}}} | {{{24|}}} }}{{#if:{{{25|}}} | {{{25|}}} }}{{#if:{{{26|}}} | {{{26|}}} }}{{#if:{{{27|}}} | {{{27|}}} }}{{#if:{{{28|}}} | {{{28|}}} }}{{#if:{{{29|}}} | {{{29|}}} }}{{#if:{{{30|}}} | {{{30|}}} }}{{#if:{{{31|}}} | {{{31|}}} }}{{#if:{{{32|}}} | {{{32|}}} }}{{#if:{{{33|}}} | {{{33|}}} }}{{#if:{{{34|}}} | {{{34|}}} }}{{#if:{{{35|}}} | {{{35|}}} }}{{#if:{{{36|}}} | {{{36|}}} }}{{#if:{{{37|}}} | {{{37|}}} }}{{#if:{{{38|}}} | {{{38|}}} }}{{#if:{{{39|}}} | {{{39|}}} }}{{#if:{{{40|}}} | {{{40|}}} }}{{#if:{{{41|}}} | {{{41|}}} }}{{#if:{{{42|}}} | {{{42|}}} }}{{#if:{{{43|}}} | {{{43|}}} }}{{#if:{{{44|}}} | {{{44|}}} }}{{#if:{{{45|}}} | {{{45|}}} }}{{#if:{{{46|}}} | {{{46|}}} }}{{#if:{{{47|}}} | {{{47|}}} }}{{#if:{{{48|}}} | {{{48|}}} }}{{#if:{{{49|}}} | {{{49|}}} }}{{#if:{{{50|}}} | {{{50|}}} }}{{#if:{{{51|}}} | {{{51|}}} }}{{#if:{{{52|}}} | {{{52|}}} }}{{#if:{{{53|}}} | {{{53|}}} }}{{#if:{{{54|}}} | {{{54|}}} }}{{#if:{{{55|}}} | {{{55|}}} }}{{#if:{{{56|}}} | {{{56|}}} }}{{#if:{{{57|}}} | {{{57|}}} }}{{#if:{{{58|}}} | {{{58|}}} }}{{#if:{{{59|}}} | {{{59|}}} }}{{#if:{{{60|}}} | {{{60|}}} }}{{#if:{{{61|}}} | {{{61|}}} }}{{#if:{{{62|}}} | {{{62|}}} }}{{#if:{{{63|}}} | {{{63|}}} }}{{#if:{{{64|}}} | {{{64|}}} }}{{#if:{{{65|}}} | {{{65|}}} }}{{#if:{{{66|}}} | {{{66|}}} }}{{#if:{{{67|}}} | {{{67|}}} }}{{#if:{{{68|}}} | {{{68|}}} }}{{#if:{{{69|}}} | {{{69|}}} }}{{#if:{{{70|}}} | {{{70|}}} }}{{#if:{{{71|}}} | {{{71|}}} }}{{#if:{{{72|}}} | {{{72|}}} }}{{#if:{{{73|}}} | {{{73|}}} }}{{#if:{{{74|}}} | {{{74|}}} }}{{#if:{{{75|}}} | {{{75|}}} }}{{#if:{{{76|}}} | {{{76|}}} }}{{#if:{{{77|}}} | {{{77|}}} }}{{#if:{{{78|}}} | {{{78|}}} }}{{#if:{{{79|}}} | {{{79|}}} }}{{#if:{{{80|}}} | {{{80|}}} }}{{#if:{{{81|}}} | {{{81|}}} }}{{#if:{{{82|}}} | {{{82|}}} }}{{#if:{{{83|}}} | {{{83|}}} }}{{#if:{{{84|}}} | {{{84|}}} }}{{#if:{{{85|}}} | {{{85|}}} }}{{#if:{{{86|}}} | {{{86|}}} }}{{#if:{{{87|}}} | {{{87|}}} }}{{#if:{{{88|}}} | {{{88|}}} }}{{#if:{{{89|}}} | {{{89|}}} }}{{#if:{{{90|}}} | {{{90|}}} }}{{#if:{{{91|}}} | {{{91|}}} }}{{#if:{{{92|}}} | {{{92|}}} }}{{#if:{{{93|}}} | {{{93|}}} }}{{#if:{{{94|}}} | {{{94|}}} }}{{#if:{{{95|}}} | {{{95|}}} }}{{#if:{{{96|}}} | {{{96|}}} }}{{#if:{{{97|}}} | {{{97|}}} }}{{#if:{{{98|}}} | {{{98|}}} }}{{#if:{{{99|}}} | {{{99|}}} }}{{#if:{{{100|}}} | {{{100|}}} }}{{#if:{{{101|}}} | {{{101|}}} }}{{#if:{{{102|}}} | {{{102|}}} }}{{#if:{{{103|}}} | {{{103|}}} }}{{#if:{{{104|}}} | {{{104|}}} }}{{#if:{{{105|}}} | {{{105|}}} }}{{#if:{{{106|}}} | {{{106|}}} }}{{#if:{{{107|}}} | {{{107|}}} }}{{#if:{{{108|}}} | {{{108|}}} }}{{#if:{{{109|}}} | {{{109|}}} }}{{#if:{{{110|}}} | {{{100|}}} }}{{#if:{{{111|}}} | {{{111|}}} }}{{#if:{{{112|}}} | {{{112|}}} }}{{#if:{{{113|}}} | {{{113|}}} }}{{#if:{{{114|}}} | {{{114|}}} }}{{#if:{{{115|}}} | {{{115|}}} }}{{#if:{{{116|}}} | {{{116|}}} }}{{#if:{{{117|}}} | {{{117|}}} }}{{#if:{{{118|}}} | {{{118|}}} }}{{#if:{{{119|}}} | {{{119|}}} }}{{#if:{{{120|}}} | {{{120|}}} }}{{#if:{{{121|}}} | {{{121|}}} }}{{#if:{{{122|}}} | {{{122|}}} }}{{#if:{{{123|}}} | {{{123|}}} }}{{#if:{{{124|}}} | {{{124|}}} }}{{#if:{{{125|}}} | {{{125|}}} }}{{#if:{{{126|}}} | {{{126|}}} }}{{#if:{{{127|}}} | {{{127|}}} }}{{#if:{{{128|}}} | {{{128|}}} }}{{#if:{{{129|}}} | {{{129|}}} }}{{#if:{{{130|}}} | {{{130|}}} }}</div>
</div><noinclude>{{documentación}}</noinclude>

Plantilla:Aviso

2026-06-14T04:12:55Z

Nodo Central: 1 revisión importada

<table style="{{{estilo|}}}" class="noprint plainlinks ambox {{#switch:{{{tipo|}}}
| protección | gris = ambox-protection
| serio | rojo = ambox-serious
| contenido | naranja = ambox-content
| estilo | amarillo = ambox-style
| fusionar | morado = ambox-merge
| desarrollo | verde = ambox-growth
| aviso | azul = ambox-notice
| #default = ambox-notice
}} {{{clase|}}}">
<tr>
<td class="ambox-image" width="40">
{{#ifeq:{{{imagen}}}|ninguna
| 
| {{#switch:{{{imagen|{{{tipo|}}}}}}
| protección | gris = [[Archivo:Commons-emblem-padlock.svg|40px|class=notpageimage noviewer|enlace=|alt=]]
| serio | rojo = [[Archivo:Commons-emblem-hand.svg|40px|class=notpageimage noviewer|alt=]]
| contenido | naranja = [[Archivo:Commons-emblem-issue.svg|40px|class=notpageimage noviewer|enlace=|alt=]]
| estilo | amarillo = [[Archivo:Commons-emblem-copyedit.svg|40px|class=notpageimage noviewer|enlace=|alt=]]
| fusionar | morado = [[Archivo:Commons-emblem-merge.svg|40px|class=notpageimage noviewer|enlace=|alt=]]
| desarrollo | verde = [[Archivo:Commons-emblem-success.svg|40px|class=notpageimage noviewer|enlace=|alt=]]
| aviso | azul = [[Archivo:Commons-emblem-notice.svg|40px|class=notpageimage noviewer|enlace=|alt=]]
| vacío = [[Archivo:No image.svg|class=notpageimage noviewer|enlace=|alt=]]
| #default = {{#if:{{{imagen|}}}|{{#ifexist:Media:{{{imagen}}}|
[[Archivo:{{{imagen}}}|x40px|class=notpageimage noviewer|alt=]]|{{{imagen}}}}}|
{{{imagen|[[Archivo:Commons-emblem-notice.svg|40px|class=notpageimage noviewer|enlace=|alt=]]}}}
}}
}}
}}</td>
<td class="ambox-text"><div class="ambox-text-div">{{#if:{{{encabezado|{{{2|}}}}}}|{{{encabezado|{{{1}}}}}} {{#if:{{{contenido|{{{texto|{{{2|}}}}}}}}}|{{{contenido|{{{texto|{{{2}}}}}}}}}}}|{{{contenido|{{{texto|{{{1|No has escrito ningún aviso}}}}}}}}}}}</div>{{#if:{{{pie|}}}|<div class="hide-when-compact">{{{pie}}}</div>}}</td>{{#if:{{{imagen derecha|}}}|<td class="hide-when-compact ambox-imageright">{{#ifexist:Media:{{{imagen derecha}}}|[[Archivo:{{{imagen derecha}}}|x40px|class=notpageimage noviewer|alt=]]|{{{imagen derecha}}}}}</td>}}
</tr>
</table><includeonly>{{#ifeq:{{SUBPAGENAME}}|doc||{{#ifeq:{{NAMESPACE}}|{{ns:10}}
| [[{{#switch:{{{tipo|}}}
| protección = Categoría:Wikipedia:Plantillas de protección
| serio = Categoría:Wikipedia:Plantillas críticas de mantenimiento
| contenido = Categoría:Wikipedia:Plantillas de contenido
| estilo = Categoría:Wikipedia:Plantillas de estilo
| fusionar = Categoría:Wikipedia:Plantillas de fusiones
| desarrollo = Categoría:Wikipedia:Plantillas de desarrollo
| aviso = Categoría:Wikipedia:Plantillas de avisos
| #default = Categoría:Wikipedia:Plantillas de avisos
}}]]
}}}}</includeonly><noinclude>
{{Documentación}}
</noinclude>

Plantilla:Listaref

2026-06-14T04:12:54Z

Nodo Central: 1 revisión importada

<div class="listaref" style="{{#if: {{{ancho|{{{colwidth|}}}}}}
| -moz-column-width: {{{ancho{{{colwidth|}}}}}}; -webkit-column-width: {{{ancho{{{colwidth|}}}}}}; column-width: {{{ancho{{{colwidth|}}}}}};
| {{#if: {{{1|}}}
| -moz-column-count:{{{1}}}; -webkit-column-count:{{{1}}}; column-count:{{{1}}};
}}
}} list-style-type: {{{estilolista|{{{liststyle|{{#switch: {{{grupo|{{{group|}}}}}}
| upper-alpha
| upper-roman
| lower-alpha
| lower-greek
| lower-roman = {{{grupo|{{{group}}}}}}
| #default = decimal}}}}}}}};">{{#tag:references|{{{refs|}}}|group={{{grupo|{{{group|}}}}}}}}</div><noinclude>{{documentación}}</noinclude>

Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco

2026-06-14T04:00:54Z

Nodo Central: Intento de unir todo #1

El '''manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco''' define la arquitectura utilizada por la red de recaudo interoperable del transporte público estatal. Este artículo presenta una versión revisada, corregida y actualizada de la última especificación pública disponible.

El manual establece los requisitos para la interoperabilidad entre emisores de tarjetas, distribuidores de productos tarifarios, prestadores de servicio y demás participantes de la red. Asimismo, describe la estructura de datos almacenada en los medios de pago basados en tecnología [[MIFARE DESFire|MIFARE DESFire EV1/EV2]], los mecanismos de seguridad criptográfica empleados, el uso de [[Módulo de acceso seguro|módulos de acceso seguro (SAM)]], los productos tarifarios soportados y los procedimientos operativos necesarios para la emisión, distribución, recarga, validación y administración de los medios de pago.

Además de servir como referencia documental, esta edición incorpora correcciones de formato, aclaraciones técnicas, referencias cruzadas y observaciones derivadas del análisis de la implementación real del sistema interoperable de Jalisco.

== Contenido ==

* [[/Introducción|1 Introducción]]
* [[/Interoperabilidad|2 Interoperabilidad]]
* [[/Tipos de productos|3 Tipos de productos]]
* [[/Modelo de seguridad|4 Modelo de seguridad en nivel 0-1]]
* [[/Diversificación de llaves|5 Diversificación de llaves]]
* [[/Aplicación interoperable en medios de pago MIFARE DESFire|6 Aplicación interoperable en medios de pago MIFARE DESFire EV1]]
* [[/Ciclos de vida|7 Ciclos de vida]]
* [[/Instrucciones de uso de la aplicación interoperable en medios de pago|8 Instrucciones de uso de la aplicación interoperable en medios de pago]]
* [[/Modelo interoperable de flujo de datos|9 Modelo interoperable de flujo de datos]]
* [[/Flujo de datos de eventos|10 Flujo de datos de eventos]]
* [[/Casos de uso de medios de pago|11 Casos de uso de medios de pago]]
* [[/Seguridad en el envío de eventos|12 Seguridad en el envío de eventos]]
* [[/Especificación de los módulos de acceso seguro|13 Especificación de los módulos de acceso seguro (SAM)]]
* [[/Resumen de los datos que deben ser asignados por el Registrar|14 Resumen de los datos que deben ser asignados por el Registrar]]

== Introducción ==
Este artículo contiene la definición técnica que reglamenta la tecnología utilizada en el Estado de Jalisco para la implementación de un modelo de interoperabilidad en sistemas de recaudo. En él se definen la tecnología de los medios de pago, la estructura de la información almacenada en dichos medios, las reglas para su utilización y los protocolos de comunicación entre los actores que participan en la red interoperable de Jalisco.

=== Glosario ===

; AES
: ''Advanced Encryption Standard'' (Estándar Avanzado de Cifrado).

; AID
: Identificador de aplicación en el medio de pago.

; Aplicación
: Estructura de datos dentro de un medio de pago que define archivos, codificaciones y reglas de uso.

; Cámara de compensación
: Sistema de control y compensación encargado de la liquidación y distribución de las operaciones derivadas de las transacciones diarias efectuadas por el pago de tarifas dentro de la red interoperable.

; DF
: ''Dedicated File'', archivo contenedor de otros archivos DF o EF.

; EF
: ''Elementary File'', archivo destinado al almacenamiento de datos. No posee sucesores y sus atributos de seguridad pueden asignarse individualmente.

; Evento
: Operación básica efectuada sobre la aplicación interoperable.

; LAM
: Lista de Acción para Medios de Pago Interoperables.

; LAP_R
: Lista de Acción para Productos en Dispositivos de Recarga.

; LAP_V
: Lista de Acción para Productos en Dispositivos de Validación.

; Llave
: Secreto compartido entre varios elementos de un sistema utilizado para efectuar operaciones de seguridad.

; Medio de pago
: Instrumento electrónico mediante el cual un usuario puede acceder al servicio de transporte público realizando el pago correspondiente dentro de la red interoperable.

; Operación
: Acción llevada a cabo por un usuario o una entidad que produce uno o varios eventos.

; Producto
: Conjunto de reglas comerciales almacenadas en un medio de pago cuya ejecución permite la prestación de un servicio.

; SAM
: Módulo de acceso seguro. Se utiliza para almacenar llaves criptográficas, realizar operaciones criptográficas con los medios de pago y facilitar la comunicación segura entre terminales y sistemas centrales.

; Tarifa
: Unidades de valor descontadas de un producto durante una transacción de validación. Estas unidades son determinadas según las condiciones aplicables a cada usuario.

; Usuario
: Persona que utiliza el sistema integrado de recaudo.

; Validación
: Uso de un producto para acceder a un servicio.

; Viaje
: Conjunto de validaciones que transportan al usuario desde el inicio hasta el final de su recorrido.

; Ventana de transbordo
: Período durante el cual se cumplen todas las condiciones temporales y operativas necesarias para recibir el beneficio de una tarifa de transbordo durante un viaje.

=== Representación de los datos ===
La información numérica consignada en este documento se expresa en formato hexadecimal cuando el dato incluye el prefijo <code>0x</code>. Cuando el dato ocupa más de dos bytes, su representación utiliza el orden de bytes ''Big-Endian''. Los valores expresados en formato decimal no incluyen ningún prefijo.
{| class="wikitable"
!Decimal
!Hexadecimal
|-
|651316845
|<code>0x26D24E6D</code>
|}
Algunos datos definidos en esta especificación tienen una longitud en bits que no corresponde a un múltiplo de ocho. En estos casos se agregan ceros a la izquierda hasta completar un número entero de bytes. Este procedimiento permite representar todos los datos de forma alineada a nivel de byte.
{| class="wikitable"
!Dato
!Tamaño (bits)
!Tamaño (bytes)
!Valor (hex)
|-
|6333
|13
|2
|0x18BD
|}

=== Especificaciones de la tarjeta MIFARE DESFire EV1 y EV2 ===
El modelo de datos descrito en este documento está basado en las tarjetas [[MIFARE DESFire|MIFARE DESFire EV1]] y [[MIFARE DESFire|MIFARE DESFire EV2]]. Ambas tecnologías son compatibles con las cuatro partes del estándar ISO/IEC 14443A para tarjetas inteligentes sin contacto.

MIFARE DESFire EV2 incluye un modo de compatibilidad con versiones anteriores de MIFARE DESFire EV1 y D40. Este es el modo de operación utilizado por la aplicación interoperable descrita en esta especificación.

Entre las funcionalidades proporcionadas por la plataforma MIFARE DESFire se encuentran:

* Comunicación segura entre medios de pago y lectores.
* Manejo de colisiones para múltiples tarjetas presentes simultáneamente en el campo de lectura.
* Protección de integridad frente a interrupciones durante operaciones de escritura.
* Transmisión de datos orientada a archivos.
* Control de acceso basado en llaves criptográficas de aplicación.

La tecnología también incorpora características basadas en estándares abiertos:

* Nombres de archivo basados en ISO 7816.
* Esquemas de seguridad basados en AES o 3DES.
* Comandos de administración de archivos compatibles con ISO 7816-4.

Un medio de pago MIFARE DESFire puede almacenar hasta 28 aplicaciones o directorios, identificados mediante un ''Application Identifier'' (AID) de tres bytes y un identificador de archivo ISO de dos bytes.

Cada aplicación puede contener hasta 32 archivos elementales y almacenar de forma segura hasta 14 llaves criptográficas numeradas del 0 al 13, además de los estados especiales ''free'' y ''never''. La llave número 0 corresponde a la llave maestra de la aplicación.

Los archivos elementales pueden ser de los siguientes tipos:

* Archivos estándar.
* Archivos con respaldo (''backup'').
* Archivos de valor.
* Archivos de registro lineal.
* Archivos de registro cíclico.

Todo medio de pago MIFARE DESFire incluye además un directorio maestro que contiene una llave maestra denominada ''PICC Key''. La autenticación mediante esta llave permite crear o eliminar aplicaciones y borrar completamente el contenido del medio de pago.

== Interoperabilidad ==
El modelo de interoperabilidad está basado en el ''estándar ISO 24014, parte 1''. Una red interoperable se define como un sistema en el que existe un conjunto mínimo de medios de pago aceptados por múltiples prestadores de servicio, independientemente del emisor de dichos medios.

=== Actores de la red interoperable ===
Siguiendo el modelo definido, pueden existir los siguientes actores dentro de la red interoperable:

; Comité rector
: Entidad encargada de emitir y actualizar las reglas técnicas y comerciales de la red interoperable, supervisar su cumplimiento, adherir o retirar entidades participantes y supervisar la operación de la cámara de compensación. Cumple el papel de propietario de la aplicación interoperable.

; Comité técnico
: Entidad encargada de supervisar la calidad de servicio que deben cumplir los actores del entorno interoperable, definir políticas y condiciones de servicio, establecer mecanismos de sanción, instruir al fiduciario sobre la administración de los recursos del fideicomiso maestro y vigilar el cumplimiento de sus fines.

; Cámara de compensación
: Entidad encargada de interconectar a todas las entidades de la red interoperable. Realiza la recolección de información transaccional y genera las órdenes de pago necesarias para la compensación y liquidación entre participantes.

; Emisores de medios de pago
: Entidades autorizadas por el comité rector para fabricar, programar y emitir medios de pago que contengan la aplicación interoperable descrita en esta especificación.

; Distribuidores de productos
: Entidades autorizadas por el comité rector para almacenar productos dentro de los medios de pago interoperables y efectuar operaciones de distribución y recarga de dichos productos.

; Prestadores de servicio
: Entidades autorizadas por el comité rector para utilizar productos durante transacciones de validación con el fin de prestar servicios dentro de la red interoperable.

=== Especificaciones de la red interoperable ===
La red interoperable debe cumplir, como mínimo, con las siguientes características:

* Permitir la existencia de múltiples emisores de medios de pago.
* Permitir que los medios de pago almacenen múltiples productos destinados al acceso a servicios.
* Permitir la existencia de múltiples distribuidores de productos.
* Mantener independencia entre la emisión de un medio de pago y la distribución de los productos que este puede almacenar.
* Definir una estructura de datos común para los medios de pago, denominada ''aplicación interoperable''.
* Definir de forma común los productos que pueden ser ofrecidos dentro de la red interoperable.
* Permitir que los usuarios realicen validaciones en toda la red interoperable conforme a las reglas establecidas por el comité rector.
* Permitir que los usuarios realicen recargas de productos mediante distribuidores autorizados.

=== Certificaciones de operadores tecnológicos para incorporación al SIR ===
Para integrarse a la red interoperable es necesario cumplir los requisitos establecidos en el Manual de Procesos y aprobar las pruebas de certificación correspondientes a los niveles 0–1 y 3–4.

=== Alcances mínimos de equipos y servicios prestados por el operador tecnológico a cada EUR ===
Las especificaciones técnicas de hardware y software que deben suministrar los operadores tecnológicos para cada Entidad Usuaria de Recaudo (EUR), incluyendo EUR Tren, EUR Masivo y EUR Colectivo, se encuentran definidas en el ''Catálogo de Especificaciones Técnicas por EUR''.

Dicho catálogo se actualiza periódicamente y la versión más reciente publicada es la que debe considerarse vigente.

== Tipos de productos ==
Los medios de pago deben tener la capacidad de almacenar, como mínimo, cuatro productos: un monedero, un producto de viaje a crédito, y dos productos de boletos para descuento.

Cada producto debe ser único dentro del medio de pago, por lo que únicamente puede existir una instancia de cada uno con la excepción de los boletos para descuento, en cuyo caso solo se pueden cargar dos únicamente con los identificadores distintos asignados descritos en la [[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco#Aplicación interoperable en medios de pago MIFARE DESFire|aplicación interoperable]].

=== Producto Monedero ===
El producto Monedero permite realizar validaciones para el pago de un pasaje.

Este producto almacena un valor positivo equivalente a la cantidad de dinero recargada por el usuario en dispositivos autorizados de la red interoperable. Dicho valor se actualiza descontando los importes correspondientes a las transacciones de pago realizadas.

La cantidad máxima que puede almacenar este producto está limitada por los parámetros definidos por la administración del sistema interoperable.

El producto Monedero puede utilizarse conjuntamente con el producto Crédito para completar el pago de una tarifa cuando el saldo disponible sea insuficiente, siempre que dicha funcionalidad se encuentre habilitada y el producto Crédito esté presente en el medio de pago.

Su valor mínimo es cero.

=== Validación a crédito ===
El producto Crédito permite realizar una validación aun cuando el valor disponible para el pago sea inferior a la tarifa aplicable.

Este producto almacena un valor que se vuelve negativo cuando es utilizado durante una transacción de validación. Dicho saldo negativo regresa a cero cuando es cubierto mediante una operación de recarga.

La funcionalidad de validación a crédito opera conjuntamente con el producto Monedero y únicamente puede utilizarse cuando las reglas de operación del sistema permitan su aplicación.

Durante una recarga del producto Monedero, el pago del saldo pendiente del producto Crédito tiene prioridad. Una vez cubierto el saldo negativo, el valor restante de la recarga se agrega al Monedero.

=== Boletos para descuento ===
El producto Boletos para descuento, abreviado como BPD, almacena una cantidad de viajes disponibles en su respectivo archivo de valor.

Las reglas del producto pueden restringir su utilización según diversos criterios, incluyendo:

* Día de la semana.
* Horario de uso.
* Número máximo de viajes permitidos por día.

La prioridad de este producto es superior a la del Monedero y al producto Crédito. Por lo tanto, cuando el producto esté activo, existan viajes disponibles y se cumplan las condiciones de uso establecidas, el sistema debe utilizar el producto BPD o BPD2 de forma preferente durante una validación.

== Modelo de seguridad ==
El modelo de seguridad definido para la comunicación entre los medios de pago ''(nivel 0)'' y los lectores de medios de pago ''(nivel 1)'' está basado en criptografía simétrica. En este esquema, ambos dispositivos comparten un secreto denominado ''llave''.

La tecnología [[MIFARE DESFire|MIFARE DESFire EV1]] y [[MIFARE DESFire|MIFARE DESFire EV2]] define los mecanismos necesarios para garantizar la confidencialidad e integridad de la información intercambiada. Asimismo, incorpora un protocolo de autenticación mutua que permite verificar la autenticidad tanto del medio de pago como del lector.

El almacenamiento y uso de las llaves por parte de los lectores debe realizarse mediante [[Módulo de acceso seguro|módulos de acceso seguro (SAM)]]. Estos dispositivos se comunican con los lectores y ejecutan funciones críticas de seguridad, entre ellas:

* Autenticación mutua con el medio de pago.
* Generación y verificación de códigos de autenticación de mensajes (MAC).
* Cifrado y descifrado de información.

Esta especificación exige el uso del algoritmo de cifrado por bloques AES definido por el estándar ''Advanced Encryption Standard'' (AES). En consecuencia, toda comunicación entre un módulo SAM y un medio de pago debe utilizar AES con claves de 128 bits.

Las operaciones de seguridad derivadas del uso de AES-128 deben seguir las especificaciones definidas por MIFARE DESFire EV1. Adicionalmente, las llaves almacenadas en los medios de pago deben ser diversificadas de forma que cada una sea única dentro de toda la red interoperable.

== Diversificación de llaves ==
Todas las llaves almacenadas en los medios de pago deben ser diversificadas. Esto significa que cada llave presente en una tarjeta debe derivarse a partir de una llave maestra almacenada en un [[módulo de acceso seguro]], mediante una función de diversificación criptográfica.

La función de diversificación utilizada debe ser CMAC, de acuerdo con las recomendaciones para llaves AES-128 definidas por NXP.

Los datos utilizados durante el proceso de diversificación están compuestos por los siguientes elementos:

* Identificador único del medio de pago (UID).
* Identificador de la aplicación donde se almacena la llave (ID_App).
* Identificador del sistema interoperable (ID_Sistema).

La generación de una llave diversificada se realiza mediante el cálculo de un CMAC utilizando:

* Una llave maestra ''Mk'' almacenada en el módulo SAM.
* Los datos de diversificación definidos para el medio de pago.

La llave diversificada resultante, denominada ''Ck'', debe ser única para cada medio de pago de la red interoperable.

Los datos de diversificación se construyen utilizando la siguiente secuencia:

<code>0x01 || UID || ID_App || ID_Sistema</code>

Donde:

; UID
: Identificador único del medio de pago.

; ID_App
: Identificador de la aplicación en la que se encuentra la llave. Para el directorio raíz este valor es <code>0x000000</code>.

; ID_Sistema
: Valor asignado al sistema interoperable del Estado de Jalisco.

El resultado del cálculo CMAC corresponde a la llave diversificada que será utilizada por la aplicación o archivo correspondiente dentro del medio de pago.
[[Archivo:Función_de_diversificación_de_llaves.svg|centro|600x600px|Función de diversificación de llaves]]

== Aplicación interoperable en medios de pago MIFARE DESFire ==
La aplicación interoperable define la organización de directorios, archivos, llaves criptográficas y estructuras de datos necesarias para la prestación de servicios dentro de la red interoperable de transporte público del Estado de Jalisco. Asimismo, establece la forma en que deben almacenarse los productos tarifarios, los eventos de uso, la información del usuario y los parámetros operativos requeridos para la operación del sistema.

Las definiciones presentadas en este capítulo se basan en las capacidades de almacenamiento y seguridad ofrecidas por la plataforma [[MIFARE DESFire|MIFARE DESFire EV1]], así como en los estándares BS EN 1545 para sistemas de recaudo en transporte público.

=== Estructura general de archivos ===
La estructura interoperable de Jalisco está compuesta por dos aplicaciones:

; Directorio raíz del medio de pago
: El directorio raíz está presente de forma obligatoria en todos los medios de pago MIFARE DESFire y es seleccionado automáticamente cuando la tarjeta es energizada. Contiene la llave maestra de la tarjeta y controla operaciones administrativas de alto nivel, incluyendo la creación y eliminación de aplicaciones.

; Directorio Jalisco_DF
: ''Jalisco_DF'' constituye la aplicación interoperable utilizada por la red de recaudo del Estado de Jalisco. Este directorio almacena toda la información necesaria para la emisión, distribución, validación y administración de productos dentro del sistema interoperable.

La aplicación interoperable corresponde a un directorio que contiene los archivos requeridos para la operación del sistema de recaudo.
{| class="wikitable"
! style="text-align:center;" |Aplicación (AID)
! colspan="2" |Archivo / Llave
! style="text-align:center;" |File ID
! style="text-align:center;" |Tipo
! style="text-align:center;" |Presencia
!Descripción
|-
| style="text-align:center;" |Directorio raíz

<code>0x000000</code>
| colspan="2" |[[Llave DESFire#Llave maestra PICC|Llave maestra]]
| style="text-align:center;" |—
| style="text-align:center;" |[[Llave DESFire|Llave]]
| style="text-align:center;" |Obligatorio
|Llave maestra de la tarjeta. Controla la creación y eliminación de aplicaciones y permite el acceso administrativo al medio de pago.
|-
| rowspan="22" style="text-align:center;" |Jalisco_DF

<code>0x484000</code>
| colspan="2" |[[Llave DESFire#Llaves de aplicación|Llaves de aplicación]]
| style="text-align:center;" |—
| style="text-align:center;" |[[Llave DESFire|Llave]]
| style="text-align:center;" |Obligatorio
|Conjunto de llaves criptográficas utilizadas por la aplicación interoperable para autenticación y control de acceso.
|-
| colspan="2" |[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Emisión EF|Emisión_EF]]
| style="text-align:center;" |<code>0x01</code>
| style="text-align:center;" |[[Archivo estándar DESFire|Estándar]]
| style="text-align:center;" |Obligatorio
|Información invariable relacionada con la emisión e identificación del medio de pago.
|-
| colspan="2" |[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Entorno EF|Entorno_EF]]
| style="text-align:center;" |<code>0x02</code>
| style="text-align:center;" |[[Archivo estándar DESFire|Estándar]]
| style="text-align:center;" |Obligatorio
|Parámetros generales de la aplicación interoperable y de la red en la que el medio de pago es aceptado.
|-
| colspan="2" |[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Usuario EF|Usuario_EF]]
| style="text-align:center;" |<code>0x03</code>
| style="text-align:center;" |[[Archivo estándar DESFire|Estándar]]
| style="text-align:center;" |Obligatorio
|Información del titular del medio de pago y del perfil tarifario asociado, cuando aplique.
|-
| colspan="2" |[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Funcionario EF|Funcionario_EF]]
|<code>0x10</code>
|[[Archivo con respaldo DESFire|Backup]]
|Opcional
| style="text-align: center;" |Información propietaria asociada a medios de pago de funcionarios.
|-
| colspan="2" |[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/EstadoAplicación EF|EstadoAplicación_EF]]
| style="text-align:center;" |<code>0x04</code>
| style="text-align:center;" |[[Archivo con respaldo DESFire|Backup]]
| style="text-align:center;" |Obligatorio
|Estado operativo de la aplicación interoperable y contadores asociados a su ciclo de vida.
|-
| colspan="2" |[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/ListaProductos EF|ListaProductos_EF]]
| style="text-align:center;" |<code>0x05</code>
| style="text-align:center;" |[[Archivo con respaldo DESFire|Backup]]
| style="text-align:center;" |Obligatorio
|Inventario de productos presentes en el medio de pago y punteros a sus archivos asociados.
|-
| colspan="2" |[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Eventos EF|Eventos_EF]]
| style="text-align:center;" |<code>0x06</code>
| style="text-align:center;" |[[Archivo de registro cíclico DESFire|Cíclico]]
| style="text-align:center;" |Obligatorio
|Historial cíclico de eventos registrados por operaciones como emisión, distribución, recarga, validación y devolución.
|-
| rowspan="3" |Monedero
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Contrato(Producto) EF|ContratoMonedero_EF]]
| style="text-align:center;" |<code>0x07</code>
| style="text-align:center;" |[[Archivo estándar DESFire|Estándar]]
| style="text-align:center;" |Obligatorio
|Contrato asociado al producto Monedero.
|-
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Servicio(Producto) EF|ServicioMonedero_EF]]
| style="text-align:center;" |<code>0x08</code>
| style="text-align:center;" |[[Archivo con respaldo DESFire|Backup]]
| style="text-align:center;" |Obligatorio
|Estado operativo e información dinámica del producto Monedero.
|-
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Valor(Producto) EF|ValorMonedero_EF]]
| style="text-align:center;" |<code>0x09</code>
| style="text-align:center;" |[[Archivo de valor DESFire|Valor]]
| style="text-align:center;" |Obligatorio
|Saldo disponible del producto Monedero.
|-
| rowspan="3" |Crédito
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Contrato(Producto) EF|ContratoCrédito_EF]]
| style="text-align:center;" |<code>0x0A</code>
| style="text-align:center;" |[[Archivo estándar DESFire|Estándar]]
| style="text-align:center;" |Opcional
|Contrato asociado al producto Crédito.
|-
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Servicio(Producto) EF|ServicioCrédito_EF]]
| style="text-align:center;" |<code>0x0B</code>
| style="text-align:center;" |[[Archivo con respaldo DESFire|Backup]]
| style="text-align:center;" |Opcional
|Estado operativo e información dinámica del producto Crédito.
|-
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Valor(Producto) EF|ValorCrédito_EF]]
| style="text-align:center;" |<code>0x0C</code>
| style="text-align:center;" |[[Archivo de valor DESFire|Valor]]
| style="text-align:center;" |Opcional
|Valor negativo o saldo pendiente utilizado por el producto Crédito.
|-
| rowspan="3" |BPD
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Contrato(Producto) EF|ContratoBPD_EF]]
| style="text-align:center;" |<code>0x0D</code>
| style="text-align:center;" |[[Archivo estándar DESFire|Estándar]]
| style="text-align:center;" |Condicional
|Contrato asociado al producto BPD.
|-
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Servicio(Producto) EF|ServicioBPD_EF]]
| style="text-align:center;" |<code>0x0E</code>
| style="text-align:center;" |[[Archivo con respaldo DESFire|Backup]]
| style="text-align:center;" |Condicional
|Estado operativo e información dinámica del producto BPD.
|-
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Valor(Producto) EF|ValorBPD_EF]]
| style="text-align:center;" |<code>0x0F</code>
| style="text-align:center;" |[[Archivo de valor DESFire|Valor]]
| style="text-align:center;" |Condicional
|Cantidad de viajes disponibles del producto BPD.
|-
| rowspan="3" |BPD2
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Contrato(Producto) EF|ContratoBPD2_EF]]
| style="text-align:center;" |<code>0x12</code>
| style="text-align:center;" |[[Archivo estándar DESFire|Estándar]]
| style="text-align:center;" |Condicional
|Contrato asociado al producto BPD2.
|-
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Servicio(Producto) EF|ServicioBPD2_EF]]
| style="text-align:center;" |<code>0x13</code>
| style="text-align:center;" |[[Archivo con respaldo DESFire|Backup]]
| style="text-align:center;" |Condicional
|Estado operativo e información dinámica del producto BPD2.
|-
|[[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco/Valor(Producto) EF|ValorBPD2_EF]]
| style="text-align:center;" |<code>0x14</code>
| style="text-align:center;" |[[Archivo de valor DESFire|Valor]]
| style="text-align:center;" |Condicional
|Cantidad de viajes disponibles del producto BPD2.
|}
Los archivos del producto Monedero son requeridos en toda tarjeta operativa. El producto Crédito es opcional. Para boletos de descuento, debe existir al menos una familia de archivos BPD; normalmente se utiliza BPD como producto principal y BPD2 como variante adicional o alternativa.

Archivo:Función de diversificación de llaves.svg

2026-06-14T02:27:37Z

Nodo Central: Trabajo propio subido con el Asistente de subidas

=={{int:filedesc}}==
{{Information
|description={{es|1=Esquema de demostración de la función de diversificación de llaves.}}
|date=2020-08-10
|source={{own}}
|author=[[User:Nodo Central|Nodo Central]]
|permission=
|other versions=
}}

=={{int:license-header}}==
{{self|cc-zero}}

Plantilla:En

2026-06-14T02:24:58Z

Nodo Central: Plantilla mínima para el asistente de subidas

{{{1|}}}

Plantilla:Es

2026-06-14T02:23:46Z

Nodo Central: Plantilla mínima para el asistente de subidas

{{{1|}}}

Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco

2026-06-14T00:33:08Z

Nodo Central: Simplificación temporal

Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco

2026-06-13T23:53:35Z

Nodo Central: Versión inicial del índice del manual

Página principal

2026-06-13T23:14:06Z

Nodo Central: Página principal

= Bienvenido a la documentación oficial de Nodo Central =

Aquí encontrarás manuales, documentación pública de proyectos, transporte, datos técnicos y notas de investigación.

== Transporte público de Jalisco ==

* [[Manual de especificaciones técnicas para el sistema interoperable de pago electrónico del estado de Jalisco]]
* [[Mi Movilidad/Manual no oficial]]
* [[Mi Movilidad/Tarjeta]]
* [[Mi Movilidad/Rutas]]
* [[Mi Movilidad/Errores comunes]]

== Proyectos ==

* [[Mi Viaje]]
* [[Mi Viaje/Manual de usuario]]
* [[Mi Viaje/Datos técnicos]]
* [[Nodo Central]]

== Investigación y documentación técnica ==

* [[GTFS]]
* [[GTFS/Jalisco]]
* [[NFC]]
* [[MIFARE DESFire]]
* [[Notas técnicas]]

== Páginas administrativas ==

* [[Nodo Central:Acerca de]]
* [[Nodo Central:Política editorial]]
* [[Nodo Central:Derechos de autor]]