aboutsummaryrefslogtreecommitdiff
path: root/xml
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2006-03-22 21:29:10 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2006-03-22 21:29:10 +0000
commitf23d9987e514057fc2c9f23f2492bf4c56f79808 (patch)
treeea70b63946654348da242d634a46bec28be22713 /xml
parent3f7bb5da52992b3263cc8514beaafba4017cc0cd (diff)
downloadellinika-f23d9987e514057fc2c9f23f2492bf4c56f79808.tar.gz
ellinika-f23d9987e514057fc2c9f23f2492bf4c56f79808.tar.bz2
Add
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@386 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'xml')
-rw-r--r--xml/nea.scm9
1 files changed, 9 insertions, 0 deletions
diff --git a/xml/nea.scm b/xml/nea.scm
new file mode 100644
index 0000000..a026026
--- /dev/null
+++ b/xml/nea.scm
@@ -0,0 +1,9 @@
+(use-modules (xmltrans lingua)
+ (xmltools dict))
+(letrec ((nea (lambda (. args)
+ (string-append
+ (lingua:get-cgi-bin)
+ "/nea.cgi?LANG="
+ (lingua:LANG args)))))
+ (xmltrans:set-attr "LINGUA" "NEA" nea))
+

Return to:

Send suggestions and report system problems to the System administrator.