Subversion Repositories wimsdev

Rev

Rev 16687 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16687 Rev 16693
Line 74... Line 74...
74 
  m_class_code=$wims_class
 74 
  m_class_code=$wims_class
75 
!else
 75 
!else
76 
  editable=no
 76 
  editable=no
77 
  readable=yes
 77 
  readable=yes
78 
!endif
 78 
!endif
- 
 
 79 
 
- 
 
 80 
!! add to index fold with number instead of filename
- 
 
 81 
!if $filelist=$empty
- 
 
 82 
  nb=!recordcnt wimshome/$Docdir/$doc/.index
- 
 
 83 
  !for i=1 to $nb
- 
 
 84 
    l=!record $i of wimshome/$Docdir/$doc/.index
- 
 
 85 
    l=!line 1 of $l
- 
 
 86 
    filelist=!append item $l to $filelist
- 
 
 87 
  !next i
- 
 
 88 
!endif
- 
 
 89 
 
79 
!if $wims_developer!=$empty and $devdoc!=$empty and c notin $doc
 90 
!if $wims_developer!=$empty and $devdoc!=$empty and c notin $doc
80 
  devdoc=!text select $namechars.-~ in $devdoc
 91 
  devdoc=!text select $namechars.-~ in $devdoc
81 
  test=!defof tit in wimshome/public_html/modules/devel/$wims_developer/$devdoc/doc/$doc/.def
 92 
  test=!defof tit in wimshome/public_html/modules/devel/$wims_developer/$devdoc/doc/$doc/.def
82 
  !if $test!=$empty
 93 
  !if $test!=$empty
83 
    Docdir=public_html/modules/devel/$wims_developer/$devdoc/doc
 94 
    Docdir=public_html/modules/devel/$wims_developer/$devdoc/doc