Rev 13463 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 28 | reyssat | 1 | |
| 13461 | obado | 2 | !if robot isin $session |
| 3 | open= |
||
| 4 | chapter=0 |
||
| 5 | !exit |
||
| 6 | !endif |
||
| 7 | |||
| 8 | !! set an appropriate language to be used |
||
| 9 | |||
| 13463 | obado | 10 | !! modu_lang will be set by adm/language |
| 11 | !readproc adm/language lang/name.phtml |
||
| 13461 | obado | 12 | |
| 13 | !set module_title_lang=!module title_$modu_lang |
||
| 14 | !default module_title_lang=$module_title |
||
| 15 | |||
| 13463 | obado | 16 | chaptercnt=!recordcnt lang/chapters_$modu_lang.dat |
| 28 | reyssat | 17 | !bound chapter between integer 0 and $chaptercnt default 0 |
| 18 | |||
| 19 | !for i=1 to $chaptercnt |
||
| 13463 | obado | 20 | chapter$i=!record $i of lang/chapters_$modu_lang.dat |
| 13461 | obado | 21 | chapter$i=!trim $(chapter$i) |
| 28 | reyssat | 22 | !next i |
| 23 | |||
| 24 | open=!items2words $open |
||
| 25 | open=!words2items $open |
||
| 26 | open=!listuniq $open |
||
| 27 | open=!items2words $open |
||
| 28 | |||
| 29 | wims_module_log=$chapter, $open |
||
| 16745 | guerimand | 30 | |
| 31 | prefix_session=!char 1 to -6 of $wims_session |