Subversion Repositories wimsdev

# Variable calculations should be done in this file.

# It is read and interpreted by wims for all valid calls to the module.

!if $class_expiration=$empty

 !defread wimshome/log/classes/$wims_class/.def

!endif

!if $class_expiration=$empty

 error=bad_class

 !exit

!endif

jour_begin=$class_creation

jour_end=!char 1 to 8 of $wims_now

!if $cdt_supervise!=yes

 class_parent=!text select 0123456789/ in $class_parent

 courses=!record 0 of wimshome/log/classes/$wims_class/courses

 courses=!column 1 of $courses

 courses=!items2lines $courses

 courses=!replace internal / by , in $courses

 courses=!columns 3 of $courses

 courses=!text select 0123456789, in $courses

 courses=!items2lines $courses

!endif

list=!mexec proc/mkwork.sh

nbligne=!linecnt $list

!if $cdt_nbdate>$max_defaffi

 list=!line -$max_defaffi to -1 of $list

 nbligne=!linecnt $list

 jour_begin=$(list[1;1])

!endif

job=work