Subversion Repositories wimsdev

Rev

Rev 5369 | Rev 5842 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1.  
  2. !readproc primitives/getlimit.proc parms
  3.  
  4. <ol>
  5. !for i=1 to $(choices$parmcnt)
  6.  <li>
  7.  !reset checked emph1 emph2
  8.  !if $i iswordof $(parm$parmcnt)
  9.   !set checked=checked
  10.   !set emph1=<b>$name_yourchoice<em>
  11.   !set emph2=</b></em>
  12.  !endif
  13.  !set i_1=<input type="radio" name="parm$parmcnt" value="$i" $checked/>
  14.  !set i_2=$emph1 $(parms[$i]) $emph2
  15.  !set ll=!item $i of $limits
  16.  !set remain=$[max(0,$ll-0$(vcnt_$(parmcnt)_$i))]
  17.  !if $ll>0
  18.   !if $remain>0
  19.    $i_1
  20.   !endif
  21.   $i_2
  22.   ($remain $name_remaining).
  23.  !else
  24.   !if $ll<0
  25.    $i_2 ($name_optionclosed)
  26.   !else
  27.   $i_1 $i_2
  28.   !if $(vcnt_$(parmcnt)_$i)!=$empty and $vshow=1
  29.    ($(vcnt_$(parmcnt)_$i)).
  30.   !endif
  31.  !endif
  32.  !endif
  33. !next i
  34. </ol>
  35.  
  36.