\n"
(format #f "~A ~A;"
(lingua:gettext "For information about this site contact")
(lingua:attr "AUTHOR" "EMAIL")
(lingua:attr "AUTHOR" "CONTACT"))
"\n"
text
"
\n"
"Verbatim copying and distribution of this entire article are
permitted worldwide, without royalty, in any medium, provided
this notice is preserved.
\n"
"Page generated on "
(strftime "%c" (localtime (current-time)))
(let ((vcs-id (xmltrans:attr attr "VCS-ID")))
(if (and vcs-id (not (string-null? vcs-id)))
(string-append " from " vcs-id)
""))
"
"
))
(xmltrans:end-tag
"KATHAREVUSA"
(tag attr text)
(list "" text "
"))
(xmltrans:end-tag
"news"
(tag attr text)
(list ""))
(xmltrans:end-tag
"news:summary"
(tag attr text)
(list "" text "
"))
(xmltrans:end-tag
"news:article"
(tag attr text)
(list "" text "
"))
(xmltrans:end-tag
"news:header"
(tag attr text)
(list ""))
(xmltrans:end-tag
"news:permanent-article"
(tag attr text)
(list "" text "
"))
(gamlet:set-handler "INFO"
(lambda (. args)
(display "")))
#f
]]>