Subversion Repositories wimsdev

Rev

Rev 2240 | Rev 10189 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2240 Rev 8138
Line 7... Line 7...
7
!if $class_expiration=$empty
7
!if $class_expiration=$empty
8
 error=bad_class
8
 error=bad_class
9
 !exit
9
 !exit
10
!endif
10
!endif
11
 
11
 
12
!if $cdt_nbdate<$max_defaffi
-
 
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
12
jour_begin=$class_creation
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
13
jour_end=!char 1 to 8 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
14
 
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
15
!if $cdt_supervise!=yes
39
 class_parent=!text select 0123456789/ in $class_parent
16
 class_parent=!text select 0123456789/ in $class_parent
40
 courses=!record 0 of wimshome/log/classes/$wims_class/courses
17
 courses=!record 0 of wimshome/log/classes/$wims_class/courses
41
 courses=!column 1 of $courses 
18
 courses=!column 1 of $courses 
42
 courses=!items2lines $courses
19
 courses=!items2lines $courses
43
 courses=!replace internal / by , in $courses
20
 courses=!replace internal / by , in $courses
44
 courses=!columns 3 of $courses
21
 courses=!columns 3 of $courses
45
 courses=!text select 0123456789, in $courses
22
 courses=!text select 0123456789, in $courses
46
 courses=!items2lines $courses
23
 courses=!items2lines $courses
47
!endif
24
!endif
-
 
25
 
48
list=!mexec proc/mkwork.sh
26
list=!mexec proc/mkwork.sh
49
nbligne=!linecnt $list
27
nbligne=!linecnt $list
-
 
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
 
50
job=work
35
job=work
51
 
36