Subversion Repositories wimsdev

Rev

Rev 6452 | 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. <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="checked"
  10.         !set emph1=<strong>$name_yourchoice<em>
  11.         !set emph2=</em></strong>
  12.       !endif
  13.       !set i_1=<input type="radio" name="parm$parmcnt" id="parm$(parmcnt)_$i" 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.       <label for="parm$(parmcnt)_$i">
  18.         !if $ll>0
  19.           !if $remain>0
  20.             $i_1
  21.           !endif
  22.           $i_2
  23.           ($remain $name_remaining)
  24.         !else
  25.           !if $ll<0
  26.             $i_2 ($name_optionclosed)
  27.           !else
  28.             $i_1 $i_2
  29.             !if $(vcnt_$(parmcnt)_$i)!=$empty and $vshow=1
  30.               ($(vcnt_$(parmcnt)_$i)).
  31.             !endif
  32.           !endif
  33.         !endif
  34.       </label>
  35.     </li>
  36.   !next i
  37. </ol>
  38.  
  39.