module namespace tf = "http://www.cems.uwe.ac.uk/xmlwiki/tf";

(:
typical model :

declare variable $model :=
<model>
   <columns default="4" size="2"/>
   <rows default="3" size="2"/>
   <min default="1" size="2"/>
   <max default="6" size="2" />
   <base default="10" size="2"/>
</model>;

:)
declare function tf:get-parameter-values($model){
element model {
  for $field in $model/*
  let $name := name($field)
  return 
     element {$name} {
        $field/@*,
        request:get-parameter($name,string($field/@default))
     }
 }
};

declare function tf:create-span-fields($model) {
     for $field in $model/*
     let $name := name($field)
     return 
       <span> 
            {string($name)} 
            <input type="text" name="{$name}" value="{string($field)}"  size="{ (string($field/@size),6)[1]}"/>
       </span>
};

declare function tf:create-parameters($model) {
  string-join(for $field in $model/* return concat(name($field),"=",$field),"&amp;")
};