Subversion Repositories wimsdev

!distribute items $wims_read_parm into n_,1_,2_,3_,4_,5_

!if NaN isin $[$n_] or $n_<1 or $n_>$methparmcnt

 !exit

!endif

!set t_=!item $n_ of $methparmtype

!distribute words $t_ into t_,p_

!if $t_ iswordof number parm function text choice

 !goto $t_

!else

 !goto text

!endif

:number

 !default 1_=10

 :input

 <input size="$1_" name="methparm$n_" value="$(methparm$n_)" />

!exit

:function

 !default 1_=22

 !goto input

:text

 !default 1_=30

 !goto input

:choice

 !formselect methparm$n_ from 1 to $p_ prompt $methchoiceprompt

!exit

:parm

 !set N_=!linecnt $(mtobj$n_)

 !reset P_

 !if $N_>1 or ($N_=1 and $n_ isitemof $methparmrelax)

  !for i=1 to $N_

   !set l=!line $i of $(mtobj$n_)

   !set l=!item 2 to -1 of $l

   !set l=!items2words $l

   !set P_=!append item $l to $P_

  !next i

  !set P_=!replace internal < by &lt; in $P_

  !set P_=!replace internal > by > in $P_

  !if $n_ isitemof $methparmrelax

   !set p0=$ch_optional

  !else

   !set p0=$ch_choose

  !endif

  !formselect methparm$n_ from 0 to $N_ prompt $p0,$P_

 !else

  !if $N_=1

   <input type="hidden" name="methparm$n_" value="1" />

   !set l=!item 2 to -1 of $(mtobj$n_)

   !set l=!items2words $l

   !insmath $l

  !else

   <span class="tt">$ch_optional</span>

  !endif

 !endif

!exit