Changeset 18199 in project


Ignore:
Timestamp:
05/24/10 18:30:42 (11 years ago)
Author:
azul
Message:

Fixes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/svnwiki-translations/trunk/svnwiki-translations.scm

    r18181 r18199  
    1414(define (translations-links env)
    1515  (let-from-environment env (path-out-real path-in params)
    16     (let* ((components (string-split path-out-real "/"))
    17            (special (svnwiki-is-special? #f path-out-real))
     16    (let* ((special (svnwiki-is-special? #f path-out-real))
    1817           (base-filename
    1918             (string-append
    20                (stream->string (svnwiki-file-without-language (last components)))
     19               (stream->string
     20                 (svnwiki-file-without-language (svnwiki-basename path-out-real)))
    2121               "."))
    2222           (dir
    23              (svnwiki-make-pathname
    24                (cons path-in
    25                      ((if special butlast identity)
    26                       (butlast components)))))
     23             (svnwiki-make-pathname 
     24               path-in
     25               ((if special svnwiki-dirname identity)
     26                (svnwiki-dirname path-out-real))))
    2727           (translations
    2828             (stream-filter
     
    5555                           (and special "..")
    5656                           file
    57                            (mime->ending
    58                              ((handler-mime (get-handler (environment env ((path path-out-real)))))
    59                               path-in
    60                               path-out-real))))
     57                           (mime->ending (render-file-mime-type env))))
    6158                      (let* ((language (svnwiki-file-language file))
    6259                             (name (and language (assoc (stream->symbol language) *languages*))))
Note: See TracChangeset for help on using the changeset viewer.