Subversion Repositories wimsdev

Rev

Rev 2240 | Rev 10189 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2240 Rev 8138
Line 7... Line 7...
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 
!if $cdt_nbdate<$max_defaffi
 - 
 
13 
 firstdate=!filelist $wims_home/log/classes/$wims_class/cdt/src
 - 
 
14 
 firstdate=!word 1 of $firstdate
 - 
 
15 
 jour_begin=!char 1 to 8 of $firstdate
 - 
 
16 
 !default jour_begin=$class_creation
 12 
jour_begin=$class_creation
17 
 jour_end=$class_expiration
 - 
 
18 
!else
 - 
 
19 
 j=!char 7 to 8 of $wims_now
 - 
 
20 
 m=!char 5 to 6 of $wims_now
 - 
 
21 
 y=!char 1 to 4 of $wims_now
 13 
jour_end=!char 1 to 8 of $wims_now
22 
 !if $m=1
 - 
 
23 
  m=12
 - 
 
24 
  y=$[$y-1]
 - 
 
25 
 !else
 - 
 
26 
  m=$[($m-1)+100]
 - 
 
27 
  m=!char 2 to 3 of $m
 - 
 
28 
 !endif
 - 
 
29 
 jour_begin=$y$m$j
 - 
 
30 
 jour_end=$wims_now
 - 
 
31 
!endif
 14 
 
32 
jday=!char 7 to 8 of $jour_begin
 - 
 
33 
jmonth=!char 5 to 6 of $jour_begin
 - 
 
34 
jyear=!char 1 to 4 of $jour_begin
 - 
 
35 
jday2=!char 7 to 8 of $jour_end
 - 
 
36 
jmonth2=!char 5 to 6 of $jour_end
 - 
 
37 
jyear2=!char 1 to 4 of $jour_end
 - 
 
38 
!if $cdt_supervise!=yes
 15 
!if $cdt_supervise!=yes
39 
 class_parent=!text select 0123456789/ in $class_parent
 16 
 class_parent=!text select 0123456789/ in $class_parent
40 
 courses=!record 0 of wimshome/log/classes/$wims_class/courses
 17 
 courses=!record 0 of wimshome/log/classes/$wims_class/courses
41 
 courses=!column 1 of $courses
18 
 courses=!column 1 of $courses
42 
 courses=!items2lines $courses
 19 
 courses=!items2lines $courses
43 
 courses=!replace internal / by , in $courses
 20 
 courses=!replace internal / by , in $courses
44 
 courses=!columns 3 of $courses
 21 
 courses=!columns 3 of $courses
45 
 courses=!text select 0123456789, in $courses
 22 
 courses=!text select 0123456789, in $courses
46 
 courses=!items2lines $courses
 23 
 courses=!items2lines $courses
47 
!endif
 24 
!endif
- 
 
 25 
 
48 
list=!mexec proc/mkwork.sh
 26 
list=!mexec proc/mkwork.sh
49 
nbligne=!linecnt $list
 27 
nbligne=!linecnt $list
- 
 
 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 
 
50 
job=work
 35 
job=work
51 
 
 36