Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
23 | reyssat | 1 | # Variable calculations should be done in this file. |
2 | # It is read and interpreted by wims for all valid calls to the module. |
||
3 | |||
4 | !if $class_expiration=$empty |
||
5 | !defread wimshome/log/classes/$wims_class/.def |
||
6 | !endif |
||
7 | !if $class_expiration=$empty |
||
8 | error=bad_class |
||
9 | !exit |
||
10 | !endif |
||
11 | |||
12 | !if $cdt_nbdate<$max_defaffi |
||
1582 | guerimand | 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 |
||
23 | reyssat | 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 |
||
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 |
||
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 |
||
39 | class_parent=!text select 0123456789/ in $class_parent |
||
40 | courses=!record 0 of wimshome/log/classes/$wims_class/courses |
||
41 | courses=!column 1 of $courses |
||
42 | courses=!items2lines $courses |
||
43 | courses=!replace internal / by , in $courses |
||
44 | courses=!columns 3 of $courses |
||
45 | courses=!text select 0123456789, in $courses |
||
46 | courses=!items2lines $courses |
||
47 | !endif |
||
48 | list=!mexec proc/mkwork.sh |
||
49 | nbligne=!linecnt $list |
||
50 | job=work |
||
1582 | guerimand | 51 | !!if $cdt_nbdate<$max_defaffi |
23 | reyssat | 52 | !! !reset jour_begin,jour_end |
1582 | guerimand | 53 | !!endif |