Subversion Repositories wimsdev

Rev

Rev 11977 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11977 Rev 14043
Line 4... Line 4...
4
!if $class_expiration=$empty
4
!if $class_expiration=$empty
5
 !defread wimshome/log/classes/$wims_class/.def
5
  !defread wimshome/log/classes/$wims_class/.def
6
!endif
6
!endif
7
!if $class_expiration=$empty
7
!if $class_expiration=$empty
8
 error=bad_class
8
  error=bad_class
9
 !exit
9
  !exit
10
!endif
10
!endif
11
 
11
 
12
jour_begin=$class_creation
12
jour_begin=$class_creation
13
jour_end=!char 1 to 8 of $wims_now
13
jour_end=!char 1 to 8 of $wims_now
14
 
14
 
15
!if $cdt_supervise!=yes
15
!if $cdt_supervise!=yes
16
 class_parent=!text select 0123456789/ in $class_parent
16
  class_parent=!text select 0123456789/ in $class_parent
17
 courses=!words2lines $ltcourses
17
  courses=!words2lines $ltcourses
18
!endif
18
!endif
19
 
19
 
20
list=!mexec proc/mkwork.sh
20
list=!mexec proc/mkwork.sh
21
nbligne=!linecnt $list
21
nbligne=!linecnt $list
22
 
22
 
23
!if $cdt_nbdate>$max_defaffi
23
!if $cdt_nbdate>$max_defaffi
24
 list=!line -$max_defaffi to -1 of $list
24
  list=!line -$max_defaffi to -1 of $list
25
 nbligne=!linecnt $list
25
  nbligne=!linecnt $list
26
 jour_begin=$(list[1;1])
26
  jour_begin=$(list[1;1])
27
!endif
27
!endif
28
 
28
 
29
job=work
29
job=work