Changeset 29106 in project


Ignore:
Timestamp:
06/16/13 04:48:41 (6 years ago)
Author:
Ivan Raikov
Message:

html-form: some tweaks to xsd output routine

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/html-form/trunk/html-form.scm

    r29096 r29106  
    234234    `(xs:element
    235235      (@ (name ,name)
    236          ,(if optional '(minOccurs "0") (if multiple '(minOccurs "1") '(minOccurs "unbounded"))))
     236         ,(if optional '(minOccurs "0") '(minOccurs "1")))
    237237      ,@(widget-xsd name label rel default rest))
    238238    ))
     
    258258
    259259
    260 (define (form-xsd title xs)
     260(define (form-xsd name title xs)
    261261  (let recur ((xs xs) (ax '()))
    262262    (if (null? xs)
     
    264264          (@ (xmlns:xs "http://www.w3.org/2001/XMLSchema")
    265265             (elementFormDefault "qualified"))
    266           (xs:element (@ (name ,title))
     266          (xs:element (@ (name ,name))
     267                      (xs:annotation
     268                       (xs:documentation
     269                        (@ (source "ospi.label")
     270                           (xml:lang "en"))
     271                        ,title))
    267272                      (xs:complexType
    268273                       (xs:sequence . ,(reverse ax)))
Note: See TracChangeset for help on using the changeset viewer.