Rev 10189 | 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 |
||
11977 | guerimand | 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 |
||
24 | list=!line -$max_defaffi to -1 of $list |
||
25 | nbligne=!linecnt $list |
||
26 | jour_begin=$(list[1;1]) |
||
27 | !endif |
||
28 | |||
23 | reyssat | 29 | job=work |