Subversion Repositories wimsdev

!if $docadm=1

 !exit

!endif

!default doc=1

!set modu_lang=$lang

!read docu/$lang/names

!if $lang_exists!=yes

   !let modu_lang=en

   !read docu/$lang/names

!endif

!set module_language=$lang

!read INDEX

translation_language=!items2words $translation_language

!if $lang iswordof $translation_language

  doc=1_$modu_lang

!endif

module_title2=!detag $module_title

!read docu/$modu_lang/names

!if $cmd=help

 !exit

!endif

!read docu/docdef

!bound job within read,print,list,exosource default read

!if robot isin $session

 job=print

!endif

!read tabletheme

!for i=1 to 20

 m_parm$i=$(parm$i)

 parm$i=

!next i

!if $seq>0

 !set m_wims_sequence=$seq

!endif

block=!text select $namechars in $block

docdir=doc

Docdir=$module_dir/$docdir

readable=yes

editable=no

!default readcnt=0

!read $docdir/$doc/.def

!! common_files is defined in the var.proc of the document can be yes now

!! or the address of a datamodule should be in $docdir/$doc/.def

!if datamodule isin $common_files

    m_filedir=!replace datamodule by modules/data in $common_files

  !else

  !if $common_files=yes

    m_filedir=$Docdir/files

  !else

    m_filedir=$Docdir/$doc/files

  !endif

!endif

!if $tit!=$empty

  !default block=main

  block=!char 1 to $namelim of $block

  !read $docdir/$doc/$block.def

!else

  error=doc_not_exist

!endif

!set wims_module_log=$job $doc $block

!read getparm $module_init_parm wksheet

!read docu/$job.proc