Subversion Repositories wimsdev

Rev

Rev 2254 | Rev 4145 | 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.   $i_1 $i_2
  25. !!  !if $(vcnt_$(parmcnt)_$i)!=$empty and $vshow=1
  26. !!   ($(vcnt_$(parmcnt)_$i)).
  27. !!  !endif
  28.  !endif
  29. !next i
  30. </ol>
  31.  
  32.