diff options
Diffstat (limited to 'xml/lingua.conf.in')
| -rw-r--r-- | xml/lingua.conf.in | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/xml/lingua.conf.in b/xml/lingua.conf.in index 1e7ded3..66e62cb 100644 --- a/xml/lingua.conf.in +++ b/xml/lingua.conf.in @@ -74,10 +74,15 @@ this notice is preserved.</p>\n" "<div class=\"hidden-info\">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) - "")) + (let ((vcs-id (or (xmltrans:attr attr "VCS-ID") + (lingua:getval "VCSID")))) + (cond + ((not vcs-id) "") + ((string-null? vcs-id) "") + ((let ((v (lingua:getval "STATE"))) (and v (string=? v "EXP"))) + (string-append " from <a href=\"http://git.gnu.org.ua/cgit/ellinika.git/commit/?id=" vcs-id "\">" vcs-id "</a>")) + (else + (string-append " from " vcs-id)))) "</div>" )) |