Rev 5235 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
!if ($m_formed!=yes and $showres=1) or $showres=2
vshow=1
!else
vshow=0
!endif
!advance parmcnt
!if $parmcnt>$max_parms
!reset $wims_read_parm
!exit
!endif
!reset limits new
l_=$($wims_read_parm)
n_=!itemcnt $l_
chlist$parmcnt=$l_
choices$parmcnt=$n_
!if $(user_vote_$Vote)!=yes
parm$parmcnt=!item $parmcnt of $(user_vote_$Vote)
!endif
!for i_=1 to $n_
t_=!item $i_ of $l_
!if : notin $t_
limits=!append item 0 to $limits
!if $vshow=1 and $ismenu=yes and $(vcnt_$(parmcnt)_$i_)!=$empty
t_=$t_ ($(vcnt_$(parmcnt)_$i_))
!endif
new=!append item $t_ to $new
!else
v_=!translate internal : to , in $t_
k_=!item 1 of $v_
k_=$[round($k_)]
j_=!item 2 to -1 of $v_
j_=!translate internal , to : in $j_
!if $vshow=1 and $ismenu=yes and $(vcnt_$(parmcnt)_$i_)!=$empty
j_=$j_ ($(vcnt_$(parmcnt)_$i_))
!endif
!if NaN notin $k_ and Inf notin $k_ and ($k_>0 or $k_=-1)
limits=!append item $k_ to $limits
new=!append item $j_ to $new
!else
limits=!append item 0 to $limits
new=!append item $t_ to $new
!endif
!endif
!next i_
$wims_read_parm=$new