Subversion Repositories wimsdev

Rev

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

  1.  
  2. !readproc primitives/getlimit.proc parms
  3.  
  4. <ul class="inline">
  5.   !for i=1 to $(choices$parmcnt)
  6.     <li>
  7.       !reset checked
  8.       !if $i iswordof $(parm$parmcnt)
  9.         !set checked=checked="checked"
  10.       !endif
  11.       <input type="checkbox" name="parm$parmcnt" id="parm$(parmcnt)_$i" value="$i" $checked />
  12.       <label for="parm$(parmcnt)_$i">
  13.         !item $i of $parms
  14.       </label>
  15.       !set ll=!item $i of $limits
  16.       !if $ll>0
  17.         !set remain=$[max(0,$ll-0$(vcnt_$(parmcnt)_$i))]
  18.         ($remain $name_remaining)
  19.       !else
  20.         !if $(vcnt_$(parmcnt)_$i)!=$empty and $vshow=1
  21.           ($(vcnt_$(parmcnt)_$i))
  22.         !endif
  23.       !endif
  24.     </li>
  25.   !next i
  26. </ul>
  27.