Subversion Repositories wimsdev

Rev

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

Rev 3912 Rev 10189
Line 3... Line 3...
3 
 
 3 
 
4 
desc_limit=4000
 4 
desc_limit=4000
5 
 
 5 
 
6 
today=!char 1 to 8 of $wims_now
 6 
today=!char 1 to 8 of $wims_now
7 
thisyear=!char 1 to 4 of $today
 7 
thisyear=!char 1 to 4 of $today
8 
!if $class_expiration=$empty
8 
!if $class_expiration=$empty
9 
 !defread wimshome/log/classes/$wims_class/.def
 9 
 !defread wimshome/log/classes/$wims_class/.def
10 
!endif
 10 
!endif
11 
!if $class_expiration=$empty
 11 
!if $class_expiration=$empty
12 
 error=bad_class
 12 
 error=bad_class
13 
 !exit
 13 
 !exit
14 
!endif
 14 
!endif
15 
 
 15 
 
16 
!bound nbredevoir between integer 1 and $max_todo default 1
 16 
!bound nbredevoir between integer 1 and $max_todo default 1
17 
!if $s_nbdevoir!=$nbredevoir
 17 
!if $s_nbdevoir!=$nbredevoir
18 
 !reset job2
 18 
 !reset job2
19 
!endif
 19 
!endif
20 
s_nbdevoir=$nbredevoir
 20 
s_nbdevoir=$nbredevoir
21 
 
 21 
 
22 
!if $job2!=save
 22 
!if $job2!=save
23 
 !exit
 23 
 !exit
24 
!endif
 24 
!endif
25 
 
 25 
 
26 
jmonth=!char 2,3 of $[abs(floor($jmonth))+100]
 26 
jmonth=!char 2,3 of $[abs(floor($jmonth))+100]
27 
jday=!char 2,3 of $[abs(floor($jday))+100]
 27 
jday=!char 2,3 of $[abs(floor($jday))+100]
28 
jyear=!char -4 to -1 of $[abs(floor($jyear))+100000]
 28 
jyear=!char -4 to -1 of $[abs(floor($jyear))+100000]
29 
!if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \
 29 
!if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \
30 
	and N notin $jmonth$jday$jyear
 30 
	and N notin $jmonth$jday$jyear
- 
 
 31 
 
31 
!!	and $jyear$jmonth$jday<=$class_expiration
 32 
!!	and $jyear$jmonth$jday<=$class_expiration
32 
!!	and $jyear$jmonth$jday>=$class_creation
33 
!!	and $jyear$jmonth$jday>=$class_creation
33 
 jour=$jyear$jmonth$jday
 34 
 jour=$jyear$jmonth$jday
34 
!else
 35 
!else
35 
 error=bad_day
 36 
 error=bad_day
36 
 !exit
 37 
 !exit
37 
!endif
 38 
!endif
Line 54... Line 55...
54 
 dyear=!char -4 to -1 of $[abs(floor($(dyear$i)))+100000]
 55 
 dyear=!char -4 to -1 of $[abs(floor($(dyear$i)))+100000]
55 
 !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \
 56 
 !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \
56 
	and N notin $dmonth$dday$dyear \
 57 
	and N notin $dmonth$dday$dyear \
57 
	and $dyear$dmonth$dday>$jour
 58 
	and $dyear$dmonth$dday>$jour
58 
!!	and $dyear$dmonth$dday<=$class_expiration
 59 
!!	and $dyear$dmonth$dday<=$class_expiration
59 
!!	and $dyear$dmonth$dday>=$class_creation
60 
!!	and $dyear$dmonth$dday>=$class_creation
60 
  jdevoir$i=$dyear$dmonth$dday
 61 
  jdevoir$i=$dyear$dmonth$dday
61 
  ltjdevoir=!append item $(jdevoir$i) to $ltjdevoir
 62 
  ltjdevoir=!append item $(jdevoir$i) to $ltjdevoir
62 
 !else
 63 
 !else
63 
  error=bad_jday
 64 
  error=bad_jday
64 
  !exit
 65 
  !exit