Index: openacs-4/packages/acs-tcl/acs-tcl.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/acs-tcl.info,v
diff -u -r1.67.2.14 -r1.67.2.15
--- openacs-4/packages/acs-tcl/acs-tcl.info 11 Sep 2014 10:52:05 -0000 1.67.2.14
+++ openacs-4/packages/acs-tcl/acs-tcl.info 17 Sep 2014 07:51:48 -0000 1.67.2.15
@@ -7,7 +7,7 @@
t
t
-
+
OpenACS
The Kernel Tcl API library.
2013-09-08
@@ -17,7 +17,7 @@
Contains all the core Tcl API, including the request processor, security and session management, permissions, site-nodes, package management infrastructure, etc.
GPL version 2
-
+
Index: openacs-4/packages/acs-tcl/catalog/acs-tcl.de_DE.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/catalog/acs-tcl.de_DE.ISO-8859-1.xml,v
diff -u -r1.17 -r1.17.10.1
--- openacs-4/packages/acs-tcl/catalog/acs-tcl.de_DE.ISO-8859-1.xml 18 Nov 2007 21:27:10 -0000 1.17
+++ openacs-4/packages/acs-tcl/catalog/acs-tcl.de_DE.ISO-8859-1.xml 17 Sep 2014 07:51:48 -0000 1.17.10.1
@@ -43,11 +43,11 @@
%name% ist keine nat�rliche Zahl, die eine ganzzahlige Zahl gr��er oder gleich 0 ist.
%name% ist kein g�ltiger SQL Identifikator
%name% ist keine ganzzahlige Zahl
- %name% ist nicht im Bereich von \[%min%, %max%\]
- %name% ist zu lang. Bitte geben Sie einen Wert ein, der h�chstens [lindex $range 1] Buchstaben hat. Der Wert, den Sie eingegeben haben war [string length $value] Buchstaben lang.
- %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.
- %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.
- %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.
+ %name% ist nicht im Bereich von [%min%, %max%]
+ %name% ist zu lang. Bitte geben Sie einen Wert ein, der h�chstens %max_length% Buchstaben hat. Der Wert, den Sie eingegeben haben, ist %actual_length% Buchstaben lang.
+ %name% ist zu lang. Bitte geben Sie einen Wert ein der mindestens %min_length% Zeichen lang ist. Der Wert den Sie eingeben haben, ist %actual_length% Zeichen lang.
+ %name% ist zu kurz. Bitte geben Sie einen Wert ein, der mindestens %min_length% Zeichen lang ist. Der Wert den Sie eingegeben haben, ist %actual_length% Zeichen lang.
+ %name% ist zu kurz. Bitte geben Sie einen Wert ein, der mindestens %min_length% Zeichen lang ist. Der Wert, den Sie eingegeben haben, ist %actual_length% Zeichen lang.
Der Fehler wurde �bermittelt
Bitte gehen Sie mit Ihrem Browser zur�ck und korrigieren den oben stehenden
Problem mit Ihrer Seite (oder vielleicht mit Ihrer Eingabe)
Index: openacs-4/packages/acs-tcl/catalog/acs-tcl.el_GR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/catalog/acs-tcl.el_GR.utf-8.xml,v
diff -u -r1.2 -r1.2.10.1
--- openacs-4/packages/acs-tcl/catalog/acs-tcl.el_GR.utf-8.xml 19 Nov 2007 22:09:25 -0000 1.2
+++ openacs-4/packages/acs-tcl/catalog/acs-tcl.el_GR.utf-8.xml 17 Sep 2014 07:51:48 -0000 1.2.10.1
@@ -44,11 +44,11 @@
Ο %name% δεν είναι ένας φυσικός αριθμός, δηλαδή ένας ακέραιος ίσος ή μεγαλύτερος του 0.
Ο %name% είναι ένα άκυρο SQL identifier
Ο %name% δεν είναι ακέραιος
- Ο %name% δεν είναι εντός ορίων \[%min%, %max%\]
- Ο %name% είναι πολύ μακρύς. Παρακαλούμε εισάγετε μια τιμή για το μέγιστο αριθμό χαρακτήρων [lindex $range 1]. Η τιμή που εισάγατε διαθέτει [string length $value] χαρακτήρες μήκος.
- O %name% αποτελείται από πολλά ψηφία. Παρακαλούμε εισάγετε μια τιμή με το πολύ [lindex $length 1] ψηφία. Η τιμή που είχατε δώσει ήταν [string length $value] ψηφίων.
- O %name% αποτελείται από πολύ λίγα ψηφία. Παρακαλούμε εισάγετε μια τιμή με το λιγότερο [lindex $range 0] ψηφία. Η τιμή που είχατε δώσει ήταν [string length $value] ψηφίων.
- Ο %name% άποτελείται από πολύ λίγα ψηφία. Παρακαλούμε εισάγετε μια τιμή τουλάχιστον [lindex $length 1] ψηφίων. Η τιμλη που είχατε εισάγει ήταν [string length $value] ψηφίων.
+ Ο %name% δεν είναι εντός ορίων [%min%, %max%]
+ Ο %name% είναι πολύ μακρύς. Παρακαλούμε εισάγετε μια τιμή για το μέγιστο αριθμό χαρακτήρων %max_length%. Η τιμή που εισάγατε διαθέτει %actual_length% χαρακτήρες μήκος.
+ O %name% αποτελείται από πολλά ψηφία. Παρακαλούμε εισάγετε μια τιμή με το πολύ %max_length% ψηφία. Η τιμή που είχατε δώσει ήταν %actual_length% ψηφίων.
+ O %name% αποτελείται από πολύ λίγα ψηφία. Παρακαλούμε εισάγετε μια τιμή με το λιγότερο %min_length% ψηφία. Η τιμή που είχατε δώσει ήταν %actual_length% ψηφίων.
+ Ο %name% άποτελείται από πολύ λίγα ψηφία. Παρακαλούμε εισάγετε μια τιμή τουλάχιστον %min_length% ψηφίων. Η τιμλη που είχατε εισάγει ήταν %actual_length% ψηφίων.
Το σφάλμα έχει αποσταλλεί
Παρακαλούμε επιστρέψετε πίσω με το λογισμικό πλοήγησης, διορθώστε τα παραπάνω
Σφάλμα σε μια σελίδα (ή ίσως στις πληροφορίες που δώσατε)
Index: openacs-4/packages/acs-tcl/catalog/acs-tcl.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/catalog/acs-tcl.en_US.ISO-8859-1.xml,v
diff -u -r1.23.6.1 -r1.23.6.2
--- openacs-4/packages/acs-tcl/catalog/acs-tcl.en_US.ISO-8859-1.xml 16 Sep 2013 08:05:09 -0000 1.23.6.1
+++ openacs-4/packages/acs-tcl/catalog/acs-tcl.en_US.ISO-8859-1.xml 17 Sep 2014 07:51:48 -0000 1.23.6.2
@@ -45,15 +45,15 @@
%name% is not a natural number, that is an integer greater than or equal to 0.
%name% is not a valid SQL identifier
%name% is not an integer
- %name% is not in the range \[%min%, %max%\]
- %name% is too long. Please enter a value of at most [lindex $range 1] characters long. The value you entered was [string length $value] characters long.
+ %name% is not in the range [%min%, %max%]
+ %name% is too long. Please enter a value of at most %max_length% characters long. The value you entered is %actual_length% characters long.
This string looks broken!
- %name% is too long. Please enter a value of at most [lindex $length 1] characters long. The value you entered was [string length $value] characters long.
+ %name% is too long. Please enter a value of at most %max_length% characters long. The value you entered is %actual_length% characters long.
This message text looks broken!
- %name% is too short. Please enter a value of at least [lindex $range 0] characters long. The value you entered was [string length $value] characters long.
- %name% is too short. Please enter a value of at least [lindex $length 1] characters long. The value you entered was [string length $value] characters long.
+ %name% is too short. Please enter a value of at least %min_length% characters long. The value you entered is %actual_length% characters long.
+ %name% is too short. Please enter a value of at least %min_length% characters long. The value you entered is %actual_length% characters long.
This error was submitted
Please back up using your browser, correct the above
Problem with a Page (or maybe Your Input)
Index: openacs-4/packages/acs-tcl/catalog/acs-tcl.es_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/catalog/acs-tcl.es_ES.ISO-8859-1.xml,v
diff -u -r1.19 -r1.19.6.1
--- openacs-4/packages/acs-tcl/catalog/acs-tcl.es_ES.ISO-8859-1.xml 2 Feb 2010 21:41:59 -0000 1.19
+++ openacs-4/packages/acs-tcl/catalog/acs-tcl.es_ES.ISO-8859-1.xml 17 Sep 2014 07:51:48 -0000 1.19.6.1
@@ -45,10 +45,10 @@
%name% no es un identificador SQL v�lido
%name% no es un entero
%name% no est� en el rango \[%min%, %max%\]
- %name% es demasiado largo. Por favor, introduzca un valor no superior a [lindex $range 1] caracteres. El valor introducido contiene [string length $value] caracteres.
- %name% es demasiado largo. Por favor, introduzca un valor no superior a [lindex $length 1] caracteres. El valor introducido contiene [string length $value] caracteres.
- %name% es demasiado corto. Por favor, introduzca un valor de al menos [lindex $range 0] caracteres. El valor introducido contiene [string length $value] caracteres.
- %name% es demasiado corto. Por favor, introduzca un valor de al menos [lindex $length 0] caracteres. El valor introducido contiene [string length $value] caracteres.
+ %name% es demasiado largo. Por favor, introduzca un valor no superior a %max_length% caracteres. El valor introducido contiene %actual_length% caracteres.
+ %name% es demasiado largo. Por favor, introduzca un valor no superior a %max_length% caracteres. El valor introducido contiene %actual_length% caracteres.
+ %name% es demasiado corto. Por favor, introduzca un valor de al menos %min_length% caracteres. El valor introducido contiene %actual_length% caracteres.
+ %name% es demasiado corto. Por favor, introduzca un valor de al menos %min_length% caracteres. El valor introducido contiene %actual_length% caracteres.
El error ha sido registrado
Por favor, vuelva atr�s, corrija
Hubo un problema con la p�gina
Index: openacs-4/packages/acs-tcl/catalog/acs-tcl.nl_NL.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/catalog/acs-tcl.nl_NL.ISO-8859-1.xml,v
diff -u -r1.18 -r1.18.10.1
--- openacs-4/packages/acs-tcl/catalog/acs-tcl.nl_NL.ISO-8859-1.xml 10 Dec 2007 09:12:26 -0000 1.18
+++ openacs-4/packages/acs-tcl/catalog/acs-tcl.nl_NL.ISO-8859-1.xml 17 Sep 2014 07:51:48 -0000 1.18.10.1
@@ -43,11 +43,11 @@
%name% ziet er niet uit als een natuurlijk getal, dat is, een geheel getal groter dan 0.
%name% is geen geldig SQL-symbool
%naam% is geen geheel getal
- %name% zit niet in het bereik \[%min%..%max%\]
- %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.
- %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.
- %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.
- %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.
+ %name% zit niet in het bereik [%min%..%max%]
+ %name% is te lang. Geef alstublieft een waarde van minimaal %max_length% tekens lang in. De waarde die u ingaf was %actual_length% tekens lang.
+ %name% is te lang. Geef alstublieft een waarde in van maximaal %max_length% tekens lang. De waarde die u ingaf was %actual_length% tekens lang.
+ %name% is te kort. Geef alstublieft een waarde van minimaal %min_length% tekens lang in. De waarde die u ingaf was %actual_length% tekens lang.
+ %name% is te kort. Geef alstublieft een waarde van minimaal %min_length% tekens lang in. De waarde die u ingaf was %actual_length% tekens lang.
Deze fout is ingestuurd
Ga met uw browser terug naar de vorige bladzijde en corrigeer het bovenstaande
Probleem met pagina (kan door uw invoer veroorzaakt zijn)
Index: openacs-4/packages/acs-tcl/catalog/acs-tcl.nl_ZA.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/catalog/acs-tcl.nl_ZA.ISO-8859-1.xml,v
diff -u -r1.3 -r1.3.8.1
--- openacs-4/packages/acs-tcl/catalog/acs-tcl.nl_ZA.ISO-8859-1.xml 29 Aug 2008 17:43:06 -0000 1.3
+++ openacs-4/packages/acs-tcl/catalog/acs-tcl.nl_ZA.ISO-8859-1.xml 17 Sep 2014 07:51:49 -0000 1.3.8.1
@@ -43,11 +43,11 @@
%name% sien daar nie uit nie as 'n natuurlike getal, dat is, 'n geheel getal groter as 0.
%name% is geen geldig SQL-simbool
%naam% is geen geheel getal nie
- %name% sit nie in die bereik \[%min%..%max%\] nie
- %name% is te lang. Geef assublief 'n waarde van maximaal [lindex $range 1] tekens lang in. De waarde die u ingegeef het was [string length $value] tekens lang.
- %name% is te lang. Geef assublief 'n waarde in van maximaal [lindex $length 1] tekens lang. Die waarde wat u ingegeef het was [string length $value] tekens lang.
- %name% is te kort. Geef assublief 'n waarde van minimaal [lindex $range 0] tekens lang in. Die waarde wat u ingegeef het was [string length $value] tekens lang.
- %name% is te kort. Geef assublief 'n waarde van minimaal [lindex $length 1] tekens lang in. Die waarde wat u ingegeef het was [string length $value] tekens lang.
+ %name% sit nie in die bereik [%min%..%max%] nie
+ %name% is te lang. Geef assublief 'n waarde van maximaal %max_length% tekens lang in. De waarde die u ingegeef het was %actual_length% tekens lang.
+ %name% is te lang. Geef assublief 'n waarde in van maximaal %max_length% tekens lang. Die waarde wat u ingegeef het was %actual_length% tekens lang.
+ %name% is te kort. Geef assublief 'n waarde van minimaal %min_length% tekens lang in. Die waarde wat u ingegeef het was %actual_length% tekens lang.
+ %name% is te kort. Geef assublief 'n waarde van minimaal %min_length% tekens lang in. Die waarde wat u ingegeef het was %actual_length% tekens lang.
Deze fout is ingestuur
Gaan met u blaaier terug na die vorige bladsy en korrigeer die bostaande
Probleem met bladsy (kan door uw invoer veroorzaak wees)
Index: openacs-4/packages/acs-tcl/catalog/acs-tcl.pt_BR.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/catalog/acs-tcl.pt_BR.ISO-8859-1.xml,v
diff -u -r1.16 -r1.16.10.1
--- openacs-4/packages/acs-tcl/catalog/acs-tcl.pt_BR.ISO-8859-1.xml 10 Dec 2007 09:12:26 -0000 1.16
+++ openacs-4/packages/acs-tcl/catalog/acs-tcl.pt_BR.ISO-8859-1.xml 17 Sep 2014 07:51:49 -0000 1.16.10.1
@@ -44,10 +44,10 @@
%name% n�o � um identificador SQL v�lido
%name% n�o � um inteiro
%name% n�o est� na faixa \[%min%, %max%\]
- %name% � muito longo. Por favor digite um valor com no m�ximo [lindex $range 1] caracteres. O valor digitado por voc� tem [string length $value] caracteres.
- %name% � muito longo. Por favor digite um valor com no m�ximo [lindex $range 1] caracteres. O valor digitado por voc� tem [string length $value] caracteres.
- %name% � muito curto. Por favor digite um valor com no m�nimo [lindex $range 0] caracteres. O valor digitado por voc� tem [string length $value] caracteres.
- %name% � muito curto. Por favor digite um valor com no m�nimo [lindex $length 1] caracteres. O valor digitado por voc� tem [string length $value] caracteres.
+ %name% � muito longo. Por favor digite um valor com no m�ximo %max_length% caracteres. O valor digitado por voc� tem %actual_length% caracteres.
+ %name% � muito longo. Por favor digite um valor com no m�ximo %max_length% caracteres. O valor digitado por voc� tem %actual_length% caracteres.
+ %name% � muito curto. Por favor digite um valor com no m�nimo %min_length% caracteres. O valor digitado por voc� tem %actual_length% caracteres.
+ %name% � muito curto. Por favor digite um valor com no m�nimo %min_length% caracteres. O valor digitado por voc� tem %actual_length% caracteres.
O erro foi enviado
Por favor use o bot�o "Retornar � p�gina anterior" do seu navegador, e corrija os erros acima
Problema com a p�gina (ou com os dados digitados)
Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -r1.30.2.14 -r1.30.2.15
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 6 Aug 2014 16:07:52 -0000 1.30.2.14
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 17 Sep 2014 07:51:49 -0000 1.30.2.15
@@ -1550,7 +1550,9 @@
ad_page_contract_filter range { name value range } {
Checks whether the value falls between the specified range.
Range must be a list of two elements: min and max.
+ Example spec: w:range(3|7)
+
@author Yonatan Feldman (yon@arsdigita.com)
@creation-date August 18, 2000
} {
@@ -1795,11 +1797,14 @@
@author Randy Beggs (randyb@arsdigita.com)
@creation-date August 2000
} {
- if { [string length $value] < [lindex $range 0] } {
- ad_complain "[_ acs-tcl.lt_name_is_too_short__Pl]"
+ set actual_length [string length $value]
+ if { $actual_length < [lindex $range 0] } {
+ set binding [list name $name actual_length $actual_length min_length [lindex $range 0]]
+ ad_complain [_ acs-tcl.lt_name_is_too_short__Pl $binding]
return 0
- } elseif { [string length $value] > [lindex $range 1] } {
- ad_complain "[_ acs-tcl.lt_name_is_too_long__Ple]"
+ } elseif { $actual_length > [lindex $range 1] } {
+ set binding [list name $name actual_length $actual_length max_length [lindex $range 1]]
+ ad_complain [_ acs-tcl.lt_name_is_too_long__Ple $binding]
return 0
}
return 1
@@ -1814,14 +1819,17 @@
@author Randy Beggs (randyb@arsdigita.com)
@creation-date August 2000
} {
+ set actual_length [string length $value]
if { [lindex $length 0] eq "min" } {
- if { [string length $value] < [lindex $length 1] } {
- ad_complain "[_ acs-tcl.lt_name_is_too_short__Pl_1]"
+ if { $actual_length < [lindex $length 1] } {
+ set binding [list name $name actual_length $actual_length min_length [lindex $length 1]]
+ ad_complain [_ acs-tcl.lt_name_is_too_short__Pl_1]
return 0
}
} else {
- if { [string length $value] > [lindex $length 1] } {
- ad_complain "[_ acs-tcl.lt_name_is_too_long__Ple_1]"
+ if { $actual_length > [lindex $length 1] } {
+ set binding [list name $name actual_length $actual_length max_length [lindex $length 1]]
+ ad_complain [_ acs-tcl.lt_name_is_too_long__Ple_1 $binding]
return 0
}
}