Subversion Repositories wimsdev

Rev

Rev 4199 | 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. !for i=1 to $(choices$parmcnt)
  5.  !reset checked
  6.  !if $i iswordof $(parm$parmcnt)
  7.   !set checked=checked
  8.  !endif
  9.  <input type="checkbox" name="parm$parmcnt" value="$i" $checked/>
  10.  !item $i of $parms
  11.  !set ll=!item $i of $limits
  12.  !if $ll>0
  13.   !set remain=$[max(0,$ll-0$(vcnt_$(parmcnt)_$i))]
  14.   ($remain $name_remaining)
  15.  !else
  16.   !if $(vcnt_$(parmcnt)_$i)!=$empty and $vshow=1
  17.    ($(vcnt_$(parmcnt)_$i))
  18.   !endif
  19.  !endif
  20. .&nbsp;
  21. !next i
  22.  
  23.