Skip to content

A
acs-tcl
Commit d4c89378 authored by Frank Bergmann's avatar Frank Bergmann
Browse files
Options

- Upgrade to V4.0

parent e05cdd45
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 8015 additions and 5001 deletions
acs-tcl.info
View file @ d4c89378
......@@ -2,33 +2,34 @@
<!-- Generated by the OpenACS Package Manager -->
<package key="acs-tcl" url="http://openacs.org/repository/apm/packages/acs-tcl" type="apm_service">
<license>GPL V2.0 or any later version</license>
<package-name>Tcl Library</package-name>
<pretty-plural>Tcl Libraries</pretty-plural>
<initial-install-p>t</initial-install-p>
<singleton-p>t</singleton-p>
<version name="5.1.5" url="http://openacs.org/repository/download/apm/acs-tcl-5.1.5.apm">
<version name="5.6.0" url="http://openacs.org/repository/download/apm/acs-tcl-5.6.0.apm">
<owner url="http://openacs.org">OpenACS</owner>
<summary>The Kernel Tcl API library.</summary>
<release-date>2004-02-28</release-date>
<release-date>2009-11-26</release-date>
<maturity>3</maturity>
<license url="http://www.gnu.org/copyleft/gpl.html">GPL version 2</license>
<vendor url="http://openacs.org">OpenACS</vendor>
<description format="text/html">Contains all the core Tcl API, including the request processor, security and session management, permissions, site-nodes, package management infrastructure, etc.</description>
<license>GPL version 2</license>
<maturity>3</maturity>
<provides url="acs-tcl" version="5.1.4"/>
<requires url="acs-bootstrap-installer" version="5.0.0"/>
<requires url="acs-kernel" version="5.0.0"/>
<provides url="acs-tcl" version="5.6.0"/>
<requires url="acs-bootstrap-installer" version="5.6.0"/>
<requires url="acs-kernel" version="5.6.0"/>
<callbacks>
</callbacks>
<parameters>
<!-- No version parameters -->
<parameter datatype="string" min_n_values="1" max_n_values="1" name="HtmlDocBin" default="/usr/bin/htmldoc" description="path to the executable of htmldoc"/>
<parameter datatype="string" min_n_values="1" max_n_values="1" name="ReturnComplaint" default="/packages/acs-tcl/lib/ad-return-complaint" description="Template to use for the complaint page."/>
<parameter datatype="string" min_n_values="1" max_n_values="1" name="ReturnError" default="/packages/acs-tcl/lib/ad-return-error" description="Template to use for the complaint page."/>
<parameter datatype="string" min_n_values="1" max_n_values="1" name="SuppressHttpPort" default="0" description="Set to 1 to suppress the server's configured port --useful for example, when server is behind a proxy and: connection is switching from https to http or kernel's parameter ForceHostP is set to 1."/>
<parameter datatype="string" min_n_values="1" max_n_values="1" name="UseHostnameDomainforReg" default="0" description="Set to 1 if website uses domains mapped in host_nodes for public users and the hostname's domain as defined in config.tcl for registering users and their sessions."/>
</parameters>
</version>
</package>
catalog/acs-tcl.ar_EG.utf-8.xml
View file @ d4c89378
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-tcl" package_version="5.1.2" locale="ar_EG" charset="utf-8">
<message_catalog package_key="acs-tcl" locale="ar_EG" charset="utf-8">
<msg key="approve">صدّقْ</msg>
<msg key="approve_email">صدّقْ بريد إلكتروني</msg>
......
catalog/acs-tcl.ar_LB.utf-8.xml
View file @ d4c89378
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="ar_LB" charset="utf-8">
<message_catalog package_key="acs-tcl" locale="ar_LB" charset="utf-8">
<msg key="approve">صدّقْ</msg>
<msg key="approve_email">صدّقْ بريد إلكتروني</msg>
......
catalog/acs-tcl.ast_ES.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.2" locale="ast_ES" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="ast_ES" charset="ISO-8859-1">
<msg key="approve">aprobar</msg>
<msg key="approve_email">aprobar correo</msg>
......
catalog/acs-tcl.ca_ES.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="ca_ES" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="ca_ES" charset="ISO-8859-1">
<msg key="approve">aprovar</msg>
<msg key="approve_email">aprovar el correu</msg>
<msg key="ban">expulsar</msg>
<msg key="delete">eliminar</msg>
<msg key="lt_require_email_verific">sollicitar verificaci de correu </msg>
<msg key="reject">refusar</msg>
<msg key="undelete">recuperar (eliminat)</msg>
<msg key="approve">aprova</msg>
<msg key="approve_email">aprova el correu</msg>
<msg key="ban">expulsa</msg>
<msg key="Browser_of_the_user">Cercador d'usuaris: </msg>
<msg key="Comments">&amp;lt;b&amp;gt; Comentaris: &amp;lt;/b&amp;gt;&amp;lt;br&amp;gt;
&amp;lt;span style=&amp;quot;color:red;&amp;quot;&amp;gt; (Per favor, indiqueu qu intentveu fer) &amp;lt;/span&amp;gt;</msg>
<msg key="delete">suprimeix</msg>
<msg key="Detais">Detalls: </msg>
<msg key="Email">Correu electrnic:</msg>
<msg key="Error">Descripci de l'error:</msg>
<msg key="Error_Description">Descripci de l'error:</msg>
<msg key="Error_details">Detalls de l'error</msg>
<msg key="Error_Report">Informe de l'error</msg>
<msg key="File">Arxiu amb error: </msg>
<msg key="Insert_error">S'ha produt un error en inserint informaci en la base de dades: </msg>
<msg key="lt_Automatically_Submite">Error enviat automticament</msg>
<msg key="lt_Error_Report_in_ad_sy">Informe d'error en %system_name%</msg>
<msg key="lt_NB_This_error_was_sub">Aquest error s'ha enviat</msg>
<msg key="lt_require_email_verific">sollicita verificaci de correu </msg>
<msg key="lt_The_email_you_submit">Per favor, introduu una adrea de correu vlida.</msg>
<msg key="lt_User_Id_of_the_user_t">ID d'usuari:</msg>
<msg key="maturity_immature">Immadur</msg>
<msg key="maturity_incompatible">Problemes de compatibilitat </msg>
<msg key="maturity_mature">Madur</msg>
<msg key="maturity_mature_and_standard">Madur i estndard</msg>
<msg key="maturity_new_submission">nova presentaci o venciment desconegut</msg>
<msg key="Page">Pgina amb error:</msg>
<msg key="Previus">Pgina anterior:</msg>
<msg key="Public_User">Usuari pblic</msg>
<msg key="reject">refusa</msg>
<msg key="Report">Informa de l'error </msg>
<msg key="Return_prev">Torna enrere on estaves (abans de l'error)
</msg>
<msg key="Server">Error del servidor </msg>
<msg key="Success_error_submitted">S'ha informat de l'error als desenvolupadors</msg>
<msg key="The">L'error era el segent:</msg>
<msg key="There">S'ha produt un error en el servidor en processar la vostra petici. Ho lamentem.</msg>
<msg key="There_1">S'ha produt un error de servidor</msg>
<msg key="This">Aquest arxiu ha generat un error.</msg>
<msg key="undelete">recupera (eliminat)</msg>
<msg key="User_comments">Comentaris de l'usuari:</msg>
<msg key="User_Name">Nom de l'usuari:</msg>
<msg key="We">Haureu d'especificar alguns detalls sobre el que intentveu fer.</msg>
</message_catalog>
catalog/acs-tcl.ch_zh.utf-8.xml
View file @ d4c89378
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-tcl" package_version="5.1.0" locale="ch_zh" charset="utf-8">
<message_catalog package_key="acs-tcl" locale="ch_zh" charset="utf-8">
<msg key="approve">批准</msg>
<msg key="approve_email">批准email</msg>
......
catalog/acs-tcl.da_DK.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.2" locale="da_DK" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="da_DK" charset="ISO-8859-1">
<msg key="approve">godkend</msg>
<msg key="approve_email">godkend e-mail</msg>
......
catalog/acs-tcl.de_DE.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="de_DE" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="de_DE" charset="ISO-8859-1">
<msg key="a_problem">Ein Problem</msg>
<msg key="approve">Freischalten</msg>
<msg key="approve_email">E-Mail-Adresse besttigen</msg>
<msg key="ban">Deaktivieren</msg>
<msg key="Browser_of_the_user">Der Browser des Users:</msg>
<msg key="Comments"> &lt;b&gt; Kommentare: &lt;/b&gt;&lt;br&gt; &lt;span style=&quot;color:red;&quot;&gt; (Bitte erlutern Sie warum sie dies machen wollen) &lt;/span&gt;</msg>
<msg key="delete">Lschen</msg>
<msg key="Detais">Details:</msg>
<msg key="Email">e-Mail:</msg>
<msg key="Error">Fehlerbeschreibung</msg>
<msg key="error">Fehler</msg>
<msg key="Error_Description">Fehlerbeschreibung</msg>
<msg key="Error_details">Fehler Details</msg>
<msg key="Error_Report">Fehler Report</msg>
<msg key="errors">Fehler</msg>
<msg key="File">Datei mit Fehler:</msg>
<msg key="Insert_error">Bei der Einfgung der Information in die Datenbank trat ein Fehler:</msg>
<msg key="lt__and_resubmit_your_en"> und wiederholen Ihre Eingabe.</msg>
<msg key="lt_Argspec_element_is_in">Die Spezifikation des Arguments '%element%' is ungltig, weil es mehr als zwei Elemente enthlt</msg>
<msg key="lt_Automatically_Submite">Fehler automatisch gemeldet</msg>
<msg key="lt_Error_Report_in_ad_sy">Fehlermeldung in %system_name%</msg>
<msg key="lt_Filter_type_must_be_f">Filtertyp muss 'filter' oder 'post' sein</msg>
<msg key="lt_Flag_name_must_be_a_v">Namen von Markierungszeichen mssen eine gltige Bezeichnung haben.</msg>
<msg key="lt_Flag_names_must_be_al">Namen fr Markierungszeichen drfen nur kleine Buchstaben nutzen</msg>
<msg key="lt_Invalid_date_date_ele">Ungltiges Datum: %date_element% fehlt</msg>
<msg key="lt_Invalid_date_date_ele_1">Ungltiges Datum: %date_element% ist keine natrliche Zahl</msg>
<msg key="lt_Invalid_date_datemont">Ungltiges Datum: %date(month)% %date(day)% %date(year)%</msg>
<msg key="lt_Invalid_date_The_year">Ungltiges Datum: Das Jahr muss vier Ziffern haben.</msg>
<msg key="lt_Invalid_number_of_arg">Ungltige Anzahl an Argumenten fr den Prozess (proc): Der Name des Arguments und der Wert und mgliche Parameter</msg>
<msg key="lt_Invalid_number_of_par">Ungltige Anzahl von Parametern angegeben, um die Auswahl zu filtern</msg>
<msg key="lt_Invalid_time_time_ele">Ungltige Zeit: %time_element% fehlt</msg>
<msg key="lt_Invalid_time_time_is_">Ungltige Zeit: Zeit fehlt</msg>
<msg key="lt_Invalid_time_timetime">Ungltige Zeit: %time(time)% ist ein ungltiges Format</msg>
<msg key="lt_Invalid_time_timetime_1">Ungltige Zeit: %time(time)% %time(ampm)%</msg>
<msg key="lt_Invalid_time_timetime_2">Ungltige Zeit: %time(time)%</msg>
<msg key="lt_Multiple_definitions_">Mehrere Definitionen des ad_page_contract Filters \&quot;%name%\&quot; in %script% and %prior_script%</msg>
<msg key="lt_name_does_not_appear_">%name% scheint keine gltige e-Mail Adresse zu sein.</msg>
<msg key="lt_name_does_not_appear__1">%name% scheint keine gltige US-Telefonnummer zu sein.</msg>
<msg key="lt_name_does_not_appear__2">%name% scheint kein Boolean Wert zu sein.</msg>
<msg key="lt_name_is_not_a_natural">%name% ist keine natrliche Zahl, die eine ganzzahlige Zahl grer oder gleich 0 ist.</msg>
<msg key="lt_name_is_not_a_valid_S">%name% ist kein gltiger SQL Identifikator</msg>
<msg key="lt_name_is_not_an_intege">%name% ist keine ganzzahlige Zahl</msg>
<msg key="lt_name_is_not_in_the_ra">%name% ist nicht im Bereich von \[%min%, %max%\]</msg>
<msg key="lt_name_is_too_long__Ple">%name% ist zu lang. Bitte geben Sie einen Wert ein, der hchstens [lindex $range 1] Buchstaben hat. Der Wert, den Sie eingegeben haben war [string length $value] Buchstaben lang.</msg>
<msg key="lt_name_is_too_long__Ple_1">%name% ist zu lang. Bitte geben Sie einen Wert ein der mindestens [lindex $length 1] Zeichen lang ist. Der Wert den Sie eingeben haben war [string length $value] Zeichen lang.</msg>
<msg key="lt_name_is_too_short__Pl">%name% ist zu kurz. Bitte geben Sie einen Wert ein, der mindestens [lindex $range 0] Zeichen lang ist. Der Wert den Sie eingegeben haben war [string length $value] Zeichen lang.</msg>
<msg key="lt_name_is_too_short__Pl_1">%name% ist zu kurz. Bitte geben Sie einen Wert ein, der mindestens [lindex $length 1] Zeichen lang ist. Der Wert, den Sie eingegeben haben ist [string length $value] Zeichen lang.</msg>
<msg key="lt_NB_This_error_was_sub">Der Fehler wurde bermittelt</msg>
<msg key="lt_Please_back_up_using_">Bitte gehen Sie mit Ihrem Browser zurck und korrigieren den oben stehenden</msg>
<msg key="lt_Problem_with_a_Page_o">Problem mit Ihrer Seite (oder vielleicht mit Ihrer Eingabe)</msg>
<msg key="lt_Problem_with_a_Templa">Problem mit einer Template Seite</msg>
<msg key="lt_Problem_with_your_inp">Problem mit Ihrer Eingabe</msg>
<msg key="lt_require_email_verific">E-Mail-Verifizierung anfordern</msg>
<msg key="lt_The_-requires_element">Das -requires element \&quot;%element%\&quot; enthlt ein Komma.</msg>
<msg key="lt_The_-requires_element_1">Das -requires element \&quot;%element%\&quot; hat zu viele Doppelpunkte</msg>
<msg key="lt_The_email_you_submit">Bitte geben Sie eine gltige e-Mail Adresse ein.</msg>
<msg key="lt_The_flag_name_name_is">Der Namen der Markierung \&quot;%name%\&quot; ist fr ad_page_contract reserviert</msg>
<msg key="lt_The_proc_must_accept_">Die Prozedur muss zwei Argumente akzeptieren, den Namen der Variablen und eine Liste von Filtern</msg>
<msg key="lt_The_signature_for_the">Die Signatur fr die Variable '%formal_name%' war nicht korrekt.</msg>
<msg key="lt_Theres_no_greble_with">Es gibt kein &quot;greble&quot; bei diesem Wert</msg>
<msg key="lt_User_Id_of_the_user_t">User ID:</msg>
<msg key="lt_Valid_switches_are_-r">Gltige Parameter sind: '-requires'</msg>
<msg key="lt_Validation_block_name">Prfblock Namen knnen keine Doppelpunkte enthalten</msg>
<msg key="lt_Validation_key_compla">Prfung von &quot;%key%&quot; gab einen Fehler</msg>
<msg key="lt_value_does_not_appear">%value% scheint keine gltige US-Telefonnummer zu sein.</msg>
<msg key="lt_Value_for_name_contai">Wert fr %name% enthlt HTML Tags</msg>
<msg key="lt_Value_is_not_an_decim">Wert ist keine Dezimalzahl.</msg>
<msg key="lt_Value_is_not_an_integ">Wert ist keine ganzzahlige Zahl</msg>
<msg key="lt_We_had_a_problem_proc">Wir hatten ein Problem, Ihre Anfrage zu verarbeiten:</msg>
<msg key="lt_You_cant_have_two_val">Sie knnen nicht zwei Prfblcke namens '%name%' haben</msg>
<msg key="lt_You_cant_name_your_va">Sie knnen nicht den Prfblock wie ein formalen Parameter benennen.</msg>
<msg key="lt_You_must_specify_some">Sie mssen etwas fr %formal_name% spezifizieren</msg>
<msg key="lt_You_must_supply_a_val">Sie mssen einen Wert fr %formal_name% bestimmen</msg>
<msg key="lt_You_specified_a_path_">Sie haben einen Pfad spezifiziert, der im System nicht erlaubt ist.</msg>
<msg key="lt_Youve_supplied_two_va">Sie haben zwei Werte fr '%formal_name%' angegeben</msg>
<msg key="maturity_immature">Unausgereift</msg>
<msg key="maturity_incompatible">Kompatibilittsprobleme</msg>
<msg key="maturity_mature">Ausgereift</msg>
<msg key="maturity_mature_and_standard">Ausgereift und Standard</msg>
<msg key="maturity_new_submission">Neues Paket oder unbekannter Reifegrad</msg>
<msg key="Page">Seite mit Fehler:</msg>
<msg key="Previus">Vorhergehende Seite:</msg>
<msg key="Public_User">ffentlicher (nicht registrierter) User </msg>
<msg key="reject">Ablehnen</msg>
<msg key="Report">Fehler melden</msg>
<msg key="Return_prev">Zu der Seite zurckgehen, auf der ich vor dem Fehler war</msg>
<msg key="Server">Server Error</msg>
<msg key="some_problems">einige Probleme</msg>
<msg key="Sorry">Entschuldigen Sie bitte!</msg>
<msg key="Success_error_submitted">Der Fehler wurde an die Entwickler berichtet</msg>
<msg key="Thank_you">Danke!</msg>
<msg key="The">Der Fehler war der folgende:</msg>
<msg key="There">Es gab einen Server Error whrend Ihre Anfrage bearbeitet wurde. Wir entschuldigen uns!</msg>
<msg key="There_1">Es gab einen Server Error</msg>
<msg key="This">Diese Datei hat einen Fehler erzeugt.</msg>
<msg key="undelete">Wiederherstellen</msg>
<msg key="User_comments">Kommentare des Users:</msg>
<msg key="User_Name">User Name:</msg>
<msg key="We">Wir wrden es begren, wenn sie einige Details dessen,m was Sie gerade zu tun versuchten, spezifizieren knnten.</msg>
<msg key="We_had">Wir hatten</msg>
<msg key="with_your_input">mit ihrer Eingabe:</msg>
</message_catalog>
catalog/acs-tcl.en_AU.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.2" locale="en_AU" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="en_AU" charset="ISO-8859-1">
<msg key="approve">approve</msg>
<msg key="approve_email">approve email</msg>
......
catalog/acs-tcl.en_US.ISO-8859-1.xml
View file @ d4c89378
This diff is collapsed.
catalog/acs-tcl.es_CO.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.2" locale="es_CO" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="es_CO" charset="ISO-8859-1">
<msg key="approve">aprobar</msg>
<msg key="approve_email">aprobar correo</msg>
......
catalog/acs-tcl.es_ES.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="es_ES" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="es_ES" charset="ISO-8859-1">
<msg key="a_problem">un problema</msg>
<msg key="Administration">Administracin</msg>
<msg key="approve">aprobar</msg>
<msg key="approve_email">aprobar correo</msg>
<msg key="ban">expulsar</msg>
<msg key="Browser_of_the_user">Navegador del usuario:</msg>
<msg key="Comments">&lt;b&gt; Comentarios: &lt;/b&gt;&lt;br&gt; &lt;span style=&quot;color:red;&quot;&gt; (Por favor, describa los pasos que ha seguido) &lt;/span&gt;</msg>
<msg key="delete">borrar</msg>
<msg key="Detais">Detalles:</msg>
<msg key="Email">Email:</msg>
<msg key="Error">Descripcin del error:</msg>
<msg key="error">el error</msg>
<msg key="Error_Description">Descripcin del Error</msg>
<msg key="Error_details">Detalles del Error</msg>
<msg key="Error_Report">Informe de Error</msg>
<msg key="errors">Errores</msg>
<msg key="File">Archivo con error:</msg>
<msg key="Insert_error">Ha habido un error al guardar la informacin en la base de datos</msg>
<msg key="lt__and_resubmit_your_en"> y vuelva a intentarlo.</msg>
<msg key="lt_Argspec_element_is_in">Argspec %element% no es vlido ya que contiene ms de 2 elementos.</msg>
<msg key="lt_Automatically_Submite">Error Registrado Automticamente</msg>
<msg key="lt_Error_Report_in_ad_sy">Informe de Error en %system_name%</msg>
<msg key="lt_Filter_type_must_be_f">El tipo del filtro debe ser &quot;filter&quot; o &quot;post&quot;</msg>
<msg key="lt_Flag_name_must_be_a_v">El nombre del indicador debe ser un identificador vlido</msg>
<msg key="lt_Flag_names_must_be_al">Los nombres de indicadores debe estar en minsculas</msg>
<msg key="lt_Invalid_date_date_ele">Fecha invlida: falta %date_element%</msg>
<msg key="lt_Invalid_date_date_ele_1">Fecha invlida: %date_element% no es un nmero natural</msg>
<msg key="lt_Invalid_date_datemont">Fecha invlida: %date(month)% %date(day)% %date(year)%</msg>
<msg key="lt_Invalid_date_The_year">Fecha invlida: el ao debe contener 4 dgitos</msg>
<msg key="lt_Invalid_number_of_arg">Nmero invlido de argumentos declarados para el procedimiento: el nombre del argumento, su valor y posibles parmetros</msg>
<msg key="lt_Invalid_number_of_par">Nmero invlido de parmetros pasados al filtro</msg>
<msg key="lt_Invalid_time_time_ele">Hora invlida: falta %time_element%</msg>
<msg key="lt_Invalid_time_time_is_">Hora invlida: falta la hora</msg>
<msg key="lt_Invalid_time_timetime">Hora invlida: %time(time)% no est en un formato vlido</msg>
<msg key="lt_Invalid_time_timetime_1">Hora invlida: %time(time)% %time(ampm)%</msg>
<msg key="lt_Invalid_time_timetime_2">Hora invlida: %time(time)%</msg>
<msg key="lt_Multiple_definitions_">Definiciones mltiples del filtro &quot;%name%&quot; en ad_page_contract de %script% y %prior_script%</msg>
<msg key="lt_name_does_not_appear_">%name% no es una direccin de correo vlida</msg>
<msg key="lt_name_does_not_appear__1">%name% no es un nmero de telfono vlido</msg>
<msg key="lt_name_does_not_appear__2">%name% no es un valor booleano</msg>
<msg key="lt_name_is_not_a_natural">%name% no es un nmero natural, es un entero superior o igual a 0</msg>
<msg key="lt_name_is_not_a_valid_S">%name% no es un identificador SQL vlido</msg>
<msg key="lt_name_is_not_an_intege">%name% no es un entero</msg>
<msg key="lt_name_is_not_in_the_ra">%name% no est en el rango \[%min%, %max%\]</msg>
<msg key="lt_name_is_too_long__Ple">%name% es demasiado largo. Por favor, introduzca un valor no superior a [lindex $range 1] caracteres. El valor introducido contiene [string length $value] caracteres.</msg>
<msg key="lt_name_is_too_long__Ple_1">%name% es demasiado largo. Por favor, introduzca un valor no superior a [lindex $length 1] caracteres. El valor introducido contiene [string length $value] caracteres.</msg>
<msg key="lt_name_is_too_short__Pl">%name% es demasiado corto. Por favor, introduzca un valor de al menos [lindex $range 0] caracteres. El valor introducido contiene [string length $value] caracteres.</msg>
<msg key="lt_name_is_too_short__Pl_1">%name% es demasiado corto. Por favor, introduzca un valor de al menos [lindex $length 0] caracteres. El valor introducido contiene [string length $value] caracteres.</msg>
<msg key="lt_NB_This_error_was_sub">El error ha sido registrado</msg>
<msg key="lt_Please_back_up_using_">Por favor, vuelva atrs, corrija </msg>
<msg key="lt_Problem_with_a_Page_o">Hubo un problema con la pgina</msg>
<msg key="lt_Problem_with_a_Templa">Hubo un problema con la plantilla de la pgina</msg>
<msg key="lt_Problem_with_your_inp">Hubo un problema con los datos introducidos</msg>
<msg key="lt_require_email_verific">solicitar verificacin de correo</msg>
<msg key="lt_The_-requires_element">El elemento -requires &quot;%element%&quot; contiene una coma.</msg>
<msg key="lt_The_-requires_element_1">El elemento -requires &quot;%element%&quot; contiene demasiados &quot;:&quot;.</msg>
<msg key="lt_The_email_you_submit">Por favor, introduzca una direccin de correo vlida.</msg>
<msg key="lt_The_flag_name_name_is">El nombre de indicador &quot;%name%&quot; est reservado para ad_page_contract</msg>
<msg key="lt_The_proc_must_accept_">El procedimiento debe aceptar 2 argumentos, el nombre de la variable y una lista de filtros</msg>
<msg key="lt_The_signature_for_the">La signatura de la variable %formal_name% no es correcta.</msg>
<msg key="lt_Theres_no_greble_with">No hay &quot;greble&quot; con ese valor</msg>
<msg key="lt_User_Id_of_the_user_t">ID de usuario:</msg>
<msg key="lt_Valid_switches_are_-r">Los switches vlidos son: -requires</msg>
<msg key="lt_Validation_block_name">El nombre del bloque de validacin no puede contener &quot;:&quot;</msg>
<msg key="lt_Validation_key_compla">Advertencia desde la validacin &quot;%key%&quot;</msg>
<msg key="lt_value_does_not_appear">%value% no es un nmero de telfono vlido.</msg>
<msg key="lt_Value_for_name_contai">El valor de %name% contiene etiquetas HTML</msg>
<msg key="lt_Value_is_not_an_decim">El valor no es un nmero decimal.</msg>
<msg key="lt_Value_is_not_an_integ">El valor no es un entero</msg>
<msg key="lt_We_had_a_problem_proc">Hubo un problema al procesar su peticin:</msg>
<msg key="lt_You_cant_have_two_val">No puede haber 2 bloques de validacin con el nombre &quot;%name%&quot;</msg>
<msg key="lt_You_cant_name_your_va">El bloque de validacin no puede tener el mismo nombre que un argumento formal</msg>
<msg key="lt_You_must_specify_some">Debe especificar algo para %formal_name%</msg>
<msg key="lt_You_must_supply_a_val">Debe dar un valor a %formal_name%</msg>
<msg key="lt_You_specified_a_path_">Especific un camino haca un fichero que no est permitido en este sistema</msg>
<msg key="lt_Youve_supplied_two_va">Ha proporcionado dos valores a %formal_name%</msg>
<msg key="maturity_immature">Inestable</msg>
<msg key="maturity_incompatible">Problemas de compatibilidad</msg>
<msg key="maturity_mature">Estable</msg>
<msg key="maturity_mature_and_standard">Estable y Estndar</msg>
<msg key="maturity_new_submission">Nueva aportacin o Nivel de Estabilidad Desconocido</msg>
<msg key="Page">Pgina con error:</msg>
<msg key="Page_current_of_total">Pgina %current% de %total%</msg>
<msg key="Percentage_complete">Porcentaje completado</msg>
<msg key="Previus">Pgina anterior:</msg>
<msg key="Public_User">Pblico</msg>
<msg key="reject">rechazar</msg>
<msg key="Report">Informe de Error</msg>
<msg key="Return_prev">Volver donde estaba (antes del error)</msg>
<msg key="Server">Error de Servidor</msg>
<msg key="some_problems">algunos problemas</msg>
<msg key="Sorry">Lo sentimos.</msg>
<msg key="Success_error_submitted">El error ha sido enviado a los desarrolladores</msg>
<msg key="Thank_you">Gracias.</msg>
<msg key="The">El error ha sido el siguiente:</msg>
<msg key="There">Ha habido un error al procesar su peticin. Disculpe las molestias.</msg>
<msg key="There_1">Ha habido un error del servidor</msg>
<msg key="This">El archivo ha generado un error.</msg>
<msg key="undelete">recuperar (borrado)</msg>
<msg key="User_comments">Commentarios de usuario:</msg>
<msg key="User_Name">Nombre de Usuario:</msg>
<msg key="We">Le agradecemos que indique algunos detalles sobre lo que estaba intentando realizar.</msg>
<msg key="We_had">Ha sucedido</msg>
<msg key="with_your_input">con su peticin:</msg>
</message_catalog>
catalog/acs-tcl.es_GT.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.2" locale="es_GT" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="es_GT" charset="ISO-8859-1">
<msg key="approve">aprobar</msg>
<msg key="approve_email">aprobar correo</msg>
......
catalog/acs-tcl.eu_ES.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.2" locale="eu_ES" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="eu_ES" charset="ISO-8859-1">
<msg key="approve">onartu</msg>
<msg key="approve_email">posta onartu</msg>
......
catalog/acs-tcl.fa_IR.utf-8.xml
View file @ d4c89378
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-tcl" package_version="5.1.2" locale="fa_IR" charset="utf-8">
<message_catalog package_key="acs-tcl" locale="fa_IR" charset="utf-8">
<msg key="approve">تائيد</msg>
<msg key="approve_email">تائيد پست الکترونيک</msg>
......
catalog/acs-tcl.fi_FI.utf-8.xml
View file @ d4c89378
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-tcl" package_version="5.1.2" locale="fi_FI" charset="utf-8">
<message_catalog package_key="acs-tcl" locale="fi_FI" charset="utf-8">
<msg key="approve">hyväksy</msg>
<msg key="approve_email">hyväksy sähköpostiviesti</msg>
......
catalog/acs-tcl.fr_FR.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="fr_FR" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="fr_FR" charset="ISO-8859-1">
<msg key="approve">admettre</msg>
<msg key="approve_email">admettre email</msg>
......
catalog/acs-tcl.gl_ES.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.2" locale="gl_ES" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="gl_ES" charset="ISO-8859-1">
<msg key="a_problem">un problema</msg>
<msg key="approve">aprobar</msg>
<msg key="approve_email">aprobar correo-e</msg>
<msg key="ban">banir</msg>
<msg key="ban">expulsar</msg>
<msg key="Browser_of_the_user">Navegador do usuario:</msg>
<msg key="Comments">&lt;b&gt; Comentarios: &lt;/b&gt;&lt;br&gt; &lt;span style=&quot;color:red;&quot;&gt; (Por favor, describa os pasos que seguiu) &lt;/span&gt; </msg>
<msg key="delete">eliminar</msg>
<msg key="Detais">Detalles</msg>
<msg key="Email">Email:</msg>
<msg key="Error">Descripcin do erro</msg>
<msg key="error">erro</msg>
<msg key="Error_Description">Descripcin do error</msg>
<msg key="Error_details">Detalles dos erros</msg>
<msg key="Error_Report">Informe de erro</msg>
<msg key="errors">erros</msg>
<msg key="File">Arquivo con erro</msg>
<msg key="Insert_error">Houbo un erro guardar a informacin na base de datos</msg>
<msg key="lt__and_resubmit_your_en">, e volva a intentalo</msg>
<msg key="lt_Argspec_element_is_in">Argspec '%element%' non vlido, xa que contn mis de 2 elementos</msg>
<msg key="lt_Automatically_Submite">Erro Rexistrado Automticamente</msg>
<msg key="lt_Error_Report_in_ad_sy">Informe de erro en %system_name%</msg>
<msg key="lt_Filter_type_must_be_f">O tipo do filtro debe ser 'filter' ou 'post'</msg>
<msg key="lt_Flag_name_must_be_a_v">O nome do indicador deber ser un identificador vlido</msg>
<msg key="lt_Flag_names_must_be_al">Os nomes de indicadores debe estar en minsculas</msg>
<msg key="lt_Invalid_date_date_ele">Data invlida: %date_element% is missing</msg>
<msg key="lt_Invalid_date_date_ele_1">Data invlida: %date_element% non un nmero natural</msg>
<msg key="lt_Invalid_date_datemont">Data invlida: %date(month)% %date(day)% %date(year)%</msg>
<msg key="lt_Invalid_date_The_year">Fecha invlida: O ano debe conter 4 dxitos</msg>
<msg key="lt_Invalid_number_of_arg">Nmero invlido de argumentos declarados para o procedemento: o nome do argumento, o seu valor e posibles parmetros</msg>
<msg key="lt_Invalid_number_of_par">Nmero invlido de parmetros pasados ao filtro</msg>
<msg key="lt_Invalid_time_time_ele">Hora invlida: falta %time_element%</msg>
<msg key="lt_Invalid_time_time_is_">Hora invlida: falta a hora</msg>
<msg key="lt_Invalid_time_timetime">Hora invlida: %time(time)% non est nun formato vlido</msg>
<msg key="lt_Invalid_time_timetime_1">Hora invlida: %time(time)% %time(ampm)%</msg>
<msg key="lt_Invalid_time_timetime_2">Hora invlida: %time(time)%</msg>
<msg key="lt_Multiple_definitions_">Definicins mltiples do filtro &quot;%name%&quot; en ad_page_contract de %script% e %prior_script% </msg>
<msg key="lt_name_does_not_appear_">%name% non unha direccin de correo vlida</msg>
<msg key="lt_name_does_not_appear__1">%name% non un nmero de telfono vlido</msg>
<msg key="lt_name_does_not_appear__2">%name% non un valor booleano</msg>
<msg key="lt_name_is_not_a_natural">%name% non un nmero natural, un entero superior ou igual a 0.</msg>
<msg key="lt_name_is_not_a_valid_S">%name% non un identificador SQL vlido</msg>
<msg key="lt_name_is_not_an_intege">%name% non un entero</msg>
<msg key="lt_name_is_not_in_the_ra">%name% non est no rango \[%min%, %max%\]</msg>
<msg key="lt_name_is_too_long__Ple">%name% demasiado longo. Por favor, introduza un valor non superior a [lindex $range 1] caracteres. O valor introducido conten [string length $value] caracteres. </msg>
<msg key="lt_name_is_too_long__Ple_1">%name% demasiado longo. Por favor, introduza un valor non superior a [lindex $length 1] caracteres. O valor introducido conten [string length $value] caracteres. </msg>
<msg key="lt_name_is_too_short__Pl">%name% demasiado corto. Por favor, introduza un valor de polo menos [lindex $range 0] caracteres. O valor introducido conten [string length $value] caracteres. </msg>
<msg key="lt_name_is_too_short__Pl_1">%name% demasiado corto. Por favor, introduza un valor de polo menos [lindex $length 0] caracteres. O valor introducido contn [string length $value] caracteres. </msg>
<msg key="lt_NB_This_error_was_sub">O erro foi rexistrado</msg>
<msg key="lt_Please_back_up_using_">Por favor, volve atrs e corrixa o descrito arriba</msg>
<msg key="lt_Problem_with_a_Page_o">Houbo un problema coa pxina</msg>
<msg key="lt_Problem_with_a_Templa">Houbo un problema coa plantilla da pxina</msg>
<msg key="lt_Problem_with_your_inp">Houbo un problema cos datos introducidos</msg>
<msg key="lt_require_email_verific">requerir verificacin por correo-e</msg>
<msg key="lt_The_-requires_element">O elemento -requires &quot;%element%&quot; contn unha coma.</msg>
<msg key="lt_The_-requires_element_1">O elemento -requires &quot;%element%&quot; contn demasiados &quot;:&quot;. </msg>
<msg key="lt_The_email_you_submit">Por favor, introduza unha direccin de correo vlida.</msg>
<msg key="lt_The_flag_name_name_is">O nome de indicador &quot;%name%&quot; est reservado para ad_page_contract </msg>
<msg key="lt_The_proc_must_accept_">O procedemento debe aceptar 2 argumentos, o nome da variable e unha lista de filtros.</msg>
<msg key="lt_The_signature_for_the">A asignatura da variable %formal_name% non correcta. </msg>
<msg key="lt_Theres_no_greble_with">Non hai &quot;greble&quot; con ese valor</msg>
<msg key="lt_User_Id_of_the_user_t">ID de usuario:</msg>
<msg key="lt_Valid_switches_are_-r">Los switches vlidos son: -requires</msg>
<msg key="lt_Validation_block_name">O nome do bloque de validacin non pode conter &quot;:&quot;</msg>
<msg key="lt_Validation_key_compla">Advertencia desde a validacin &quot;%key%&quot; </msg>
<msg key="lt_value_does_not_appear">%value% non un nmero de telfono vlido. </msg>
<msg key="lt_Value_for_name_contai">O valor de %name% contn etiquetas HTML </msg>
<msg key="lt_Value_is_not_an_decim">O valor non un nmero decimal.</msg>
<msg key="lt_Value_is_not_an_integ">O valor non un enteiro</msg>
<msg key="lt_We_had_a_problem_proc">Houbo un problema procesa-la sa peticin:</msg>
<msg key="lt_You_cant_have_two_val">Non pode haber 2 bloques de validacin co nome'%name%'</msg>
<msg key="lt_You_cant_name_your_va">O bloque de validacin non pode ter o mesmo nome que un argumento formal</msg>
<msg key="lt_You_must_specify_some">Debe especificar algo para %formal_name%</msg>
<msg key="lt_You_must_supply_a_val">Debe dar un valor a %formal_name%</msg>
<msg key="lt_You_specified_a_path_">Especificou un camio cara un fichero que non est permitido neste sistema</msg>
<msg key="lt_Youve_supplied_two_va">Debe dar 2 valores a '%formal_name%'</msg>
<msg key="maturity_immature">Inestable</msg>
<msg key="maturity_incompatible">Problemas de compatibilidade</msg>
<msg key="maturity_mature">Estable</msg>
<msg key="maturity_mature_and_standard">Estable e Estndar</msg>
<msg key="maturity_new_submission">Nova aportacin ou Nivel de Estabilidade Desconocido</msg>
<msg key="Page">Pxina con error:</msg>
<msg key="Previus">Pxina anterior:</msg>
<msg key="Public_User">Pblico</msg>
<msg key="reject">rexeitar</msg>
<msg key="Report">Informe de Erro</msg>
<msg key="Return_prev">Voltar onde estaba (antes do erro)</msg>
<msg key="Server">Erro de Servidor</msg>
<msg key="some_problems">algns problemas</msg>
<msg key="Sorry">O sentimos</msg>
<msg key="Success_error_submitted">O erro foi enviado aos desarrolladores</msg>
<msg key="Thank_you">Gracias</msg>
<msg key="The">O erro foi o seguinte:</msg>
<msg key="There">Houbo un erro procesa-la sa peticin. Disculpe as molestias</msg>
<msg key="There_1">Houbo un erro do servidor</msg>
<msg key="This">O arquivo xenerou un erro.</msg>
<msg key="undelete">recuperar</msg>
<msg key="User_comments">Comentarios de usuario:</msg>
<msg key="User_Name">Nome de Usuario</msg>
<msg key="We">Agradecmoslle que indique algns detalles sobre o que estaba intentando realizar.</msg>
<msg key="We_had">We had</msg>
<msg key="with_your_input">Ca sa peticin:</msg>
</message_catalog>
catalog/acs-tcl.hu_HU.utf-8.xml
View file @ d4c89378
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-tcl" package_version="5.1.2" locale="hu_HU" charset="utf-8">
<message_catalog package_key="acs-tcl" locale="hu_HU" charset="utf-8">
<msg key="approve">jóváhagy</msg>
<msg key="approve_email">emailt jóváhagy</msg>
......
catalog/acs-tcl.it_IT.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="it_IT" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="it_IT" charset="ISO-8859-1">
<msg key="approve">approva</msg>
<msg key="approve_email">approva l'e-mail</msg>
<msg key="ban">escludi</msg>
<msg key="approve_email">approva l'email</msg>
<msg key="ban">bandisci</msg>
<msg key="delete">cancella</msg>
<msg key="lt_require_email_verific">richiedi la verifica dell'e-mail</msg>
<msg key="lt_require_email_verific">richiedi la verifica dell'email</msg>
<msg key="reject">rifiuta</msg>
<msg key="undelete">recupera</msg>
</message_catalog>
catalog/acs-tcl.ja_JP.utf-8.xml
View file @ d4c89378
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="ja_JP" charset="utf-8">
<message_catalog package_key="acs-tcl" locale="ja_JP" charset="utf-8">
<msg key="delete">削除</msg>
</message_catalog>
catalog/acs-tcl.ko_KR.utf-8.xml
View file @ d4c89378
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="ko_KR" charset="utf-8">
<message_catalog package_key="acs-tcl" locale="ko_KR" charset="utf-8">
<msg key="approve">승인</msg>
<msg key="approve_email">승인 전자우편</msg>
......
catalog/acs-tcl.ms_MY.utf-8.xml
View file @ d4c89378
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-tcl" package_version="5.1.2" locale="ms_MY" charset="utf-8">
<message_catalog package_key="acs-tcl" locale="ms_MY" charset="utf-8">
<msg key="approve">lulus</msg>
<msg key="approve_email">luluskan e-mel</msg>
......
catalog/acs-tcl.nl_NL.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="nl_NL" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="nl_NL" charset="ISO-8859-1">
<msg key="a_problem">een probleem</msg>
<msg key="approve">goedkeuren</msg>
<msg key="approve_email">e-mail goedkeuren</msg>
<msg key="ban">uitsluiten</msg>
<msg key="Browser_of_the_user">Browser van gebruiker</msg>
<msg key="Comments">&lt;b&gt;Opmerkingen: &lt;/b&gt;&lt;br&gt; &lt;span style=&quot;color:red;&quot;&gt; (Leg alstublieft uit wat u wilt doen) &lt;/span&gt;</msg>
<msg key="delete">verwijderen</msg>
<msg key="Detais">Details:</msg>
<msg key="Email">E-mail:</msg>
<msg key="Error">Foutbeschrijving:</msg>
<msg key="error">fout</msg>
<msg key="Error_Description">Foutbeschrijving</msg>
<msg key="Error_details">Foutdetails</msg>
<msg key="Error_Report">Foutrapport</msg>
<msg key="errors">fouten</msg>
<msg key="File">Bestand met fout:</msg>
<msg key="Insert_error">Er is een fout opgetreden bij het invoegen van de gegevens in de databank.</msg>
<msg key="lt__and_resubmit_your_en">, en dien uw lid opnieuw in</msg>
<msg key="lt_Argspec_element_is_in">Argspec '%element%' is ongeldig omdat het meer dan twee elementen bevat</msg>
<msg key="lt_Automatically_Submite">Fout automatisch ingestuurd</msg>
<msg key="lt_Error_Report_in_ad_sy">Foutrapport in %system_name%</msg>
<msg key="lt_Filter_type_must_be_f">Filter moet van het type 'filter' of 'post' zijn</msg>
<msg key="lt_Flag_name_must_be_a_v">Vlagnaam moet een geldige symboolnaam zijn</msg>
<msg key="lt_Flag_names_must_be_al">Vlagnamen moeten geheel uit kleine letters bestaan</msg>
<msg key="lt_Invalid_date_date_ele">Ongeldige datum: %date_element% ontbreekt</msg>
<msg key="lt_Invalid_date_date_ele_1">Ongeldige datum: %date_element% is geen natuurlijk getal</msg>
<msg key="lt_Invalid_date_datemont">Ongeldige datum: %date(month)% %date(day)% %date(year)%</msg>
<msg key="lt_Invalid_date_The_year">Ongeldige datum: Een jaar bestaat uit 4 cijfers.</msg>
<msg key="lt_Invalid_number_of_arg">Ongeldig aantal paramaters gedeclareerd voor de procedure: de parameternaam en de waarde en evenuteel nog extra parameters</msg>
<msg key="lt_Invalid_number_of_par">Ongeldig aantal parameters aan filterbereik doorgegeven</msg>
<msg key="lt_Invalid_time_time_ele">Ongeldige tijd: %time_element% ontbreekt</msg>
<msg key="lt_Invalid_time_time_is_">Ongeldige tijd: tijd ontbreekt</msg>
<msg key="lt_Invalid_time_timetime">Ongeldige tijd: %time(time)% heeft een ongeldige indeling</msg>
<msg key="lt_Invalid_time_timetime_1">Ongeldige tijd: %time(time)% %time(ampm)%</msg>
<msg key="lt_Invalid_time_timetime_2">Ongeldige tijd %time(time)%</msg>
<msg key="lt_Multiple_definitions_">Meerdere definities van ad_page_contract_filter \&quot;%name%\&quot; in %script% en %prior_script%</msg>
<msg key="lt_name_does_not_appear_">%name% ziet er niet uit als een geldig e-mailadres</msg>
<msg key="lt_name_does_not_appear__1">%name% ziet er niet uit als een Amerikaans telefoonnummer</msg>
<msg key="lt_name_does_not_appear__2">%name% ziet er niet uit als een booleaanse waarde</msg>
<msg key="lt_name_is_not_a_natural">%name% ziet er niet uit als een natuurlijk getal, dat is, een geheel getal groter dan 0.</msg>
<msg key="lt_name_is_not_a_valid_S">%name% is geen geldig SQL-symbool</msg>
<msg key="lt_name_is_not_an_intege">%naam% is geen geheel getal</msg>
<msg key="lt_name_is_not_in_the_ra">%name% zit niet in het bereik \[%min%..%max%\]</msg>
<msg key="lt_name_is_too_long__Ple">%name% is te lang. Geef alstublieft een waarde van minimaal [lindex $range 1] tekens lang in. De waarde die u ingaf was [string length $value] tekens lang.</msg>
<msg key="lt_name_is_too_long__Ple_1">%name% is te lang. Geef alstublieft een waarde in van maximaal [lindex $length 1] tekens lang. De waarde die u ingaf was [string length $value] tekens lang.</msg>
<msg key="lt_name_is_too_short__Pl">%name% is te kort. Geef alstublieft een waarde van minimaal [lindex $range 0] tekens lang in. De waarde die u ingaf was [string length $value] tekens lang.</msg>
<msg key="lt_name_is_too_short__Pl_1">%name% is te kort. Geef alstublieft een waarde van minimaal [lindex $length 1] tekens lang in. De waarde die u ingaf was [string length $value] tekens lang.</msg>
<msg key="lt_NB_This_error_was_sub">Deze fout is ingestuurd</msg>
<msg key="lt_Please_back_up_using_">Ga met uw browser terug naar de vorige bladzijde en corrigeer het bovenstaande</msg>
<msg key="lt_Problem_with_a_Page_o">Probleem met pagina (kan door uw invoer veroorzaakt zijn)</msg>
<msg key="lt_Problem_with_a_Templa">Probleem met sjabloonpagina</msg>
<msg key="lt_Problem_with_your_inp">Probleem met uw invoer</msg>
<msg key="lt_require_email_verific">E-mailbevestiging vereisen</msg>
<msg key="lt_The_-requires_element">The element van -requires, \&quot;%element%\&quot; bevat een komma.</msg>
<msg key="lt_The_-requires_element_1">The element van -requires, \&quot;%element%\&quot; bevat te veel dubbele punten.</msg>
<msg key="lt_The_email_you_submit">Geef alstublieft een geldig e-mailadres is.</msg>
<msg key="lt_The_flag_name_name_is">De vlagnaam \&quot;%name%\&quot; gereserveerd voor ad_page_contract.</msg>
<msg key="lt_The_proc_must_accept_">De procedure moet twee parameters accepteren, de naam van de variabele en een lijst van filters.</msg>
<msg key="lt_The_signature_for_the">De handtekening voor de variabele '%formal_name%' was niet juist.</msg>
<msg key="lt_Theres_no_greble_with">Er is geen &quot;greble&quot; met die waarde</msg>
<msg key="lt_User_Id_of_the_user_t">Gebruikers-ID</msg>
<msg key="lt_Valid_switches_are_-r">Geldige opties zijn: -requires</msg>
<msg key="lt_Validation_block_name">Validatiebloknamen kunnen geen puntkomma bevatten.</msg>
<msg key="lt_Validation_key_compla">Validatie \&quot;%key%\&quot; klaagde</msg>
<msg key="lt_value_does_not_appear">%value% ziet er niet als een Amerikaans telefoonnummer uit</msg>
<msg key="lt_Value_for_name_contai">Waarde voor %name% bevat HTML-tags</msg>
<msg key="lt_Value_is_not_an_decim">Waarde is geen decimaal getal.</msg>
<msg key="lt_Value_is_not_an_integ">Waarde is geen integer</msg>
<msg key="lt_We_had_a_problem_proc">Er is een probleem opgetreden tijdens het verwerken van uw verzoek:</msg>
<msg key="lt_You_cant_have_two_val">U kunt geen twee validatieblokken met de naam '%name%' hebben.</msg>
<msg key="lt_You_cant_name_your_va">U kunt uw validatieblokken niet hetzelfde noemen als een formele parameter</msg>
<msg key="lt_You_must_specify_some">U moet iets opgeven voor %formal_name%</msg>
<msg key="lt_You_must_supply_a_val">U moet een waarde opgeven voor %formal_name%</msg>
<msg key="lt_You_specified_a_path_">U heeft een pad naar een bestand opgegeven dat niet toegestaan op het systeem is.</msg>
<msg key="lt_Youve_supplied_two_va">U hebt twee waarden voor '%formal_name%' opgegeven.</msg>
<msg key="maturity_immature">Nog niet rijp voor produktie</msg>
<msg key="maturity_incompatible">Compatibiliteitsproblemen</msg>
<msg key="maturity_mature">Rijp voor produktie</msg>
<msg key="maturity_mature_and_standard">Produktierijp en standaard.</msg>
<msg key="maturity_new_submission">Nieuw ingezonden of produktierijpheid niet bekend</msg>
<msg key="Page">Pagina met fout:</msg>
<msg key="Previus">Vorige fout:</msg>
<msg key="Public_User">Publieke gebruiker</msg>
<msg key="reject">weigeren</msg>
<msg key="Report">Rapporteert fout</msg>
<msg key="Return_prev">Breng me terug naar waar ik was (voor de fout)</msg>
<msg key="Server">Serverfout</msg>
<msg key="some_problems">enige problemen</msg>
<msg key="Sorry">Sorry.</msg>
<msg key="Success_error_submitted">De fout is naar het ontwikkelteam gestuurd.</msg>
<msg key="Thank_you">Dank u.</msg>
<msg key="The">De fout was als volgt:</msg>
<msg key="There">Er is een serverfout opgetreden tijdens het behandelen van uw verzoek. We verontschuldigen ons.</msg>
<msg key="There_1">Er is een serverfout opgetreden</msg>
<msg key="This">Dit bestand heeft een fout gegenereerd.</msg>
<msg key="undelete">terughalen</msg>
<msg key="User_comments">Gebruikersopmerkingen</msg>
<msg key="User_Name">Gebruikersnaam:</msg>
<msg key="We">We zouden het op prijs stellen als u enige details kon geven wat u aan het doen was.</msg>
<msg key="We_had">Er is</msg>
<msg key="with_your_input">met uw invoer:</msg>
</message_catalog>
catalog/acs-tcl.nn_NO.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="nn_NO" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="nn_NO" charset="ISO-8859-1">
<msg key="approve">godkjenn</msg>
<msg key="approve_email">godkjenn e-post</msg>
......
catalog/acs-tcl.no_NO.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="no_NO" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="no_NO" charset="ISO-8859-1">
<msg key="approve">godkjenn</msg>
<msg key="approve_email">godkjenn e-post</msg>
......
catalog/acs-tcl.pl_PL.utf-8.xml
View file @ d4c89378
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-tcl" package_version="5.1.2" locale="pl_PL" charset="utf-8">
<message_catalog package_key="acs-tcl" locale="pl_PL" charset="utf-8">
<msg key="a_problem">problem</msg>
<msg key="approve">zatwierdź</msg>
<msg key="approve_email">zatwierdź email</msg>
<msg key="ban">wyrzuć</msg>
<msg key="Browser_of_the_user">Przeglądarka Użytkownika:</msg>
<msg key="delete">usuń</msg>
<msg key="Detais">Szczegóły:</msg>
<msg key="Email">Email:</msg>
<msg key="Error">Opis Błędu:</msg>
<msg key="error">błąd</msg>
<msg key="Error_Description">Opis Błędu</msg>
<msg key="Error_details">Szczegóły Błędu</msg>
<msg key="Error_Report">Raprort Błędu</msg>
<msg key="errors">błędy</msg>
<msg key="File">Plik z błędem:</msg>
<msg key="Insert_error">Podczas wstawianie danych do bazy wystąpił błąd:</msg>
<msg key="lt__and_resubmit_your_en">, i ponownie wyślij Twój wpis.</msg>
<msg key="lt_Automatically_Submite">Błąd Wysłany Automatycznie</msg>
<msg key="lt_Error_Report_in_ad_sy">Raport Błędów w %system_name%</msg>
<msg key="lt_Filter_type_must_be_f">Typu filtru musi być 'filer' lub 'post'</msg>
<msg key="lt_Flag_name_must_be_a_v">Nazwa flagi musi byc prawidłowym identyfikatorem</msg>
<msg key="lt_Flag_names_must_be_al">Nazwy flag mogą zawierać tylko małe litery</msg>
<msg key="lt_Invalid_date_date_ele">Błędna data: brak elementu %date_element%</msg>
<msg key="lt_Invalid_date_The_year">Błędna data: Rok musi zawierać 4 cyfry.</msg>
<msg key="lt_Invalid_time_time_is_">Błędny czas: nie wprowadzono czasu</msg>
<msg key="lt_Invalid_time_timetime">Błędny czas: %time(time)% ma błędny format</msg>
<msg key="lt_name_does_not_appear_">%name% nie jest prawidłowym adresem email</msg>
<msg key="lt_name_does_not_appear__1">%name% nie jest prawidłowym numerem telefonu w USA</msg>
<msg key="lt_require_email_verific">wymagaj potwierdzenia emailem</msg>
<msg key="reject">odrzuć</msg>
<msg key="undelete">przywróć</msg>
......
catalog/acs-tcl.pt_BR.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="pt_BR" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="pt_BR" charset="ISO-8859-1">
<msg key="a_problem">um problema</msg>
<msg key="approve">aprovar</msg>
<msg key="approve_email">aprovar email</msg>
<msg key="ban">banir</msg>
<msg key="Browser_of_the_user">Navegador do Usurio:</msg>
<msg key="Comments">&lt;b&gt; Commentrios: &lt;/b&gt;&lt;br&gt; &lt;span style=&quot;color:red;&quot;&gt; (Por favor explique o que est tentando fazer) &lt;/span&gt;</msg>
<msg key="delete">apagar</msg>
<msg key="Detais">Detalhes:</msg>
<msg key="Email">Endereo Eletrnico:</msg>
<msg key="Error">Descrio do Erro:</msg>
<msg key="error">erro</msg>
<msg key="Error_Description">Descrio do Erro</msg>
<msg key="Error_details">Detalhes do Erro</msg>
<msg key="Error_Report">Relatrio do Erro</msg>
<msg key="errors">erros</msg>
<msg key="File">Arquivo com erro:</msg>
<msg key="Insert_error">Ocorreu um erro ao inserir a informaao no banco de dados:</msg>
<msg key="lt__and_resubmit_your_en">, e submeta os dados novamente.</msg>
<msg key="lt_Argspec_element_is_in">Argspec '%element%' invlidoi, porque contm mais de dois elementos.</msg>
<msg key="lt_Automatically_Submite">Erro submetido automaticamente</msg>
<msg key="lt_Error_Report_in_ad_sy">Relatrio de Erro em %system_name%</msg>
<msg key="lt_Filter_type_must_be_f">Tipo de filtro deve ser 'filter' ou 'post'</msg>
<msg key="lt_Flag_name_must_be_a_v">Nome do Flag deve ser um identificador vlido</msg>
<msg key="lt_Flag_names_must_be_al">Nomes do Flag devem ser grafados em caixa baixa</msg>
<msg key="lt_Invalid_date_date_ele">Data invlida; %date_element% est faltando</msg>
<msg key="lt_Invalid_date_date_ele_1">Data invlida: %date_element% no um nmero natural</msg>
<msg key="lt_Invalid_date_datemont">Data invlida: %date(month)% %date(day)% %date(year)%</msg>
<msg key="lt_Invalid_date_The_year">Invalid date: O ano deve conter quatro dgitos.</msg>
<msg key="lt_Invalid_number_of_arg">Nmero invlido de argumentos declarados para o procedimento: nome do argumento, valor e possveis parmetros</msg>
<msg key="lt_Invalid_number_of_par">Nmero invlido de parmetros passados para a faixa do filtro/</msg>
<msg key="lt_Invalid_time_time_ele">Horrio invlido: %time_element% omitido</msg>
<msg key="lt_Invalid_time_time_is_">Horrio invlido: hora omitida</msg>
<msg key="lt_Invalid_time_timetime">Horrio invlido: %time(time)% um formato invlido</msg>
<msg key="lt_Invalid_time_timetime_1">Horrio invlido: %time(time)% %time(ampm)%</msg>
<msg key="lt_Invalid_time_timetime_2">Horrio invlido: %time(time)% </msg>
<msg key="lt_Multiple_definitions_">Mltiplas definies do filtro ad_page_contract \&quot;%name%\&quot; no %script% e %prior_script% </msg>
<msg key="lt_name_does_not_appear_">%name% no parece ser um endereo eletrnico vlido</msg>
<msg key="lt_name_does_not_appear__1">%name% no parece ser um nmero de telefone Americano vlido</msg>
<msg key="lt_name_does_not_appear__2">%name% no parece ser um valor boleano</msg>
<msg key="lt_name_is_not_a_natural">%name% no um nmero natural, que um inteiro maior ou igual a zero</msg>
<msg key="lt_name_is_not_a_valid_S">%name% no um identificador SQL vlido</msg>
<msg key="lt_name_is_not_an_intege">%name% no um inteiro</msg>
<msg key="lt_name_is_not_in_the_ra">%name% no est na faixa \[%min%, %max%\] </msg>
<msg key="lt_name_is_too_long__Ple">%name% muito longo. Por favor digite um valor com no mximo [lindex $range 1] caracteres. O valor digitado por voc tem [string length $value] caracteres.</msg>
<msg key="lt_name_is_too_long__Ple_1">%name% muito longo. Por favor digite um valor com no mximo [lindex $range 1] caracteres. O valor digitado por voc tem [string length $value] caracteres.</msg>
<msg key="lt_name_is_too_short__Pl">%name% muito curto. Por favor digite um valor com no mnimo [lindex $range 0] caracteres. O valor digitado por voc tem [string length $value] caracteres.</msg>
<msg key="lt_name_is_too_short__Pl_1">%name% muito curto. Por favor digite um valor com no mnimo [lindex $length 1] caracteres. O valor digitado por voc tem [string length $value] caracteres.</msg>
<msg key="lt_NB_This_error_was_sub">O erro foi enviado</msg>
<msg key="lt_Please_back_up_using_">Por favor use o boto &quot;Retornar pgina anterior&quot; do seu navegador, e corrija os erros acima </msg>
<msg key="lt_Problem_with_a_Page_o">Problema com a pgina (ou com os dados digitados)</msg>
<msg key="lt_Problem_with_a_Templa">Problema com o Modelo de Pgina</msg>
<msg key="lt_Problem_with_your_inp">Problema com so dados digitados</msg>
<msg key="lt_require_email_verific">exigir verificao por email</msg>
<msg key="lt_The_-requires_element">O elemento \&quot;%element%\&quot; em -requires tem uma vrgula.</msg>
<msg key="lt_The_-requires_element_1">O elemento \&quot;%element%\&quot; em -requires tem muitos dois pontos.</msg>
<msg key="lt_The_email_you_submit">Por favor, digite um endereo de email vlido.</msg>
<msg key="lt_The_flag_name_name_is">O nome de flag \&quot;%name%\&quot; reservado por ad_page_contract</msg>
<msg key="lt_The_proc_must_accept_">O procedimento deve aceitar dois argumentos: o nome da varivel e uma lista de filtros</msg>
<msg key="lt_The_signature_for_the">A assinatura para a varivel '%formal_name%' estava errada.</msg>
<msg key="lt_User_Id_of_the_user_t">ID do usurio:</msg>
<msg key="lt_Valid_switches_are_-r">As opes vlidas so: -requires</msg>
<msg key="lt_Validation_block_name">Nomes dos blocos de validao no podem ter dois pontos</msg>
<msg key="lt_Validation_key_compla">\&quot;%key%\&quot; de validao solicitada</msg>
<msg key="lt_value_does_not_appear">%value% no parece ser um telefone dos EUA</msg>
<msg key="lt_Value_for_name_contai">Os valores para %name% contm tags em HTML</msg>
<msg key="lt_Value_is_not_an_decim">O valor fornecido no um nmero decimal.</msg>
<msg key="lt_Value_is_not_an_integ">O valor fornecido no inteiro</msg>
<msg key="lt_We_had_a_problem_proc">Tivemos um problema processando o seu pedido:</msg>
<msg key="lt_You_cant_have_two_val">Voc no pode ter dois blocos de validao chamados '%name%'</msg>
<msg key="lt_You_cant_name_your_va">Voc no pode nomear seus blocos de validao da mesma maneira que um argumento formal</msg>
<msg key="lt_You_must_specify_some">Voc deve especificar alguma coisa para %formal_name%</msg>
<msg key="lt_You_must_supply_a_val">Voc deve fornecer um valor para %formal_name%</msg>
<msg key="lt_You_specified_a_path_">Voc especificou um caminho para um arquivo que no permitido pelo sistema.</msg>
<msg key="lt_Youve_supplied_two_va">Voc forneceu dois valores para '%formal_name%'</msg>
<msg key="maturity_immature">Imaturo</msg>
<msg key="maturity_incompatible">Problemas de compatibilidade</msg>
<msg key="maturity_mature">Maduro</msg>
<msg key="maturity_mature_and_standard">Maduro e Padro</msg>
<msg key="maturity_new_submission">Novo Envio ou Maturidade Desconhecida</msg>
<msg key="Page">Pgina com erro:</msg>
<msg key="Previus">Pgina anterior:</msg>
<msg key="Public_User">Usurio Pblico</msg>
<msg key="reject">rejeitar</msg>
<msg key="Report">Reportar Erro</msg>
<msg key="Return_prev">Me leve de volta para onde eu estava (antes do erro)</msg>
<msg key="Server">Erro no Servidor</msg>
<msg key="some_problems">alguns problemas</msg>
<msg key="Sorry">Desculpe-me.</msg>
<msg key="Success_error_submitted">O erro foi enviado aos desenvolvedores</msg>
<msg key="Thank_you">Obrigado.</msg>
<msg key="The">O erro foi o seguinte:</msg>
<msg key="There">Houve um erro ao processar seu pedido. Pedimos desculpas.</msg>
<msg key="There_1">Houve um erro no servidor</msg>
<msg key="This">Este arquivo gerou um erro.</msg>
<msg key="undelete">recuperar</msg>
<msg key="User_comments">Comentrios do Usurio:</msg>
<msg key="User_Name">Nome do Usurio:</msg>
<msg key="We">Gostaramos que voc pudesse especificar alguns detalhes sobre o que esto tentando fazer.</msg>
<msg key="We_had">Ns tivemos</msg>
<msg key="with_your_input">com a sua entrada:</msg>
</message_catalog>
catalog/acs-tcl.pt_PT.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="pt_PT" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="pt_PT" charset="ISO-8859-1">
<msg key="approve">aprovar</msg>
<msg key="approve_email">aprovar email</msg>
......
catalog/acs-tcl.ro_RO.utf-8.xml
View file @ d4c89378
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-tcl" package_version="5.1.2" locale="ro_RO" charset="utf-8">
<message_catalog package_key="acs-tcl" locale="ro_RO" charset="utf-8">
<msg key="approve">aprobă</msg>
<msg key="approve_email">aprobă email</msg>
......
catalog/acs-tcl.ru_RU.utf-8.xml
View file @ d4c89378
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="ru_RU" charset="utf-8">
<message_catalog package_key="acs-tcl" locale="ru_RU" charset="utf-8">
<msg key="approve">утвердить</msg>
<msg key="approve_email">утвердить электронный адрес</msg>
......
catalog/acs-tcl.sh_HR.utf-8.xml
View file @ d4c89378
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-tcl" package_version="5.1.2" locale="sh_HR" charset="utf-8">
<message_catalog package_key="acs-tcl" locale="sh_HR" charset="utf-8">
<msg key="approve">dozvoli</msg>
<msg key="approve_email">potvrdi email</msg>
......
catalog/acs-tcl.sv_SE.ISO-8859-1.xml
View file @ d4c89378
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="sv_SE" charset="ISO-8859-1">
<message_catalog package_key="acs-tcl" locale="sv_SE" charset="ISO-8859-1">
<msg key="approve">godknn</msg>
<msg key="approve_email">godknn e-postadressen</msg>
......
catalog/acs-tcl.tr_TR.utf-8.xml
View file @ d4c89378
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="tr_TR" charset="utf-8">
<message_catalog package_key="acs-tcl" locale="tr_TR" charset="utf-8">
<msg key="approve">onayla</msg>
<msg key="approve_email">eposta onayla</msg>
......
catalog/acs-tcl.zh_CN.utf-8.xml
View file @ d4c89378
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-tcl" package_version="5.1.5" locale="zh_CN" charset="utf-8">
<message_catalog package_key="acs-tcl" locale="zh_CN" charset="utf-8">
<msg key="approve">批准</msg>
<msg key="approve_email">批准email</msg>
......
catalog/acs-tcl.zh_TW.utf-8.xml
View file @ d4c89378
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-tcl" package_version="5.1.2" locale="zh_TW" charset="utf-8">
<message_catalog package_key="acs-tcl" locale="zh_TW" charset="utf-8">
<msg key="approve">核可</msg>
<msg key="approve_email">核可電子郵件</msg>
......
lib/ad-return-complaint.adp
View file @ d4c89378
<master>
<property name="title">Problem with your input</property>
<property name="title">#acs-tcl.lt_Problem_with_your_inp#</property>
<p>&nbsp;</p>
<p>
We had
<if @exception_count@ gt 1>some problems</if>
<else>a problem</else>
with your input:
#acs-tcl.We_had#
<if @exception_count@ gt 1>#acs-tcl.some_problems#</if>
<else>#acs-tcl.a_problem#</else>
#acs-tcl.with_your_input#
</p>
<p>&nbsp;</p>
<ul>
@exception_text;noquote@
</ul>
<p>&nbsp;</p>
<p>
Please back up using your browser, correct the above <if @exception_count@ gt 1>s</if>, and resubmit your entry.
#acs-tcl.lt_Please_back_up_using_# <if @exception_count@ gt 1>#acs-tcl.errors#</if><else>#acs-tcl.error#</else>#acs-tcl.lt__and_resubmit_your_en#
</p>
<p>
Thank you.
#acs-tcl.Thank_you#
</p>
lib/ad-return-error.adp
View file @ d4c89378
<master>
<property name="title">@title;noquote@</property>
<p>
@explanation;noquote@
</p>
<master>
<property name="doc(title)">@title;noquote@</property>
<div id="user-message">
<p>@explanation;noquote@</p>
</div>
lib/complain.adp
View file @ d4c89378
<master>
<property name="title">Problem with your input</property>
<property name="title">#acs-tcl.lt_Problem_with_your_inp#</property>
<p>
We had
<if @complaints:rowcount@ gt 1>some problems</if>
<else>a problem</else>
with your input:
#acs-tcl.We_had#
<if @complaints:rowcount@ gt 1>#acs-tcl.some_problems#</if>
<else>#acs-tcl.a_problem#</else>
#acs-tcl.with_your_input#
</p>
<ul>
<multiple name="complaints">
<if @complaints:rowcount@ gt 1>
<li>
</if>
@complaints.text;noquote@
<li>@complaints.text;noquote@</li>
</multiple>
</ul>
<p>
Please back up using your browser, correct the above <if @complaints:rowcount@ gt 1>s</if>, and resubmit your entry.
#acs-tcl.lt_Please_back_up_using_# <if @complaints:rowcount@ gt 1>#acs-tcl.errors#</if><else>#acs-tcl.error#</else>#acs-tcl.lt__and_resubmit_your_en#
</p>
<p>
Thank you.
#acs-tcl.Thank_you#
</p>
lib/page-error.adp
View file @ d4c89378
<!-- This page goes into /packages/apm-tcl/lib/page-error.adp -->
<master>
<property name="title"><Server Error></property>
<% set error_url [im_url_with_query] %>
<% set error_location "[ns_info address] on [ns_info platform]" %>
<% set report_url [ad_parameter -package_id [im_package_core_id] "ErrorReportURL" "" ""] %>
<% set system_url [ad_parameter -package_id [ad_acs_kernel_id] SystemURL "" ""] %>
<% set first_names "undefined" %>
<% set last_name "undefined" %>
<% set email "undefined" %>
<% set username "undefined" %>
<% db_0or1row user_info "select * from cc_users where user_id=[ad_get_user_id]" %>
<% set publisher_name [ad_parameter -package_id [ad_acs_kernel_id] PublisherName "" ""] %>
<% set package_versions [db_list package_versions "select v.package_key||':'||v.version_name from (select max(version_id) as version_id, package_key from apm_package_versions group by package_key) m, apm_package_versions v where m.version_id = v.version_id"] %>
<% set system_id [im_system_id] %>
<% set hardware_id [im_hardware_id] %>
<% if {![info exists error_content]} { set error_content "" } %>
<% if {![info exists error_content_filename]} { set error_content_filename "" } %>
<% if {![info exists error_type]} { set error_type "default" } %>
<% if {![info exists top_message]} { set top_message "" } %>
<% if {![info exists bottom_message]} { set bottom_message "" } %>
<if @top_message@ not nil>
@top_message;noquote@
</if>
<else>
<p>
There was a server error processing your request. We apologize.<br>
Please contribute to remove this error by pressing the button below:
</p>
</else>
<form action="@report_url;noquote@" method=POST>
<input type=submit name=submit value="Report this Error">
<br>
<input type=checkbox name=privacy_statement_p checked>
I agree with the <a href="http://www.project-open.com/en/company/project-open-privacy.html">privacy statement</a>.
<br>
<input type=hidden name=error_url value=@error_url@>
<input type=hidden name=error_location value=@error_location@>
<input type=hidden name=system_url value=@system_url@>
<input type=hidden name=error_first_names value=@first_names;noquote@>
<input type=hidden name=error_last_name value=@last_name;noquote@>
<input type=hidden name=error_user_email value=@email;noquote@>
<input type=hidden name=error_type value=@error_type;noquote@>
<input type=hidden name=package_versions value="@package_versions;noquote@">
<input type=hidden name=publisher_name value="@publisher_name;noquote@">
<input type=hidden name=system_id value=@system_id@>
<input type=hidden name=hardware_id value=@hardware_id@>
<if @message@ not nil>
<input type=hidden name=error_message value="@message;noquote@">
</if>
<if @stacktrace@ not nil>
<input type=hidden name=error_info value="@stacktrace@">
</if>
<input type=hidden name=error_content value='@error_content@'>
<input type=hidden name=error_content_filename value='@error_content_filename@'>
</form>
<if @bottom_message@ not nil>
@bottom_message;noquote@
</if>
<property name="title">#acs-tcl.Server#</property>
<p>
#acs-tcl.There#
</p>
<if @message@ not nil>
<p>
@message;noquote@
</p>
</if>
<br>
<if @stacktrace@ not nil>
<p>
Here is a detailed dump of what took place at the time of the error, which may assist a programmer in tracking down the problem:
</p>
<blockquote><pre>@stacktrace@</pre></blockquote>
</if>
<else>
<p>
The error has been logged and will be investigated by our system programmers.
</p>
<a href=@prev_url@>#acs-tcl.Return_prev#</a>
<if @bt_instance@ ne "">
<if @auto_submit_p@ gt 0>
<if @user_id@ gt 0>
<br>
<formtemplate id="bug_edit"></formtemplate>
<br>
#acs-tcl.Bug_History#
<br><br>
<formtemplate id="bug_history"></formtemplate>
</if>
<else>
</else>
</if>
</if>
<else>
<pre>@stacktrace@</pre>
</else>
lib/progress-bar.adp
View file @ d4c89378
<html>
<head>
<link rel="stylesheet" type="text/css" href="/resources/acs-subsite/site-master.css" media="all">
<title@title@</title>
<title>@title@</title>
</head>
<body>
......@@ -29,10 +29,11 @@
</table>
<div style="clear: both;"></div>
</div>
</div>
<script language="javascript">
<script type="text/javascript">
var progressEnd = 5;// set to number of progress <span>'s.
var progressColor = 'blue';// set to progress bar color
var progressInterval = 1000;// set to time between updates (milli-seconds)
......
tcl/00-database-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/20-memoize-init.tcl
View file @ d4c89378
# Create the cache used by util_memoize.
# Note: we must pass the package_id to ad_parameter, because
# otherwise ad_parameter will end up calling util_memoize to figure
# Note: we must pass the package_id to parameter::get, because
# otherwise parameter::get will end up calling util_memoize to figure
# out the package_id.
ns_cache create util_memoize -size \
[ad_parameter -package_id [ad_acs_kernel_id] MaxSize memoize 200000]
[parameter::get -package_id [ad_acs_kernel_id] -parameter MaxSize -default 200000]
# We construct the body of util_memoize_flush differently depending
# on whether clustering is enabled and what command is available for
# cluster-wide flushing.
if {[llength [info commands ncf.send]] > 0} {
set flush_body {
ncf.send util_memoize $script
}
} elseif {[server_cluster_enabled_p] && [info commands server_cluster_httpget_from_peers] ne ""} {
set flush_body {
server_cluster_httpget_from_peers "/SYSTEM/flush-memoized-statement.tcl?statement=[ns_urlencode $script]"
}
} else {
set flush_body {}
}
append flush_body {
ns_cache flush util_memoize $script
}
ad_proc -public util_memoize_flush {script} {
Forget any cached value for <i>script</i>. If clustering is
enabled, flush the caches on all servers in the cluster.
@param script The Tcl script whose cached value should be flushed.
} $flush_body
unset flush_body
tcl/30-xml-utils-procs.tcl
View file @ d4c89378
......@@ -23,7 +23,7 @@ proc xml_support_ok {varname} {
# Parse a document and return a doc_id
proc xml_parse args {
# ns_log notice "xml_parse $args"
if {[lindex $args 0] == "-persist"} {
if {[lindex $args 0] eq "-persist"} {
return [dom parse -simple [lindex $args 1]]
} else {
dom parse -simple [lindex $args 0] doc
......@@ -79,6 +79,11 @@ proc xml_node_get_attribute {node_id attribute_name {default ""}} {
return [$node_id getAttribute $attribute_name $default]
}
# Set Node Attribute
proc xml_node_set_attribute {node_id attribute_name value} {
$node_id setAttribute $attribute_name $value
}
# Get Content
proc xml_node_get_content {node_id} {
# ns_log notice "xml_node_get_content [$node_id nodeName] --> [$node_id text]"
......
tcl/acs-kernel-procs.tcl
View file @ d4c89378
......@@ -36,6 +36,8 @@ ad_proc -public ad_acs_admin_node {} {
ad_proc -public ad_verify_install {} {
Returns 1 if the acs is properly installed, 0 otherwise.
} {
# define util_memoize with proc here to avoid error messages about multiple
# defines.
if { ![db_table_exists apm_packages] || ![db_table_exists site_nodes] } {
proc util_memoize {script {max_age ""}} {eval $script}
return 0
......
tcl/acs-permissions-procs.tcl
View file @ d4c89378
......@@ -10,16 +10,20 @@ ad_library {
namespace eval permission {}
# define cache_p to be 0 here. Note that it is redefined on init to be
# the value of the PermissionCacheP kernel parameter.
# see request-processor-init.tcl
ad_proc permission::cache_p {} {
# define cache_p to be 0 here. Note that it is redefined
# to return the value of the PermissionCacheP kernel parameter
# on the first call. also the namespace eval is needed to
# make the redefinition work for ttrace.
ad_proc -private permission::cache_p {} {
returns 0 or 1 depending if permission_p caching is enabled or disabled.
by default caching is disabled.
} {
return 0
} {
set cache_p [parameter::get -package_id [ad_acs_kernel_id] -parameter PermissionCacheP -default 0]
namespace eval ::permission [list proc cache_p {} "return $cache_p"]
return $cache_p
}
ad_proc -public permission::grant {
{-party_id:required}
{-object_id:required}
......@@ -66,7 +70,7 @@ ad_proc -public permission::permission_p {
@param privilege The privilege you want to check for.
} {
if { [empty_string_p $party_id] } {
if { $party_id eq "" } {
set party_id [ad_conn user_id]
}
......@@ -120,7 +124,7 @@ ad_proc -private permission::permission_p_not_cached {
@see permission::permission_p
} {
if { [empty_string_p $party_id] } {
if { $party_id eq "" } {
set party_id [ad_conn user_id]
}
......@@ -147,20 +151,18 @@ ad_proc -public permission::require_permission {
} {
require that party X have privilege Y on object Z
} {
if {[empty_string_p $party_id]} {
if {$party_id eq ""} {
set party_id [ad_conn user_id]
}
if {![permission_p -party_id $party_id -object_id $object_id -privilege $privilege]} {
if {!${party_id}} {
ad_maybe_redirect_for_registration
auth::require_login
} else {
ns_log notice "permission::require_permission: $party_id doesn't have $privilege on object $object_id"
ad_return_forbidden \
"Permission Denied" \
"<blockquote>
You don't have permission to $privilege [db_string name {}].
</blockquote>"
"You don't have permission to $privilege [db_string name {}]."
}
ad_script_abort
......@@ -225,7 +227,7 @@ ad_proc -public permission::write_permission_p {
if { [permission::permission_p -privilege write -object_id $object_id -party_id $party_id] } {
return 1
}
if { [empty_string_p $creation_user] } {
if { $creation_user eq "" } {
set creation_user [acs_object::get_element -object_id $object_id -element creation_user]
}
if { [ad_conn user_id] == $creation_user } {
......@@ -250,9 +252,7 @@ ad_proc -public permission::require_write_permission {
@see permission::write_permission_p
} {
if { ![permission::write_permission_p -object_id $object_id -party_id $party_id] } {
ad_return_forbidden "Permission Denied" "<blockquote>
You don't have permission to $action this object.
</blockquote>"
ad_return_forbidden "Permission Denied" "You don't have permission to $action this object."
ad_script_abort
}
}
......
tcl/acs-private-data-procs.tcl
View file @ d4c89378
......@@ -16,13 +16,13 @@ namespace eval acs_privacy {
was in no way regulated.
} {
# If no parameter set, then we assume privacy control is DISABLED
return [ad_parameter -package_id [ad_acs_kernel_id] PrivacyControlEnabledP 0]
return [parameter::get -package_id [ad_acs_kernel_id] -parameter PrivacyControlEnabledP -default 0]
}
ad_proc -public privacy_control_set {val} {
set the privacy control
} {
ad_parameter -set $val -package_id [ad_acs_kernel_id] PrivacyControlEnabledP
return [parameter::set_value -value $val -package_id [ad_acs_kernel_id] -parameter PrivacyControlEnabledP]
}
ad_proc -public user_can_read_private_data_p {
......
tcl/ad-functional-procs.tcl
View file @ d4c89378
......@@ -21,7 +21,7 @@ ad_library {
@author Mark Dettinger (mdettinger@arsdigita.com)
@creation-date March 29, 2000
@last-updated July 25, 2000
@cvs-id ad-functional.tcl,v 3.4.2.5 2000/07/29 05:34:45 mdetting Exp
@cvs-id $Id$
This was part of ACS 3
Added to OpenACS by bdolicki on 11 Feb 2004
......@@ -46,7 +46,7 @@ namespace eval ::f {
# Lambda
# --------------------------------------------------------------------------------
ad_proc lambda {args body} {
ad_proc -public lambda {args body} {
The lambda function - one of the foundations of functional programming -
defines an anonymous proc and returns it. This is useful if you quickly
need an auxiliary function for a small task.
......@@ -109,14 +109,14 @@ ad_proc -public bind2nd {f arg} "binds arg to the 2nd argument of f" {
# as arguments to other functions.
# --------------------------------------------------------------------------------
proc + {a b} {expr $a + $b}
proc - {a b} {expr $a - $b}
proc * {a b} {expr $a * $b}
proc / {a b} {expr $a / $b}
proc && {a b} {expr $a && $b}
proc || {a b} {expr $a || $b}
proc > {a b} {expr $a > $b}
proc < {a b} {expr $a < $b}
proc + {a b} {expr {$a + $b}}
proc - {a b} {expr {$a - $b}}
proc * {a b} {expr {$a * $b}}
proc / {a b} {expr {$a / $b}}
proc && {a b} {expr {$a && $b}}
proc || {a b} {expr {$a || $b}}
proc > {a b} {expr {$a > $b}}
proc < {a b} {expr {$a < $b}}
# Example:
# + 5 6 = 11
......@@ -125,7 +125,7 @@ proc < {a b} {expr $a < $b}
# map
# --------------------------------------------------------------------------------
ad_proc map {f xs} {
ad_proc -public map {f xs} {
Takes a function f and a list { x1 x2 x3 ...},
applies the function on each element of the list
and returns the result, i.e. { f x1, f x2, f x3, ...}.
......@@ -235,7 +235,7 @@ ad_proc -public scanl1 {f xs} "takes a binary function f and a list {x1 x2 x3 ..
# Standard combinators
# --------------------------------------------------------------------------------
ad_proc id {x} {
ad_proc -public id {x} {
Identity function: just returns its argument.
<p>
I'm not kidding! An identity function can be useful sometimes, e.g.
......@@ -276,14 +276,14 @@ ad_proc -public const {k} {
lambda {x} [list return $k]
}
ad_proc curry {f args} {
ad_proc -public curry {f args} {
Converts a function that takes one tuple as an argument
into a function that takes a series of single arguments.
} {
uplevel [list $f $args]
}
ad_proc uncurry {f tuple} {
ad_proc -public uncurry {f tuple} {
Converts a function that takes a series of single arguments
into a function that takes one tuple as an argument.
<h4>Example</h4>
......@@ -315,7 +315,7 @@ ad_proc -public thd {xs} "returns the third element of a list" {
}
# Example:
# set people [database_to_tcl_list_list $db "select first_name, last_name, email ..."]
# set people [db_list_of_lists get "select first_name, last_name, email ..."]
# set first_names [map fst $people]
# set last_names [map snd $people]
# set emails [map thd $people]
......@@ -355,7 +355,7 @@ ad_proc -public compose {f g x} "function composition: evaluates f (g x)" {
# --------------------------------------------------------------------------------
ad_proc -public abs {x} "returns the absolute value of x" {
expr $x<0 ? -$x : $x
expr {$x<0 ? -$x : $x}
}
ad_proc -public gcd {x y} "returns the greatest common divisor of x and y" {
......@@ -364,29 +364,29 @@ ad_proc -public gcd {x y} "returns the greatest common divisor of x and y" {
proc gcd' {x y} {
if { $y==0 } { return $x }
gcd' $y [expr $x%$y]
gcd' $y [expr {$x%$y}]
}
ad_proc -public lcm {x y} "returns the least common multiple of x and y" {
if { $x==0} { return 0 }
if { $y==0} { return 0 }
abs [expr $x/[gcd $x $y]*$y]
abs [expr {$x/[gcd $x $y]*$y}]
}
ad_proc -public odd_p {n} "returns 1 if n is odd and 0 otherwise" {
expr $n%2
expr {$n%2}
}
ad_proc -public even_p {n} "returns 1 if n is even and 0 otherwise" {
expr 1-$n%2
expr {1-$n%2}
}
ad_proc -public min {x y} "returns the minimum of x and y" {
expr $x<$y ? $x : $y
expr {$x<$y ? $x : $y}
}
ad_proc -public max {x y} "returns the maximum of x and y" {
expr $x>$y ? $x : $y
expr {$x>$y ? $x : $y}
}
# --------------------------------------------------------------------------------
......@@ -468,26 +468,26 @@ ad_proc -public head {xs} "first element of a list" {
}
ad_proc -public last {xs} "last element of a list" {
lindex $xs [expr [llength $xs]-1]
lindex $xs [expr {[llength $xs]-1}]
}
ad_proc -public init {xs} "all elements of a list but the last" {
lrange $xs 0 [expr [llength $xs]-2]
lrange $xs 0 [expr {[llength $xs]-2}]
}
ad_proc -public tail {xs} "all elements of a list but the first" {
lrange $xs 1 [expr [llength $xs]-1]
lrange $xs 1 [expr {[llength $xs]-1}]
}
ad_proc -public take {n xs} "returns the first n elements of xs" {
lrange $xs 0 [expr $n-1]
lrange $xs 0 [expr {$n-1}]
}
ad_proc -public drop {n xs} "returns the remaining elements of xs (without the first n)" {
lrange $xs $n [expr [llength $xs]-1]
lrange $xs $n [expr {[llength $xs]-1}]
}
ad_proc filter {pred xs} {
ad_proc -public filter {pred xs} {
Returns all elements of the list <em>xs</em> that fulfill the predicate <em>pred</em>.
<h4>Examples</h4>
<ul>
......@@ -535,11 +535,11 @@ ad_proc -public reverse {xs} "reverses the list xs" {
}
ad_proc -public elem_p {x xs} "checks if x is contained in s" {
expr [lsearch $xs $x]==-1 ? 0 : 1
expr {[lsearch $xs $x]==-1 ? 0 : 1}
}
ad_proc -public not_elem_p {x xs} "checks if x is not contained in s" {
expr [lsearch $xs $x]==-1 ? 1 : 0
expr {[lsearch $xs $x]==-1 ? 1 : 0}
}
ad_proc -public nub {xs} "removes duplicates from xs" {
......@@ -553,7 +553,7 @@ ad_proc -public nub {xs} "removes duplicates from xs" {
}
ad_proc -public null_p {xs} "checks if xs is the empty list" {
expr [llength $xs]==0
expr {[llength $xs]==0}
}
ad_proc -public enum_from_to {lo hi} "generates {lo lo+1 ... hi-1 hi}" {
......@@ -602,7 +602,7 @@ ad_proc -public zip_with {f xs ys} "takes two lists {x1 x2 x3 ...} and {y1 y2 y3
ad_proc -public transpose {lists} "tranposes a matrix (a list of lists)" {
set num_lists [llength $lists]
if !$num_lists { return "" }
if {!$num_lists} { return "" }
for {set i 0} {$i<$num_lists} {incr i} {
set l($i) [lindex $lists $i]
}
......@@ -610,7 +610,7 @@ ad_proc -public transpose {lists} "tranposes a matrix (a list of lists)" {
while {1} {
set element {}
for {set i 0} {$i<$num_lists} {incr i} {
if [null_p $l($i)] { return $result }
if {[null_p $l($i)]} { return $result }
lappend element [head $l($i)]
set l($i) [tail $l($i)]
}
......@@ -717,7 +717,9 @@ ad_proc -public take_until {p xs} "returns the list of elements upto and includi
# Tests and Experiments
# --------------------------------------------------------------------------------
proc factorial {n} {
ad_proc -public factorial {n} {
compute n!
} {
product [enum_from_to 1 $n]
}
......@@ -725,7 +727,7 @@ ad_proc -public mul {n fraction} "multiplies n with a fraction (given as a tuple
set num [fst $fraction]
set denom [snd $fraction]
set g [gcd $n $denom]
expr ($n/$g)*$num/($denom/$g)
expr {($n/$g)*$num/($denom/$g)}
}
ad_proc -public choose {n k} "Here's how to compute 'n choose k' like a real nerd." {
......@@ -738,7 +740,9 @@ ad_proc -public pascal {size} "prints Pascal's triangle" {
}
}
proc prime_p {n} {
ad_proc -public prime_p {n} {
@return 1 if n is prime
} {
if { $n<2 } { return 0 }
if { $n==2 } { return 1 }
if { [even_p $n] } { return 0 }
......
tcl/admin-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/adp-parser-procs.tcl
View file @ d4c89378
......@@ -181,7 +181,7 @@ ad_proc -public doc_adp_execute {
incr doc_adp_depth -1
global errorCode
if { $errno == 0 || [string equal $errorCode "doc_adp_abort"] } {
if { $errno == 0 || $errorCode eq "doc_adp_abort" } {
return $adp_var
}
......@@ -241,7 +241,7 @@ ad_proc -public doc_adp_compile { adp } {
# Currently index points to a "<".
incr index
if { [string index $adp $index] == "/" } {
if { [string index $adp $index] eq "/" } {
set end_tag_p 1
incr index
} elseif { ![info exists literal_tag] && [string index $adp $index] == "%" } {
......@@ -286,14 +286,14 @@ ad_proc -public doc_adp_compile { adp } {
if { ![info exists tag] } {
# Find the next non-word character.
set tag_begin $index
while { [string index $adp $index] == "-" || \
while { [string index $adp $index] eq "-" || \
[string is wordchar -strict [string index $adp $index]] } {
incr index
}
set tag [string range $adp $tag_begin [expr { $index - 1 }]]
}
if { (![info exists literal_tag] || ($end_tag_p && [string equal $tag $literal_tag])) && \
if { (![info exists literal_tag] || ($end_tag_p && $tag eq $literal_tag)) && \
[nsv_exists doc_adptags $tag] } {
doc_adp_flush_text_buffer
......@@ -338,10 +338,10 @@ ad_proc -public doc_adp_compile { adp } {
while { [string is space -strict [string index $adp $index]] } {
incr index
}
if { [string index $adp $index] == "\"" } {
if { [string index $adp $index] eq "\"" } {
# Quoted string.
set value_begin [incr index]
while { $index < $adp_length && [string index $adp $index] != "\"" } {
while { $index < $adp_length && [string index $adp $index] ne "\"" } {
incr index
}
set value_end $index
......@@ -366,7 +366,7 @@ ad_proc -public doc_adp_compile { adp } {
if { [llength $balanced_tag_stack] == 0 } {
return -code error "Unexpected end tag </$tag>"
}
if { ![string equal $tag [lindex $balanced_tag_stack end]] } {
if { $tag ne [lindex $balanced_tag_stack end] } {
return -code error "Expected end tag to be </[lindex $balanced_tag_stack end]>, not </$tag>"
}
set balanced_tag_stack [lrange $balanced_tag_stack 0 [expr { [llength $balanced_tag_stack] - 2 }]]
......
tcl/aolserver-3-procs.tcl
View file @ d4c89378
......@@ -5,7 +5,7 @@ ad_library {
@creation-date 27 Feb 2000
@author Jon Salz [jsalz@arsdigita.com]
@cvs-id aolserver-3-procs.tcl,v 1.2 2001/04/24 22:38:12 donb Exp
@cvs-id $Id$
}
# -1 = Not there or value was ""
......@@ -16,7 +16,7 @@ proc ns_dbformvalue {formdata column type valuebyref} {
upvar $valuebyref value
if {[ns_set get $formdata $column.NULL] == "t"} {
if {[ns_set get $formdata $column.NULL] eq "t"} {
set value ""
return 0
}
......@@ -113,12 +113,12 @@ proc _ns_updatebutton {table var} {
if { ![info exists updatebutton] } {
set updatebutton ""
}
if { [string match "" $updatebutton] } {
if { "" eq $updatebutton } {
db_with_handle db {
set updatebutton [ns_table value $db $table update_button_label]
}
}
if { [string match "" $updatebutton] } {
if { "" eq $updatebutton } {
set updatebutton "Update Record"
}
}
......@@ -135,32 +135,46 @@ proc ns_putscript {conn ignored} {
ns_returnbadrequest $conn "Cannot PUT a script file"
}
ns_share NS
set NS(months) [list January February March April May June \
July August September October November December]
if {[ns_info name] ne "NaviServer"} {
#
# Naviserver has dropped support for ns_share.
#
ns_share NS
set NS(months) [list January February March April May June \
July August September October November December]
}
# _ns_dateentrywidget is not very popular and is not
# internationalized. We keep it in Naviserver for backward
# compatibility. It should become deprecated.
proc _ns_dateentrywidget {column} {
ns_share NS
set output "<SELECT name=$column.month>\n"
if {[ns_info name] ne "NaviServer"} {
ns_share NS
} else {
set NS(months) [list January February March April May June \
July August September October November December]
}
set output "<select name='$column.month'>\n"
for {set i 0} {$i < 12} {incr i} {
append output "<OPTION> [lindex $NS(months) $i]\n"
append output "<option> [lindex $NS(months) $i]\n"
}
append output \
"</SELECT>&nbsp;<INPUT NAME=$column.day\
TYPE=text SIZE=3 MAXLENGTH=2>&nbsp;<INPUT NAME=$column.year\
TYPE=text SIZE=5 MAXLENGTH=4>"
"</select>&nbsp;<INPUT name='$column.day'\
type='text' size='3' maxlength='2'>&nbsp;<input name='$column.year'\
type='text' size='5' maxlength='4'>"
return [ns_dbformvalueput $output $column date [lindex [split [ns_localsqltimestamp] " "] 0]]
}
proc _ns_timeentrywidget {column} {
set output "<INPUT NAME=$column.time TYPE=text SIZE=9>&nbsp;<SELECT NAME=$column.ampm>
<OPTION> AM
<OPTION> PM
</SELECT>"
set output "<INPUT NAME='$column.time' type='text' size='9'>&nbsp;<select name='$column.ampm'>\
<option> AM\
<option> PM\
</select>"
return [ns_dbformvalueput $output $column time [lindex [split [ns_localsqltimestamp] " "] 1]]
}
tcl/apm-file-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/apm-install-procs-oracle.xql
View file @ d4c89378
......@@ -124,6 +124,8 @@
pretty_plural => :pretty_plural,
initial_install_p => :initial_install_p,
singleton_p => :singleton_p,
implements_subsite_p => :implements_subsite_p,
inherit_templates_p => :inherit_templates_p,
spec_file_path => :spec_file_path,
spec_file_mtime => :spec_file_mtime
);
......@@ -144,6 +146,8 @@
pretty_plural => :pretty_plural,
initial_install_p => :initial_install_p,
singleton_p => :singleton_p,
implements_subsite_p => :implements_subsite_p,
inherit_templates_p => :inherit_templates_p,
spec_file_path => :spec_file_path,
spec_file_mtime => :spec_file_mtime
);
......@@ -255,6 +259,60 @@
</querytext>
</fullquery>
<fullquery name="apm_copy_param_to_descendents.param_exists">
<querytext>
begin
:1 := apm.parameter_p(
package_key => :descendent_package_key,
parameter_name => :parameter_name);
end;
</querytext>
</fullquery>
<fullquery name="apm_copy_param_to_descendents.copy_descendent_param">
<querytext>
begin
:1 := apm.register_parameter(
package_key => :descendent_package_key,
parameter_name => :parameter_name,
description => :description,
scope => :scope,
datatype => :datatype,
default_value => :default_value,
section_name => :section_name,
min_n_values => :min_n_values,
max_n_values => :max_n_values);
end;
</querytext>
</fullquery>
<fullquery name="apm_copy_inherited_params.param_exists">
<querytext>
begin
:1 := apm.parameter_p(
package_key => :new_package_key,
parameter_name => :parameter_name);
end;
</querytext>
</fullquery>
<fullquery name="apm_copy_inherited_params.copy_inherited_param">
<querytext>
begin
:1 := apm.register_parameter(
package_key => :new_package_key,
parameter_name => :parameter_name,
description => :description,
scope => :scope,
datatype => :datatype,
default_value => :default_value,
section_name => :section_name,
min_n_values => :min_n_values,
max_n_values => :max_n_values);
end;
</querytext>
</fullquery>
<fullquery name="apm_package_upgrade_p.apm_package_upgrade_p">
<querytext>
......@@ -286,4 +344,11 @@
</querytext>
</fullquery>
<fullquery name="apm_version_sortable.sortable_version">
<querytext>
select apm_package_version.sortable_version_name(:version) from dual
</querytext>
</fullquery>
</queryset>
tcl/apm-install-procs-postgresql.xql
View file @ d4c89378
......@@ -77,6 +77,8 @@
:package_uri,
:initial_install_p,
:singleton_p,
:implements_subsite_p,
:inherit_templates_p,
:spec_file_path,
:spec_file_mtime
);
......@@ -95,6 +97,8 @@
:package_uri,
:initial_install_p,
:singleton_p,
:implements_subsite_p,
:inherit_templates_p,
:spec_file_path,
:spec_file_mtime
);
......@@ -147,21 +151,21 @@
</querytext>
</fullquery>
<fullquery name="apm_upgrade_script_compare.test_f1">
<fullquery name="apm_upgrade_script_compare.test_f1">
<querytext>
select apm_package_version__sortable_version_name('$f1_version_from');
select apm_package_version__sortable_version_name(:f1_version_from);
</querytext>
</fullquery>
<fullquery name="apm_upgrade_script_compare.test_f2">
<fullquery name="apm_upgrade_script_compare.test_f2">
<querytext>
select apm_package_version__sortable_version_name('$f2_version_from');
select apm_package_version__sortable_version_name(:f2_version_from);
</querytext>
</fullquery>
......@@ -196,6 +200,34 @@
</querytext>
</fullquery>
<fullquery name="apm_copy_param_to_descendents.param_exists">
<querytext>
select apm__parameter_p(:descendent_package_key, :parameter_name);
</querytext>
</fullquery>
<fullquery name="apm_copy_param_to_descendents.copy_descendent_param">
<querytext>
select apm__register_parameter(null, :descendent_package_key, :parameter_name,
:description, :scope, :datatype, :default_value,
:section_name, :min_n_values, :max_n_values)
</querytext>
</fullquery>
<fullquery name="apm_copy_inherited_params.param_exists">
<querytext>
select apm__parameter_p(:new_package_key, :parameter_name);
</querytext>
</fullquery>
<fullquery name="apm_copy_inherited_params.copy_inherited_param">
<querytext>
select apm__register_parameter(null, :new_package_key, :parameter_name, :description,
:scope, :datatype, :default_value, :section_name,
:min_n_values, :max_n_values)
</querytext>
</fullquery>
<fullquery name="apm_package_upgrade_p.apm_package_upgrade_p">
<querytext>
......@@ -237,4 +269,10 @@
</querytext>
</fullquery>
<fullquery name="apm_version_sortable.sortable_version">
<querytext>
select apm_package_version__sortable_version_name(:version)
</querytext>
</fullquery>
</queryset>
tcl/apm-install-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/apm-install-procs.xql
View file @ d4c89378
......@@ -88,5 +88,36 @@
where version_id = :version_id
</querytext>
</fullquery>
<fullquery name="apm_unregister_disinherited_params.get_parameter_ids">
<querytext>
select ap.parameter_id
from apm_parameters ap
where ap.package_key = :package_key
and exists (select 1
from apm_parameters ap2, apm_package_dependencies apd
where ap2.package_key = apd.service_uri
and ap2.parameter_name = ap.parameter_name
and apd.dependency_id = :dependency_id)
</querytext>
</fullquery>
<fullquery name="apm_copy_param_to_descendents.param">
<querytext>
select ap.*
from apm_parameters ap
where package_key = :new_package_key
and parameter_name = :parameter_name
</querytext>
</fullquery>
<fullquery name="apm_copy_inherited_params.inherited_params">
<querytext>
select ap.*
from apm_parameters ap
where package_key = :inherited_package_key
and scope = 'instance'
</querytext>
</fullquery>
</queryset>
tcl/apm-procs-oracle.xql
View file @ d4c89378
......@@ -47,9 +47,10 @@
begin
:1 := apm.register_parameter(
parameter_id => :parameter_id,
parameter_name => :parameter_name,
package_key => :package_key,
parameter_name => :parameter_name,
description => :description,
scope => :scope,
datatype => :datatype,
default_value => :default_value,
section_name => :section_name,
......@@ -61,11 +62,18 @@
</querytext>
</fullquery>
<fullquery name="apm_parameter_unregister.unregister">
<querytext>
begin
apm.unregister_parameter(:parameter_id);
end;
</querytext>
</fullquery>
<fullquery name="apm_parameter_register.apm_parameter_cache_update">
<querytext>
select v.package_id, p.parameter_name,
select nvl(v.package_id, 0) as package_id, p.parameter_name,
decode(v.value_id, null, p.default_value, v.attr_value) as attr_value
from apm_parameters p, apm_parameter_values v
where p.package_key = :package_key
......@@ -80,6 +88,7 @@
begin
:1 := apm_package_version.add_dependency(
dependency_type => :dependency_type,
dependency_id => :dependency_id,
version_id => :version_id,
dependency_uri => :dependency_uri,
......@@ -182,7 +191,7 @@
<fullquery name="apm_package_url_from_id_mem.apm_package_url_from_id">
<querytext>
select site_node.url(node_id)
select site_node.url(min(node_id))
from site_nodes
where object_id = :package_id
......@@ -199,5 +208,19 @@
</querytext>
</fullquery>
<fullquery name="apm::convert_type.copy_new_params">
<querytext>
select apm_parameter_value.new(
package_id => :package_id,
parameter_id => ap.parameter_id,
value => ap.default_value)
from apm_parameters ap
where ap.package_key = :new_package_key
and not exists (select 1
from apm_parameters ap2
where ap2.package_key = :old_package_key
and ap2.parameter_name = ap.parameter_name)
</querytext>
</fullquery>
</queryset>
tcl/apm-procs-postgresql.xql
View file @ d4c89378
......@@ -45,6 +45,7 @@
:package_key,
:parameter_name,
:description,
:scope,
:datatype,
:default_value,
:section_name,
......@@ -55,10 +56,17 @@
</querytext>
</fullquery>
<fullquery name="apm_parameter_unregister.unregister">
<querytext>
select apm__unregister_parameter(:parameter_id)
</querytext>
</fullquery>
<fullquery name="apm_dependency_add.dependency_add">
<querytext>
select apm_package_version__add_dependency(
:dependency_type,
:dependency_id,
:version_id,
:dependency_uri,
......@@ -140,28 +148,10 @@
</querytext>
</fullquery>
<fullquery name="apm_parameter_unregister.parameter_unregister">
<querytext>
begin
delete from apm_parameter_values
where parameter_id = :parameter_id;
delete from apm_parameters
where parameter_id = :parameter_id;
PERFORM acs_object__delete(:parameter_id);
return null;
end;
</querytext>
</fullquery>
<fullquery name="apm_package_url_from_id_mem.apm_package_url_from_id">
<querytext>
select site_node__url(node_id)
select site_node__url(min(node_id))
from site_nodes
where object_id = :package_id
......@@ -179,5 +169,16 @@
</querytext>
</fullquery>
<fullquery name="apm::convert_type.copy_new_params">
<querytext>
select apm_parameter_value__new(null, :package_id, ap.parameter_id, ap.default_value)
from apm_parameters ap
where ap.package_key = :new_package_key
and not exists (select 1
from apm_parameters ap2
where ap2.package_key = :old_package_key
and ap2.parameter_name = ap.parameter_name)
</querytext>
</fullquery>
</queryset>
tcl/apm-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/apm-procs.xql
View file @ d4c89378
<?xml version="1.0"?>
<queryset>
<fullquery name="apm_one_package_descendents.get_descendents">
<querytext>
select apv.package_key
from apm_package_versions apv, apm_package_dependencies apd
where apd.version_id = apv.version_id
and apv.enabled_p = 't'
and apd.dependency_type in ('extends', 'embeds')
and apd.service_uri = :package_key
</querytext>
</fullquery>
<fullquery name="apm_build_subsite_packages_list.get_subsites">
<querytext>
select package_key
from apm_package_types
where implements_subsite_p = 't'
</querytext>
</fullquery>
<fullquery name="apm_package_list_search_order.get_dependencies">
<querytext>
select apd.service_uri
from apm_package_versions apv, apm_package_dependencies apd
where apv.package_key = :package_key
and apv.installed_p = 't'
and apd.version_id = apv.version_id
and apd.dependency_type in ('extends', 'embeds')
order by apd.dependency_id
</querytext>
</fullquery>
<fullquery name="apm_package_list_url_resolution.get_inherit_templates_p">
<querytext>
select inherit_templates_p
from apm_package_types
where package_key = :package_key
</querytext>
</fullquery>
<fullquery name="apm_package_list_url_resolution.get_dependencies">
<querytext>
select apd.service_uri, apd.dependency_type
from apm_package_versions apv, apm_package_dependencies apd
where apv.package_key = :package_key
and apv.installed_p = 't'
and apd.version_id = apv.version_id
and (apd.dependency_type = 'embeds'
or apd.dependency_type = 'extends' and :inherit_templates_p = 't')
order by apd.dependency_id
</querytext>
</fullquery>
<fullquery name="apm_one_package_inherit_order.get_dependencies">
<querytext>
select apd.service_uri
from apm_package_versions apv, apm_package_dependencies apd
where apv.package_key = :package_key
and apv.installed_p = 't'
and apd.version_id = apv.version_id
and apd.dependency_type in ('extends', 'embeds')
order by apd.dependency_id desc
</querytext>
</fullquery>
<fullquery name="apm_one_package_load_libraries_dependencies.get_dependencies">
<querytext>
select apd.service_uri
from apm_package_versions apv, apm_package_dependencies apd
where apv.package_key = :package_key
and apv.installed_p = 't'
and apd.version_id = apv.version_id
and apd.dependency_type in ('requires', 'embeds', 'extends')
order by apd.dependency_id desc
</querytext>
</fullquery>
<fullquery name="apm_package_version_enabled_p.apm_package_version_enabled_p">
<querytext>
select case when count(*) = 0 then 0 else 1 end from apm_package_versions
......@@ -11,7 +87,7 @@
<fullquery name="apm_parameter_register.apm_parameter_cache_update">
<querytext>
select v.package_id, p.parameter_name,
select coalesce(v.package_id, 0) as package_id, p.parameter_name,
case when v.value_id is null then p.default_value else v.attr_value end as attr_value
from apm_parameters p left outer join apm_parameter_values v
using (parameter_id)
......@@ -24,6 +100,7 @@
select distinct package_key
from apm_package_versions
where enabled_p='t'
order by package_key
</querytext>
</fullquery>
......@@ -87,6 +164,31 @@
</querytext>
</fullquery>
<fullquery name="apm_parameter_update.object_title_update">
<querytext>
update acs_objects
set title = :parameter_name
where object_id = :parameter_id
</querytext>
</fullquery>
<fullquery name="apm_parameter_unregister.select_parameter_id">
<querytext>
select parameter_id
from apm_parameters
where package_key = :package_key
and parameter_name = :parameter
</querytext>
</fullquery>
<fullquery name="apm_parameter_unregister.get_scope_and_name">
<querytext>
select scope, parameter_name
from apm_parameters
where parameter_id = :parameter_id
</querytext>
</fullquery>
<fullquery name="apm_parameter_unregister.all_parameters_packages">
<querytext>
select package_id, parameter_id, parameter_name
......@@ -140,7 +242,8 @@
<querytext>
select parameter_name, attr_value
from apm_parameters p, apm_parameter_values v, apm_packages a
where p.parameter_id = v.parameter_id
where p.scope = 'instance'
and p.parameter_id = v.parameter_id
and a.package_id = v.package_id
and a.package_id = :package_id
</querytext>
......@@ -216,4 +319,48 @@
</querytext>
</fullquery>
<fullquery name="apm::get_package_descendent_options.get">
<querytext>
select pretty_name, package_key
from apm_package_types
where implements_subsite_p = 't'
and package_key in ($in_clause)
order by pretty_name
</querytext>
</fullquery>
<fullquery name="apm::convert_type.update_package_key">
<querytext>
update apm_packages
set package_key = :new_package_key
where package_id = :package_id
</querytext>
</fullquery>
<fullquery name="apm::convert_type.get_params">
<querytext>
select parameter_name, parameter_id
from apm_parameters
where package_key = :old_package_key
</querytext>
</fullquery>
<fullquery name="apm::convert_type.get_new_parameter_id">
<querytext>
select parameter_id as new_parameter_id
from apm_parameters
where package_key = :new_package_key
and parameter_name = :parameter_name
</querytext>
</fullquery>
<fullquery name="apm::convert_type.update_param">
<querytext>
update apm_parameter_values
set parameter_id = :new_parameter_id
where parameter_id = :parameter_id
and package_id = :package_id
</querytext>
</fullquery>
</queryset>
tcl/apm-xml-procs.tcl
View file @ d4c89378
......@@ -16,7 +16,7 @@ ad_proc -private apm_required_attribute_value { element attribute } {
} {
set value [apm_attribute_value $element $attribute]
if { [empty_string_p $value] } {
if { $value eq "" } {
error "Required attribute \"$attribute\" missing from <[xml_node_get_name $element]>"
}
return $value
......@@ -46,7 +46,7 @@ ad_proc -private apm_tag_value {
ns_log Debug "apm_tag_value [$root nodeName] $property_name"
set node [xml_node_get_first_child_by_name $root $property_name]
if { ![empty_string_p $node] } {
if { $node ne "" } {
return [xml_node_get_content $node]
}
ns_log Debug "apm_tag_value $root $property_name $default --> $default"
......@@ -72,39 +72,45 @@ ad_proc -private apm_generate_package_spec { version_id } {
<pretty-plural>[ad_quotehtml $pretty_plural]</pretty-plural>
<initial-install-p>$initial_install_p</initial-install-p>
<singleton-p>$singleton_p</singleton-p>
<implements-subsite-p>$implements_subsite_p</implements-subsite-p>
<inherit-templates-p>$inherit_templates_p</inherit-templates-p>
${auto_mount_tag}
<version name=\"$version_name\" url=\"[ad_quotehtml $version_uri]\">\n"
db_foreach owner_info {} {
append spec " <owner"
if { ![empty_string_p $owner_uri] } {
if { $owner_uri ne "" } {
append spec " url=\"[ad_quotehtml $owner_uri]\""
}
append spec ">[ad_quotehtml $owner_name]</owner>\n"
}
apm_log APMDebug "APM: Writing Version summary and description"
if { ![empty_string_p $summary] } {
if { $summary ne "" } {
append spec " <summary>[ad_quotehtml $summary]</summary>\n"
}
if { ![empty_string_p $release_date] } {
if { $release_date ne "" } {
append spec " <release-date>[ad_quotehtml [string range $release_date 0 9]]</release-date>\n"
}
if { ![empty_string_p $vendor] || ![empty_string_p $vendor_uri] } {
if { $vendor ne "" || $vendor_uri ne "" } {
append spec " <vendor"
if { ![empty_string_p $vendor_uri] } {
if { $vendor_uri ne "" } {
append spec " url=\"[ad_quotehtml $vendor_uri]\""
}
append spec ">[ad_quotehtml $vendor]</vendor>\n"
}
if { ![empty_string_p $description] } {
if { $description ne "" } {
append spec " <description"
if { ![empty_string_p $description_format] } {
if { $description_format ne "" } {
append spec " format=\"[ad_quotehtml $description_format]\""
}
append spec ">[ad_quotehtml $description]</description>\n"
}
append spec [apm::package_version::attributes::generate_xml \
-version_id $version_id \
-indentation " "]
append spec "\n"
apm_log APMDebug "APM: Writing Dependencies."
......@@ -123,20 +129,23 @@ ad_proc -private apm_generate_package_spec { version_id } {
append spec " </callbacks>"
append spec "\n <parameters>\n"
apm_log APMDebug "APM: Writing parameters"
set parent_package_keys [lrange [apm_one_package_inherit_order $package_key] 0 end-1]
db_foreach parameter_info {} {
append spec " <parameter datatype=\"[ad_quotehtml $datatype]\" \
append spec " <parameter scope=\"[ad_quotehtml $scope]\" datatype=\"[ad_quotehtml $datatype]\" \
min_n_values=\"[ad_quotehtml $min_n_values]\" \
max_n_values=\"[ad_quotehtml $max_n_values]\" \
name=\"[ad_quotehtml $parameter_name]\" "
if { ![empty_string_p $default_value] } {
if { $default_value ne "" } {
append spec " default=\"[ad_quotehtml $default_value]\""
}
if { ![empty_string_p $description] } {
if { $description ne "" } {
append spec " description=\"[ad_quotehtml $description]\""
}
if { ![empty_string_p $section_name] } {
if { $section_name ne "" } {
append spec " section_name=\"[ad_quotehtml $section_name]\""
}
......@@ -163,8 +172,10 @@ ad_proc -public apm_read_package_info_file { path } {
<ul>
<li><code>path</code>: a path to the file read
<li><code>mtime</code>: the mtime of the file read
<li><code>provides</code> and <code>requires</code>: lists of dependency
information, containing elements of the form <code>[list $url $version]</code>
<li><code>provides</code>, <code>embeds</code>, <code>extends</code>,
and <code>requires</code>: <p>
lists of dependency information, containing elements of the form
<code>[list $url $version]</code>
<li><code>owners</code>: a list of owners containing elements of the form
<code>[list $url $name]</code>
<li><code>files</code>: a list of files in the package,
......@@ -205,8 +216,6 @@ ad_proc -public apm_read_package_info_file { path } {
descriptive error.
} {
ns_log Notice "apm_read_package_info_file: path=$path"
global ad_conn
# If the .info file hasn't changed since last read (i.e., has the same
......@@ -244,7 +253,7 @@ ad_proc -public apm_read_package_info_file { path } {
apm_log APMDebug "XML - one root child: [xml_node_get_name $child]"
}
if { ![string equal $root_name "package"] } {
if { $root_name ne "package" } {
apm_log APMDebug "XML: the root name is $root_name"
error "Expected <package> as root node"
}
......@@ -253,8 +262,10 @@ ad_proc -public apm_read_package_info_file { path } {
set properties(package.type) [apm_attribute_value -default "apm_application" $package type]
set properties(package-name) [apm_tag_value $package package-name]
set properties(initial-install-p) [apm_tag_value -default "f" $package initial-install-p]
set properties(singleton-p) [apm_tag_value -default "f" $package singleton-p]
set properties(auto-mount) [apm_tag_value -default "" $package auto-mount]
set properties(singleton-p) [apm_tag_value -default "f" $package singleton-p]
set properties(implements-subsite-p) [apm_tag_value -default "f" $package implements-subsite-p]
set properties(inherit-templates-p) [apm_tag_value -default "t" $package inherit-templates-p]
set properties(pretty-plural) [apm_tag_value -default "$properties(package-name)s" $package pretty-plural]
......@@ -274,6 +285,9 @@ ad_proc -public apm_read_package_info_file { path } {
set properties($property_name) [apm_tag_value $version $property_name]
}
apm::package_version::attributes::parse_xml \
-parent_node $version \
-array properties
# Set an entry in the properties array for each of these attributes:
#
......@@ -285,7 +299,7 @@ ad_proc -public apm_read_package_info_file { path } {
description format
} {
set node [xml_node_get_first_child_by_name $version $property_name]
if { ![empty_string_p $node] } {
if { $node ne "" } {
set properties($property_name.$attribute_name) [apm_attribute_value $node $attribute_name]
} else {
set properties($property_name.$attribute_name) ""
......@@ -301,15 +315,17 @@ ad_proc -public apm_read_package_info_file { path } {
set properties(provides) [list]
set properties(requires) [list]
set properties(embeds) [list]
set properties(extends) [list]
foreach dependency_type { provides requires } {
foreach dependency_type { provides requires embeds extends } {
set dependency_types [xml_node_get_children_by_name $version $dependency_type]
foreach node $dependency_types {
set service_uri [apm_required_attribute_value $node url]
set service_version [apm_required_attribute_value $node version]
# Package always provides itself, we'll add that below, so don't add it here
if { ![string equal $dependency_type provides] || ![string equal $service_uri $properties(package.key)] } {
if { $dependency_type ne "provides" || ![string equal $service_uri $properties(package.key)] } {
lappend properties($dependency_type) [list $service_uri $service_version]
}
}
......@@ -381,9 +397,14 @@ ad_proc -public apm_read_package_info_file { path } {
set section_name [apm_attribute_value $parameter_node section_name]
set datatype [apm_attribute_value $parameter_node datatype]
set name [apm_attribute_value $parameter_node name]
set scope [apm_attribute_value $parameter_node scope]
if { $scope eq "" } {
set scope instance
}
apm_log APMDebug "APM: Reading parameter $name with default $default_value"
lappend properties(parameters) [list $name $description $section_name $datatype $min_n_values $max_n_values $default_value]
lappend properties(parameters) [list $name $description $section_name $scope $datatype $min_n_values $max_n_values $default_value]
}
}
......
tcl/apm-xml-procs.xql
View file @ d4c89378
......@@ -11,6 +11,8 @@
t.package_type,
t.initial_install_p,
t.singleton_p,
t.implements_subsite_p,
t.inherit_templates_p,
v.*
from apm_package_versions v,
apm_package_types t
......@@ -66,16 +68,22 @@
<fullquery name="apm_generate_package_spec.parameter_info">
<querytext>
select parameter_name,
description,
datatype,
section_name,
default_value,
min_n_values,
max_n_values
from apm_parameters
where package_key = :package_key
order by parameter_name
select ap.parameter_name,
ap.description,
ap.datatype,
ap.section_name,
ap.default_value,
ap.min_n_values,
ap.max_n_values,
ap.scope
from apm_parameters ap
where ap.package_key = :package_key
and not exists (select 1
from apm_parameters ap2
where ap.parameter_name = ap2.parameter_name
and ap2.package_key in ('[join $parent_package_keys ',']')
)
order by ap.parameter_name
</querytext>
</fullquery>
......
tcl/community-core-procs-oracle.xql
View file @ d4c89378
......@@ -40,9 +40,11 @@
<fullquery name="person::delete.delete_person">
<querytext>
select person.del(:person_id) from dual;
begin
person.del(
person_id => :person_id
);
end;
</querytext>
</fullquery>
......
tcl/community-core-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/community-core-procs.xql
View file @ d4c89378
This diff is collapsed.
tcl/database-init.tcl
View file @ d4c89378
......@@ -8,3 +8,8 @@ ad_library {
}
#DRB: the default value is needed during the initial install of OpenACS
ns_cache create db_cache_pool -size \
[parameter::get_from_package_key \
-package_key acs-kernel \
-parameter DBCacheSize -default 50000]
tcl/defs-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/defs-procs.xql
View file @ d4c89378
This diff is collapsed.
tcl/deprecated-utilities-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/document-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/exception-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/form-processing-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/html-email-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/membership-rel-procs-oracle.xql
View file @ d4c89378
This diff is collapsed.
tcl/membership-rel-procs-postgresql.xql
View file @ d4c89378
This diff is collapsed.
tcl/membership-rel-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/memoize-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/navigation-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/object-procs-oracle.xql
View file @ d4c89378
This diff is collapsed.
tcl/object-procs-postgresql.xql
View file @ d4c89378
This diff is collapsed.
tcl/object-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/object-procs.xql
View file @ d4c89378
This diff is collapsed.
tcl/object-type-procs-oracle.xql
View file @ d4c89378
This diff is collapsed.
tcl/object-type-procs-postgresql.xql
View file @ d4c89378
This diff is collapsed.
tcl/object-type-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/object-type-procs.xql
View file @ d4c89378
This diff is collapsed.
tcl/openacs-kernel-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/parameter-procs-oracle.xql
View file @ d4c89378
This diff is collapsed.
tcl/parameter-procs-postgresql.xql
View file @ d4c89378
This diff is collapsed.
tcl/parameter-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/request-processor-init.tcl
View file @ d4c89378
This diff is collapsed.
tcl/request-processor-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/security-init.tcl
View file @ d4c89378
This diff is collapsed.
tcl/security-procs-postgresql.xql
View file @ d4c89378
This diff is collapsed.
tcl/security-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/server-cluster-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/set-operation-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/site-node-apm-integration-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/site-node-object-map-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/site-nodes-init.tcl
View file @ d4c89378
This diff is collapsed.
tcl/site-nodes-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/site-nodes-procs.xql
View file @ d4c89378
This diff is collapsed.
tcl/sql-statement-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/table-display-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/tcl-documentation-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/test/acs-tcl-test-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/test/html-conversion-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/test/log-test-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/test/site-nodes-test-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/text-html-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/user-extensions-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/utilities-init.tcl
View file @ d4c89378
This diff is collapsed.
tcl/utilities-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/whos-online-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/widgets-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/xml-0-sgml-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/xml-1-dom-procs.tcl
View file @ d4c89378
This diff is collapsed.
tcl/xml-2-procs.tcl
View file @ d4c89378
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment