Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1552 bpr 1
!read var.lang
1406 bpr 2
maxseq=30
3
 
4
!if ($wims_supertype<3 and $wims_typename=class) or ($wims_supertype=4 and $wims_typename iswordof course program icourse)
5
 sequence_supervise=yes
6
 !readdef wimshome/log/classes/$wims_class/seq/.def
7
 !if $sequence_defined!=yes
8
  !sh mkdir -p $wims_home/log/classes/$wims_class/seq;
9
  !filewrite wimshome/log/classes/$wims_class/seq/.def !set sequence_defined=yes\
10
  !set sequence_Title=$wims_name_sequence\
11
  !set sequence_reverse=no
12
 !endif
13
 !readdef wimshome/log/classes/$wims_class/seq/.def
14
!else
15
 sequence_supervise=no
16
error=no_seq
17
!exit
18
!endif
19
 
20
!set sheetcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
21
!set docpubliccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.docindex
22
!set examcnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
23
!set votecnt=!recordcnt wimshome/log/classes/$wims_class/vote/.votes
24
!set doccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.index
25
!set docpubliccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.docindex