| … | |
… | |
| 253 | sub TEXT { |
253 | sub TEXT { |
| 254 | return "" if $PG_STOP_FLAG; |
254 | return "" if $PG_STOP_FLAG; |
| 255 | my @in = @_; |
255 | my @in = @_; |
| 256 | $STRINGforOUTPUT .= join(" ",@in); |
256 | $STRINGforOUTPUT .= join(" ",@in); |
| 257 | } |
257 | } |
|
|
258 | |
|
|
259 | =head2 STOP_RENDERING() |
|
|
260 | |
|
|
261 | STOP_RENDERING() unless all_answers_are_correct; |
|
|
262 | |
|
|
263 | No text is printed and no answer blanks or answer evaluators are stored or processed until |
|
|
264 | RESUME_RENDERING() is executed. |
|
|
265 | |
|
|
266 | =cut |
|
|
267 | |
| 258 | sub STOP_RENDERING { |
268 | sub STOP_RENDERING { |
| 259 | $PG_STOP_FLAG=1; |
269 | $PG_STOP_FLAG=1; |
| 260 | ""; |
270 | ""; |
| 261 | } |
271 | } |
|
|
272 | |
|
|
273 | =head2 RESUME_RENDERING() |
|
|
274 | |
|
|
275 | RESUME_RENDERING(); |
|
|
276 | |
|
|
277 | Resumes processing of text, answer blanks, and |
|
|
278 | answer evaluators. |
|
|
279 | |
|
|
280 | =cut |
|
|
281 | |
| 262 | sub RESUME_RENDERING { |
282 | sub RESUME_RENDERING { |
| 263 | $PG_STOP_FLAG=0; |
283 | $PG_STOP_FLAG=0; |
| 264 | ""; |
284 | ""; |
| 265 | } |
285 | } |
| 266 | |
286 | |
Parent Directory
| 
Revision Log
| 
Patch