Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
23 reyssat 1
# Variable calculations should be done in this file.
2
# It is read and interpreted by wims for all valid calls to the module.
3
 
10189 bpr 4
!if $class_expiration=$empty
23 reyssat 5
 !defread wimshome/log/classes/$wims_class/.def
6
!endif
7
!if $class_expiration=$empty
8
 error=bad_class
9
 !exit
10
!endif
11
 
8138 guerimand 12
jour_begin=$class_creation
13
jour_end=!char 1 to 8 of $wims_now
14
 
23 reyssat 15
!if $cdt_supervise!=yes
16
 class_parent=!text select 0123456789/ in $class_parent
17
 courses=!record 0 of wimshome/log/classes/$wims_class/courses
10189 bpr 18
 courses=!column 1 of $courses
23 reyssat 19
 courses=!items2lines $courses
20
 courses=!replace internal / by , in $courses
21
 courses=!columns 3 of $courses
22
 courses=!text select 0123456789, in $courses
23
 courses=!items2lines $courses
24
!endif
8138 guerimand 25
 
23 reyssat 26
list=!mexec proc/mkwork.sh
27
nbligne=!linecnt $list
8138 guerimand 28
 
29
!if $cdt_nbdate>$max_defaffi
30
 list=!line -$max_defaffi to -1 of $list
31
 nbligne=!linecnt $list
32
 jour_begin=$(list[1;1])
33
!endif
34
 
23 reyssat 35
job=work