Subversion Repositories wimsdev

Rev

Rev 7755 | 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="radio" 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.  
  28.