Subversion Repositories wimsdev

Rev

Rev 8367 | Rev 8403 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8367 Rev 8402
Line 34... Line 34...
34 
 parm$i=
 34 
 parm$i=
35 
!next i
 35 
!next i
36 
!if $seq>0
 36 
!if $seq>0
37 
 !set m_wims_sequence=$seq
 37 
 !set m_wims_sequence=$seq
38 
!endif
 38 
!endif
39 
 
 - 
 
40 
 
 - 
 
41 
 
 39 
 
42 
block=!text select $namechars in $block
 40 
block=!text select $namechars in $block
43 
docdir=doc
 41 
docdir=doc
44 
Docdir=$module_dir/$docdir
 42 
Docdir=$module_dir/$docdir
45 
readable=yes
 43 
readable=yes
46 
editable=no
 44 
editable=no
47 
!default readcnt=0
 45 
!default readcnt=0
48 
!! define in the var.proc of the document
 46 
!! common_files is defined in the var.proc of the document can be yes now or the address of a datamodule
- 
 
 47 
!readdef var.proc
- 
 
 48 
!if datamodule isin $common_files
- 
 
 49 
    m_filedir=!replace datamodule by modules/data in $common_files
- 
 
 50 
  !else
49 
!if $common_files=yes
 51 
  !if $common_files=yes
50 
  m_filedir=$Docdir/files
 52 
    m_filedir=$Docdir/files
51 
!else
 53 
  !else
52 
  m_filedir=$Docdir/$doc/files
 54 
    m_filedir=$Docdir/$doc/files
- 
 
 55 
  !endif
53 
!endif
 56 
!endif
54 
!readdef $docdir/$doc/.def
 57 
!readdef $docdir/$doc/.def
55 
!if $tit!=$empty
 58 
!if $tit!=$empty
56 
  !default block=main
 59 
  !default block=main
57 
  block=!char 1 to $namelim of $block
 60 
  block=!char 1 to $namelim of $block