Subversion Repositories wimsdev

Rev

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

Rev 13796 Rev 13798
Line -... Line 1...
- 
 
 1 
!!! Rg$i contains the data for questions embeddings of
- 
 
 2 
!!! exercise $i (one line for each question)
- 
 
 3 
!!! ans_$i contains the data for the answer
- 
 
 4 
 
1 
!advance prcnt
 5 
!advance prcnt
2 
!if $prcnt>6 and $wims_user!=supervisor
 6 
!if $prcnt>6 and $wims_user!=supervisor
3 
  error=too_many_print
 7 
  error=too_many_print
4 
  printing=yes
 8 
  printing=yes
5 
  !exit
 9 
  !exit
Line 120... Line 124...
120 
              rg_tmp=!listuniq $rg1_,$rg2_
 124 
              rg_tmp=!listuniq $rg1_,$rg2_
121 
            !endif
 125 
            !endif
122 
            Rg$i=!append line $rg_tmp to $(Rg$i)
 126 
            Rg$i=!append line $rg_tmp to $(Rg$i)
123 
            !goto endRg
 127 
            !goto endRg
124 
          !endif checkbox
 128 
          !endif checkbox
- 
 
 129 
          !if $(replytype$k) iswordof coord
- 
 
 130 
            rg_=<img src="$(rg_[1;])" />
- 
 
 131 
            Rg$i=!append line $rg_ to $(Rg$i)
- 
 
 132 
            !goto endRg
- 
 
 133 
          !endif
125 
          !if $(replytype$k) iswordof atext wlist nocase case
 134 
          !if $(replytype$k) iswordof atext wlist nocase case
126 
            rg_=!translate internal ;| to $\
 135 
            rg_=!translate internal ;| to $\
127 
\
 136 
\
128 
$ in $rg_
 137 
$ in $rg_
129 
            rg_=!line 1 of $rg_
 138 
            rg_=!line 1 of $rg_
130 
          !endif atext
 139 
          !endif atext
131 
          !if $(replytype$k) iswordof function default equation
 140 
          !if $(replytype$k) iswordof function default equation
132 
            rg_=!item 1 of $rg_
 141 
            rg_=!item 1 of $rg_
133 
            Rg$i=!append line $ to $(Rg$i)
 142 
            Rg$i=!append line $ to $(Rg$i)
134 
            !goto endRg
 143 
            !goto endRg
135 
          !endif function
 144 
          !endif function
136 
          !if $(replytype$k) iswordof imgcomp textcomp compose reorder \
 145 
          !if $(replytype$k) iswordof imgcomp textcomp compose reorder \
137 
	            dragfill clickfill
 146 
	            dragfill clickfill
138 
            rg_=!translate internal | to $\
 147 
            rg_=!translate internal | to $\
139 
$ in $rg_
 148 
$ in $rg_
Line 174... Line 183...
174 
              !set rgg_=$rgg_<td>$(rg2__[$tmp])</td>
 183 
              !set rgg_=$rgg_<td>$(rg2__[$tmp])</td>
175 
            !next
 184 
            !next
176 
            !set rg__=$rg__</tr></table>
 185 
            !set rg__=$rg__</tr></table>
177 
            !set rg_=$rgg_</tr></table>
 186 
            !set rg_=$rgg_</tr></table>
178 
            Rg$i=!append line $(rg__) to $(Rg$i)
 187 
            Rg$i=!append line $(rg__) to $(Rg$i)
- 
 
 188 
            !goto endRg
- 
 
 189 
          !endif
- 
 
 190 
          !if $(replytype$k) iswordof draw
- 
 
 191 
            rg__=$(rg_[2;])
- 
 
 192 
            tmp=!item 1 of $rg__
- 
 
 193 
            !if $tmp=arrows
- 
 
 194 
              !default arrow_head=10
- 
 
 195 
              arrow_head=!getopt arrowhead in $(replyoption$k)
- 
 
 196 
              comp=,$arrow_head
- 
 
 197 
            !endif
- 
 
 198 
            rg__=!replace internal $tmp by $tmp blue$comp in $rg__
- 
 
 199 
            !reset comp
- 
 
 200 
            rg_=!declosing $(rg_[1;])
- 
 
 201 
            rg_=200,200$	$ $rg_
- 
 
 202 
            !readproc oef/canvasdraw.phtml $rg_
- 
 
 203 
            canvasdraw=!replace internal $\
- 
 
 204 
$ by in $canvasdraw_out
- 
 
 205 
            Rg$i=!append line $canvasdraw to $(Rg$i)
- 
 
 206 
            !readproc oef/canvasdraw.phtml $rg_$	$ $rg__
- 
 
 207 
            rg_=!replace internal $\
- 
 
 208 
$ by in $canvasdraw_out
179 
            !goto endRg
 209 
            !goto endRg
180 
          !endif
 210 
          !endif
181 
          Rg$i=!append line empty to $(Rg$i)
 211 
          Rg$i=!append line empty to $(Rg$i)
182 
:endRg
 212 
:endRg
183 
          !if $conditioncnt<1
 213 
          !if $conditioncnt<1
184 
            !if noanalyzeprint notwordof $(replyoption$k)
 214 
            !if noanalyzeprint notwordof $(replyoption$k)
185 
              !if $(replyname$k)$rg_ !=
 215 
              !if $(replyname$k)$rg_ !=
186 
                !if http isin $(replyname$k)$rg_
 216 
                !if http isin $(replyname$k)$rg_
187 
                  rep=!append line $name_noprint to $rep
 217 
                  rep=$rg_
188 
                !else
 218 
                !else
189 
                  !if $(replyname$k)!=
 219 
                  !if $(replyname$k)!=
190 
                    rep=!append line <em>$(replyname$k)</em>: $rg_ to $rep
 220 
                    rep=!append line <em>$(replyname$k)</em>: $rg_ to $rep
191 
                  !else
 221 
                  !else
192 
                    rep=!append line $rg_ to $rep
 222 
                    rep=!append line $rg_ to $rep