Rev 8138 | Rev 11977 | Go to most recent revision | Details | Compare with Previous | 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 | |||
10189 | bpr | 4 | !if $class_expiration=$empty |
23 | reyssat | 5 | !defread wimshome/log/classes/$wims_class/.def |
6 | !endif |
||
7 | !if $class_expiration=$empty |
||
8 | error=bad_class |
||
9 | !exit |
||
10 | !endif |
||
11 | |||
8138 | guerimand | 12 | jour_begin=$class_creation |
13 | jour_end=!char 1 to 8 of $wims_now |
||
14 | |||
23 | reyssat | 15 | !if $cdt_supervise!=yes |
16 | class_parent=!text select 0123456789/ in $class_parent |
||
17 | courses=!record 0 of wimshome/log/classes/$wims_class/courses |
||
10189 | bpr | 18 | courses=!column 1 of $courses |
23 | reyssat | 19 | courses=!items2lines $courses |
20 | courses=!replace internal / by , in $courses |
||
21 | courses=!columns 3 of $courses |
||
22 | courses=!text select 0123456789, in $courses |
||
23 | courses=!items2lines $courses |
||
24 | !endif |
||
8138 | guerimand | 25 | |
23 | reyssat | 26 | list=!mexec proc/mkwork.sh |
27 | nbligne=!linecnt $list |
||
8138 | guerimand | 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 | |||
23 | reyssat | 35 | job=work |