Subversion Repositories wimsdev

Rev

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

Rev 12906 Rev 12907
Line 130... Line 130...
130 
      rcode$i=1
 130 
      rcode$i=1
131 
    !endif
 131 
    !endif
132 
  !endif
 132 
  !endif
133 
!next l
 133 
!next l
134 
 
 134 
 
- 
 
 135 
!distribute line livret/.comps\
135 
 
 136 
doc/.docindex\
- 
 
 137 
tool/.toolindex into file_livret,file_pdoc,file_tool
- 
 
 138 
!for type in livret,tool,pdoc
136 
li=!recordcnt wimshome/log/classes/$nei/livret/.comps
 139 
  li=!recordcnt wimshome/log/classes/$nei/$(file_$type)
137 
!if $li>0
 140 
  !if $li>0
138 
  newrec=!append line livret $li 1 to $newrec
 141 
    newrec=!append line $type $li 1 to $newrec
139 
  i=!linecnt $newrec
 142 
    i=!linecnt $newrec
140 
  rtype$i=livret
 143 
    rtype$i=$type
141 
  rcode$i=1
 144 
    rcode$i=1
142 
  rstat$i=1
 145 
    rstat$i=1
143 
  rcnt$i=1
 146 
    rcnt$i=$li
144 
  rName$i=---
 147 
    rName$i=---
145 
  rname$i=$li $name_competence
 148 
    rname$i=---
146 
  rstat$i=---
 149 
    rstat$i=---
147 
  rccnt$i=---
 150 
    rccnt$i=---
148 
  test=!recordcnt wimshome/log/classes/$wims_class/livret/.comps
 151 
    test=!recordcnt wimshome/log/classes/$wims_class/$(file_$type)
149 
  !if $test>0
 152 
    !if $test>0
150 
    rcode$i=2
 153 
      rcode$i=2
151 
    rmine$i=$test
 154 
      rmine$i=$test
- 
 
 155 
    !endif
152 
  !endif
 156 
  !endif
153 
!endif
 157 
!next type
154 
 
 - 
 
155 
newcnt1=!linecnt $newrec
 158 
newcnt1=!linecnt $newrec
156 
 
 159 
 
157 
:user
 160 
:user
158 
nusercnt=!recordcnt wimshome/log/classes/$nei/.userlist
 161 
nusercnt=!recordcnt wimshome/log/classes/$nei/.userlist
159 
newcnt2=0
 162 
newcnt2=0