Subversion Repositories wimsdev

Rev

Rev 12895 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
 
2
!distribute words $wims_read_parm into cl,cls
3
 
4
$(cl)_usercnt=!recordcnt wimshome/$cls/.userlist
5
$(cl)_sheetcnt=!recordcnt wimshome/$cls/sheets/.sheets
6
$(cl)_examcnt=!recordcnt wimshome/$cls/exams/.exams
7
$(cl)_doccnt=!recordcnt wimshome/$cls/doc/.index
8
$(cl)_votecnt=!recordcnt wimshome/$cls/vote/.votes
9
$(cl)_forumcnt=!recordcnt wimshome/$cls/forum/.msglist
1407 bpr 10
$(cl)_docpubliccnt=!recordcnt wimshome/$cls/doc/.docindex
23 reyssat 11
t=!filelist $wims_home/$cls/src/*.oef
12
$(cl)_exocnt=!wordcnt $t
12080 guerimand 13
!if log/classes isin $cls
12413 bpr 14
  cls_ph=!replace / by , in $cls
15
  cls_ph=log/classes/$(cls_ph[3])
12080 guerimand 16
!else
12413 bpr 17
  cls_ph=$cls
12080 guerimand 18
!endif
19
t=!filelist $wims_home/$cls_ph/photoboard/
12078 guerimand 20
$(cl)_userphotocnt=!wordcnt $t
23 reyssat 21
$(cl)_cdtcnt=!defof cdt_nbdate in wimshome/$cls/cdt/.def
1505 bpr 22
$(cl)_seqcnt=!record 0 of wimshome/$cls/seq/.sequences
23
$(cl)_seqcnt=!word 1 of $($(cl)_seqcnt)
1858 guerimand 24
$(cl)_livretcnt=!recordcnt wimshome/$cls/livret/.comps
12029 guerimand 25
t=!filelist $wims_home/$cls/cdt/src/*
26
$(cl)_cdtcnt=!wordcnt $t
23 reyssat 27
scorecnt=!mexec scripts/scorefcnt.sh $cls
28
!distribute words $scorecnt into $(cl)_scorecnt1,$(cl)_scorecnt2
29
$(cl)_scorecnt=$[$($(cl)_scorecnt1)+$($(cl)_scorecnt2)]
30
t=!record 1 of wimshome/$cls/.grades
31
t=!line 2 of $t
32
t=!itemcnt $t
33
$(cl)_manualcnt=$[max(0,$t-2)]
34
$(cl)_testcnt=$[$($(cl)_scorecnt1)+$($(cl)_manualcnt)]
35
$(cl)_reccnt=$[$($(cl)_usercnt)+$($(cl)_sheetcnt)+$($(cl)_examcnt)\
1407 bpr 36
	+$($(cl)_doccnt)+$($(cl)_docpubliccnt)+$($(cl)_forumcnt)+$($(cl)_votecnt)\
23 reyssat 37
	+$($(cl)_exocnt)+$($(cl)_scorecnt)+$($(cl)_manualcnt)]
9880 bpr 38
$(cl)_motdcnt=!filelist $wims_home/$cls/.motd
39
!if $($(cl)_motdcnt)!=$empty
40
  $(cl)_motdcnt=1
41
!else
42
  $(cl)_motdcnt=0
43
!endif
12899 guerimand 44
$(cl)_glossarycnt=!recordcnt wimshome/$cls/tool/.glossaryindex
45
tmp=!recordcnt wimshome/$cls/tool/.toolindex
46
$(cl)_toolcnt=$[$($(cl)_glossarycnt)+$tmp2]
23 reyssat 47
 
48
t=!defof user_exists in wimshome/$cls/supervisor
49
!if $t=yes
12413 bpr 50
  $(cl)_supcnt=1
23 reyssat 51
!else
12413 bpr 52
  $(cl)_supcnt=0
1407 bpr 53
!endif