Subversion Repositories wimsdev

!readproc primitives/getlimit.proc parms

<ol>

!for i=1 to $(choices$parmcnt)

 <li>

 !reset checked emph1 emph2

 !if $i iswordof $(parm$parmcnt)

  !set checked=checked

  !set emph1=<b>$name_yourchoice<em>

  !set emph2=</b></em>

 !endif

 !set i_1=<input type="radio" name="parm$parmcnt" value="$i" checked="$checked" />

 !set i_2=$emph1 $(parms[$i]) $emph2

 !set ll=!item $i of $limits

 !set remain=$[max(0,$ll-0$(vcnt_$(parmcnt)_$i))]

 !if $ll>0

  !if $remain>0

   $i_1

  !endif

  $i_2

  ($remain $name_remaining).

 !else

  !if $ll<0

   $i_2 ($name_optionclosed)

  !else

  $i_1 $i_2

  !if $(vcnt_$(parmcnt)_$i)!=$empty and $vshow=1

   ($(vcnt_$(parmcnt)_$i)).

  !endif

 !endif

 !endif

!next i

</ol>