Subversion Repositories wimsdev

Rev

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