Changeset 14615 in project


Ignore:
Timestamp:
05/13/09 07:08:09 (11 years ago)
Author:
Ivan Raikov
Message:

uri-escape local file and directory names

Location:
release/4/neuromorpho
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/neuromorpho/neuromorpho.scm

    r14614 r14615  
    103103           (locn      (uri->string (update-uri (update-uri uri scheme: #f) host: #f)))
    104104           (query     (and query (not (string-null? query)) query))
    105            (filedir   (string-concatenate (intersperse (if query path (drop-right path 1)) "/")))
    106            (filename  (or (and query (cadr (string-split query "="))) (last path)))
     105           (filedir   (uri-decode-string (string-concatenate (intersperse (if query path (drop-right path 1)) "/"))))
     106           (filename  (uri-decode-string (or (and query (cadr (string-split query "="))) (last path))))
    107107           (dest      (make-pathname dest filedir))
    108108           (filepath  (make-pathname dest filename)))
  • release/4/neuromorpho/neuromorpho.setup

    r14614 r14615  
    1010
    1111  ; Assoc list with properties for the program:
    12   '((version 1.1)))
     12  '((version 1.2)))
    1313;    (documentation "neuromorpho.html")))
Note: See TracChangeset for help on using the changeset viewer.