Rev 11977 | 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 |
14043 | bpr | 5 | !defread wimshome/log/classes/$wims_class/.def |
23 | reyssat | 6 | !endif |
7 | !if $class_expiration=$empty |
||
14043 | bpr | 8 | error=bad_class |
9 | !exit |
||
23 | reyssat | 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 |
14043 | bpr | 16 | class_parent=!text select 0123456789/ in $class_parent |
17 | courses=!words2lines $ltcourses |
||
23 | reyssat | 18 | !endif |
8138 | guerimand | 19 | |
23 | reyssat | 20 | list=!mexec proc/mkwork.sh |
21 | nbligne=!linecnt $list |
||
8138 | guerimand | 22 | |
23 | !if $cdt_nbdate>$max_defaffi |
||
14043 | bpr | 24 | list=!line -$max_defaffi to -1 of $list |
25 | nbligne=!linecnt $list |
||
26 | jour_begin=$(list[1;1]) |
||
8138 | guerimand | 27 | !endif |
28 | |||
23 | reyssat | 29 | job=work |