Subversion Repositories wimsdev

Rev

Rev 14347 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14347 Rev 14872
Line 1... Line -...
1 
 
 - 
 
- 
 
 1 
!default search_lang=$lang
2 
!if $gotcnt=0
 2 
!if $gotcnt=0
3 
  !if $srch=$empty
 3 
  !if $srch=$empty
4 
    !exit
 4 
    !exit
5 
  !endif
 5 
  !endif
6 
  !if $module!=home
 6 
  !if $module!=home
Line 25... Line 25...
25 
    !for i=1 to $n_
 25 
    !for i=1 to $n_
26 
      !set l_=!line $i of $vars
 26 
      !set l_=!line $i of $vars
27 
      !set var_$i=!randitem $l_
 27 
      !set var_$i=!randitem $l_
28 
    !next i
 28 
    !next i
29 
  !endif
 29 
  !endif
30 
 !set ops=!record 2 of $formdir/$s.def
 30 
  !set ops=!record 2 of $formdir/$s.def
31 
 !set submits=!record 3 of $formdir/$s.def
 31 
  !set submits=!record 3 of $formdir/$s.def
32 
 !set content=!record 4 of $formdir/$s.def
 32 
  !set content=!record 4 of $formdir/$s.def
33 
 !set ops=!nonempty lines $ops
 33 
  !set ops=!nonempty lines $ops
34 
 !set ocnt=!linecnt $ops
 34 
  !set ocnt=!linecnt $ops
35 
 !reset oplist
 35 
  !reset oplist
36 
 !for op=1 to $ocnt
 36 
  !for op=1 to $ocnt
37 
    !set ol=!line $op of $ops
 37 
    !set ol=!line $op of $ops
38 
    !distribute items $ol into n_,v_,w_
 38 
    !distribute items $ol into n_,v_,w_
39 
    !set n_=!word 1 of $n_
 39 
    !set n_=!word 1 of $n_
40 
    !if $n_!=$empty and $w_$v_!=$empty
 40 
    !if $n_!=$empty and $w_$v_!=$empty
41 
      !set op_$n_=$v_
 41 
      !set op_$n_=$v_