Rev 9393 | Rev 12586 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
8403 | bpr | 1 | !if $docadm=1 |
2 | !exit |
||
3 | !endif |
||
4 | |||
7237 | bpr | 5 | !default doc=1 |
2373 | bpr | 6 | !set modu_lang=$lang |
7 | !read docu/$lang/names |
||
8 | !if $lang_exists!=yes |
||
9 | !let modu_lang=en |
||
10 | !read docu/$lang/names |
||
11 | !endif |
||
12 | !set module_language=$lang |
||
20 | reyssat | 13 | |
7237 | bpr | 14 | !read INDEX |
15 | translation_language=!items2words $translation_language |
||
16 | !if $lang iswordof $translation_language |
||
17 | doc=1_$modu_lang |
||
18 | !endif |
||
19 | |||
7235 | bpr | 20 | module_title2=!detag $module_title |
21 | |||
2373 | bpr | 22 | !read docu/$modu_lang/names |
20 | reyssat | 23 | !if $cmd=help |
24 | !exit |
||
25 | !endif |
||
26 | |||
8367 | bpr | 27 | !read docu/docdef |
28 | |||
20 | reyssat | 29 | !bound job within read,print,list,exosource default read |
30 | !if robot isin $session |
||
31 | job=print |
||
32 | !endif |
||
33 | |||
34 | !read tabletheme |
||
35 | !for i=1 to 20 |
||
36 | m_parm$i=$(parm$i) |
||
37 | parm$i= |
||
38 | !next i |
||
1407 | bpr | 39 | !if $seq>0 |
40 | !set m_wims_sequence=$seq |
||
41 | !endif |
||
20 | reyssat | 42 | |
43 | block=!text select $namechars in $block |
||
44 | docdir=doc |
||
45 | Docdir=$module_dir/$docdir |
||
46 | readable=yes |
||
47 | editable=no |
||
48 | !default readcnt=0 |
||
9393 | bpr | 49 | !read $docdir/$doc/.def |
50 | !! common_files is defined in the var.proc of the document can be yes now |
||
51 | !! or the address of a datamodule should be in $docdir/$doc/.def |
||
8402 | bpr | 52 | !if datamodule isin $common_files |
53 | m_filedir=!replace datamodule by modules/data in $common_files |
||
54 | !else |
||
55 | !if $common_files=yes |
||
56 | m_filedir=$Docdir/files |
||
57 | !else |
||
58 | m_filedir=$Docdir/$doc/files |
||
59 | !endif |
||
7235 | bpr | 60 | !endif |
9393 | bpr | 61 | |
20 | reyssat | 62 | !if $tit!=$empty |
63 | !default block=main |
||
64 | block=!char 1 to $namelim of $block |
||
65 | !read $docdir/$doc/$block.def |
||
66 | !else |
||
67 | error=doc_not_exist |
||
68 | !endif |
||
69 | |||
70 | !set wims_module_log=$job $doc $block |
||
9616 | guerimand | 71 | !read getparm $module_init_parm wksheet |
20 | reyssat | 72 | !read docu/$job.proc |