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 |
|
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 |
|
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 |