Subversion Repositories wimsdev

Rev

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

Rev 13795 Rev 13796
Line 159... Line 159...
159 
            !set rg__=!replace internal ; by $\
 159 
            !set rg__=!replace internal ; by $\
160 
$ in $rg_
 160 
$ in $rg_
161 
            !distribute lines $rg__ into rg1__,rg2__
 161 
            !distribute lines $rg__ into rg1__,rg2__
162 
            !set rg__cnt=!itemcnt $rg1__
 162 
            !set rg__cnt=!itemcnt $rg1__
163 
            !set rg_2_=!shuffle $rg__cnt
 163 
            !set rg_2_=!shuffle $rg__cnt
164 
            !set rg__=!replace internal , by </td><td> in <table class="wimsborder"><tr><td>$rg1__</td></tr><tr><td>$(rg2__[$rg_2_])</td></tr></table>
 164 
            !set rg__=<table class="wimsborder"><tr>
165 
            !set rg_=!replace internal , by </td><td> in <table class="wimsborder"><tr><td>$(rg_[1;])</td></tr><tr><td>$(rg_[2;])</td></tr></table>
 165 
            !set rgg_=<table class="wimsborder"><tr>
- 
 
 166 
            !for tmp=1 to $rg__cnt
- 
 
 167 
              !set rg__=$rg__<td>$(rg1__[$tmp])</td>
- 
 
 168 
              !set rgg_=$rgg_<td>$(rg_[1;$tmp])</td>
- 
 
 169 
            !next
- 
 
 170 
            !set rg__=$rg__</tr><tr>
- 
 
 171 
            !set rgg_=$rgg_</tr><tr>
- 
 
 172 
            !for tmp =1 to $rg__cnt
- 
 
 173 
              !set rg__=$rg__<td>$(rg2__[$(rg_2_[$tmp])])</td>
- 
 
 174 
              !set rgg_=$rgg_<td>$(rg2__[$tmp])</td>
166 
   $prompt_
 175 
            !next
- 
 
 176 
            !set rg__=$rg__</tr></table>
- 
 
 177 
            !set rg_=$rgg_</tr></table>
167 
            Rg$i=!append line $(rg__) to $(Rg$i)
 178 
            Rg$i=!append line $(rg__) to $(Rg$i)
168 
            !goto endRg
 179 
            !goto endRg
169 
          !endif
 180 
          !endif
170 
          Rg$i=!append line empty to $(Rg$i)
 181 
          Rg$i=!append line empty to $(Rg$i)
171 
:endRg
 182 
:endRg