aboutsummaryrefslogtreecommitdiff
path: root/xml
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2006-03-23 09:10:53 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2006-03-23 09:10:53 +0000
commit0cfa116bf50d4b6e555c1964fdfc0faa8124dbb2 (patch)
tree0d40e60ce86f348de0e4b85ccb4f3baa9e71a42e /xml
parent7518cda05846fe76e026caaea82417ff4c19d40d (diff)
downloadellinika-0cfa116bf50d4b6e555c1964fdfc0faa8124dbb2.tar.gz
ellinika-0cfa116bf50d4b6e555c1964fdfc0faa8124dbb2.tar.bz2
(INFO): Do not set language territory code explicitely
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@395 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'xml')
-rw-r--r--xml/lingua.conf.in17
1 files changed, 8 insertions, 9 deletions
diff --git a/xml/lingua.conf.in b/xml/lingua.conf.in
index a953c4f..508ade7 100644
--- a/xml/lingua.conf.in
+++ b/xml/lingua.conf.in
@@ -56,20 +56,19 @@
(for-each
(lambda (lang)
(cond
- ((not (string=? (list-ref lang 0) (car name)))
+ ((not (string=? (car lang) (car name)))
(if (not (null? args))
(format #t "<li><a href=\"~A@@args@@\">~A</a></li>"
((lingua:attr "LINGUA" (car args))
- #:lang (list-ref lang 0)
- #:ter (list-ref lang 1))
- (list-ref lang 2))
+ #:lang (car lang))
+ (cdr lang))
(format #t "<li><a href=\"~A/~A\">~A</a></li>"
- (list-ref lang 0)
+ (car lang)
rest
- (list-ref lang 2))))))
- '(("pl" "PL" "Polski")
- ("ru" "RU" "Русский")
- ("uk" "UA" "Українська"))))
+ (cdr lang))))))
+ '(("pl" . "Polski")
+ ("ru" . "Русский")
+ ("uk" . "Українська"))))
(display "</li></ul></ul>")))
#f
]]>

Return to:

Send suggestions and report system problems to the System administrator.