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