Changeset 3293

Show
Ignore:
Timestamp:
06/18/08 17:18:20 (7 months ago)
Author:
ksprotte
Message:

dictionary bugfix in load-dictionary: do not make an entry for <value></value>

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/web/dictionary.lisp

    r3290 r3293  
    105105                         (assert (equal "value" (cxml-xmls:node-name (second key-value))) nil 
    106106                                 "expected element \"value\"") 
    107                          (let ((key (trim-whitespace (first (cxml-xmls:node-children (first key-value))))) 
    108                                (value (trim-whitespace (first (cxml-xmls:node-children (second key-value)))))) 
    109                            (assert (stringp key)) 
    110                            (assert (stringp value))                            
    111                            (unless (zerop (length value)) 
    112                              (setf (%dictionary-entry key language) value))))))) 
     107                         (let ((key (first (cxml-xmls:node-children (first key-value)))) 
     108                               (value (first (cxml-xmls:node-children (second key-value))))) 
     109                           (when value 
     110                             (let ((key (trim-whitespace key)) 
     111                                   (value (trim-whitespace value))) 
     112                               (assert (stringp key)) 
     113                               (assert (stringp value))                           
     114                               (unless (zerop (length value)) 
     115                                 (setf (%dictionary-entry key language) value))))))))) 
    113116               (error (c) 
    114117                 (error "Error while loading ~a:~%~a"