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