Subversion Repositories wimsdev

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

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

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

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

!endif

!endif

!if $class_expiration=$empty

!if $class_expiration=$empty

 error=bad_class

 error=bad_class

 !exit

 !exit

jour_end=!char 1 to 8 of $wims_now

jour_end=!char 1 to 8 of $wims_now

!if $cdt_supervise!=yes

!if $cdt_supervise!=yes

 class_parent=!text select 0123456789/ in $class_parent

 class_parent=!text select 0123456789/ in $class_parent

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

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

 courses=!items2lines $courses

 courses=!items2lines $courses

 courses=!replace internal / by , in $courses

 courses=!replace internal / by , in $courses

 courses=!columns 3 of $courses

 courses=!columns 3 of $courses

 courses=!text select 0123456789, in $courses

 courses=!text select 0123456789, in $courses

 courses=!items2lines $courses

 courses=!items2lines $courses

list=!mexec proc/mkwork.sh

list=!mexec proc/mkwork.sh

nbligne=!linecnt $list

nbligne=!linecnt $list

!if $cdt_nbdate>$max_defaffi

!if $cdt_nbdate>$max_defaffi

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

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

 nbligne=!linecnt $list

 nbligne=!linecnt $list

 jour_begin=$(list[1;1])

 jour_begin=$(list[1;1])

!endif

!endif

job=work

job=work