Subversion Repositories wimsdev

Rev

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

Rev 12080 Rev 12413
Line 9... Line 9...
9
$(cl)_forumcnt=!recordcnt wimshome/$cls/forum/.msglist
9
$(cl)_forumcnt=!recordcnt wimshome/$cls/forum/.msglist
10
$(cl)_docpubliccnt=!recordcnt wimshome/$cls/doc/.docindex
10
$(cl)_docpubliccnt=!recordcnt wimshome/$cls/doc/.docindex
11
t=!filelist $wims_home/$cls/src/*.oef
11
t=!filelist $wims_home/$cls/src/*.oef
12
$(cl)_exocnt=!wordcnt $t
12
$(cl)_exocnt=!wordcnt $t
13
!if log/classes isin $cls
13
!if log/classes isin $cls
14
 cls_ph=!replace / by , in $cls
14
  cls_ph=!replace / by , in $cls
15
 cls_ph=log/classes/$(cls_ph[3])
15
  cls_ph=log/classes/$(cls_ph[3])
16
!else
16
!else
17
 cls_ph=$cls
17
  cls_ph=$cls
18
!endif
18
!endif
19
t=!filelist $wims_home/$cls_ph/photoboard/
19
t=!filelist $wims_home/$cls_ph/photoboard/
20
$(cl)_userphotocnt=!wordcnt $t
20
$(cl)_userphotocnt=!wordcnt $t
21
$(cl)_cdtcnt=!defof cdt_nbdate in wimshome/$cls/cdt/.def
21
$(cl)_cdtcnt=!defof cdt_nbdate in wimshome/$cls/cdt/.def
22
$(cl)_seqcnt=!record 0 of wimshome/$cls/seq/.sequences
22
$(cl)_seqcnt=!record 0 of wimshome/$cls/seq/.sequences
Line 43... Line 43...
43
  $(cl)_motdcnt=0
43
  $(cl)_motdcnt=0
44
!endif
44
!endif
45
 
45
 
46
t=!defof user_exists in wimshome/$cls/supervisor
46
t=!defof user_exists in wimshome/$cls/supervisor
47
!if $t=yes
47
!if $t=yes
48
 $(cl)_supcnt=1
48
  $(cl)_supcnt=1
49
!else
49
!else
50
 $(cl)_supcnt=0
50
  $(cl)_supcnt=0
51
!endif
51
!endif