Subversion Repositories wimsdev

Rev

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