Changeset 14911 in project


Ignore:
Timestamp:
06/06/09 16:41:29 (11 years ago)
Author:
azul
Message:

Bug fixes.

File:
1 edited

Legend:

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

    r14905 r14911  
    33; License: GPL-3
    44
    5 (declare (export))
     5(declare (export save-properties-simple))
    66
    77(use svnwiki-extensions-support srfi-40 stream-ext html-stream format-modular stream-wiki embedded-test)
     
    5050; svn ps svnwiki:handler "$(svn pg svnwiki:handler .) properties" .
    5151; svn ps svnwiki:properties:list 'svnwiki:title svnwiki:tags' .
    52 ; svn ps svnwiki:properties:name:svnwiki:title 'Title' .
    53 ; svn ps svnwiki:properties:name:svnwiki:tags 'Tags' .
     52; svn ps svnwiki:properties:name:svnwiki:title Title .
     53; svn ps svnwiki:properties:name:svnwiki:tags Tags .
    5454; svn ps svnwiki:properties:help:svnwiki:title 'Title for this page, the filename will be used if empty' .
    5555; svn ps svnwiki:properties:help:svnwiki:tags 'Space-separated list of tags for this page' .
     
    5757; If you have the googlemap extension, you may want to do this:
    5858;
    59 ; svn ps svnwiki:properties:list "svnwiki:title svnwiki:tags svnwiki:location" .
    60 ; svn ps svnwiki:properties:name:svnwiki:location 'Location'
     59; svn ps svnwiki:properties:list 'svnwiki:title svnwiki:tags svnwiki:location' .
     60; svn ps svnwiki:properties:type:svnwiki:location googlemap-location .
     61; svn ps svnwiki:properties:name:svnwiki:location Location .
    6162; svn ps svnwiki:properties:help:svnwiki:location 'Location associated with this page' .
    6263
     
    173174    (return `(select ,edit-properties-select ,save-properties-simple))))
    174175
    175 (svnwiki-extension-define 'metadata-edit-type-register 'metadata metadata-edit-type-register)
     176(svnwiki-extension-define 'metadata-edit-type-register 'properties metadata-edit-type-register)
    176177
    177178; If properties are defined for the file for this request and it is not a
     
    206207                         ":"
    207208                         (br)
    208                          ((cadr (find-property-editor env))
     209                         ((cadr (find-property-editor env property))
    209210                          env
    210211                          property))))
    211                   (get-properties env))))))))))
     212                  (get-svn-properties env))))))))))
    212213
    213214(define (find-property-editor env property)
     
    215216    (or (and-let* ((type (get-props-parents-first (format #f "svnwiki:properties:type:~A" (stream->string property)) path-in path ""))
    216217                   (editors (stream->list (call-extensions-delay env 'metadata-edit-type-register))))
    217           (assoc editors type))
     218          (assoc editors (string->symbol type)))
    218219        *edit-properties-default*)))
    219220
Note: See TracChangeset for help on using the changeset viewer.