Subversion Repositories wimsdev

Rev

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

Rev 14043 Rev 14300
Line 21... Line 21...
21
 
21
 
22
!if $job2!=save
22
!if $job2!=save
23
  !exit
23
  !exit
24
!endif
24
!endif
25
 
25
 
26
!if $jquery_defined=yes
26
!if $jquery_defined!=yes
-
 
27
  jmonth=!char 2,3 of $[abs(floor($monthjdate))+100]
-
 
28
  jday=!char 2,3 of $[abs(floor($dayjdate))+100]
27
  jyear=!char 1 to 4 of $jdate
29
  jyear=!char -4 to -1 of $[abs(floor($yearjdate))+100000]
28
  jmonth=!char 5 to 6 of $jdate
30
  jdate=$(jyear)$(jmonth)$(jday)
-
 
31
  !for i=1 to $s_nbdevoir
-
 
32
    jmonth=!char 2,3 of $[abs(floor($(monthddate$i)))+100]
-
 
33
    jday=!char 2,3 of $[abs(floor($(dayddate$i)))+100]
-
 
34
    jyear=!char -4 to -1 of $[abs(floor($(yearddate$i)))+100000]
29
  jday=!char 7 to 8 of $jdate
35
    ddate$i=$(jyear)$(jmonth)$(jday)
-
 
36
  !next i
30
!endif
37
!endif
-
 
38
 
31
jmonth=!char 2,3 of $[abs(floor($jmonth))+100]
39
jyear=!char 1 to 4 of $jdate
32
jday=!char 2,3 of $[abs(floor($jday))+100]
40
jmonth=!char 5 to 6 of $jdate
33
jyear=!char -4 to -1 of $[abs(floor($jyear))+100000]
41
jday=!char 7 to 8 of $jdate
34
!if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \
42
!if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \
35
  and N notin $jmonth$jday$jyear
43
  and N notin $jmonth$jday$jyear
36
 
44
 
37
  !!  and $jyear$jmonth$jday<=$class_expiration
45
  !!  and $jyear$jmonth$jday<=$class_expiration
38
  !!  and $jyear$jmonth$jday>=$class_creation
46
  !!  and $jyear$jmonth$jday>=$class_creation
39
  jour=$jyear$jmonth$jday
47
  jour=$jyear$jmonth$jday
40
!else
48
!else
41
  error=bad_day
49
  error=bad_day
42
  !exit
50
  !exit
43
!endif
51
!endif
44
!reset date_todo,date_exist
52
!reset date_todo,date_exist
45
!read wimshome/log/classes/$wims_class/cdt/def/$jour
53
!read wimshome/log/classes/$wims_class/cdt/def/$jour
46
tmp=!itemcnt $date_todo
54
tmp=!itemcnt $date_todo
47
!if yes isin $date_exist and $tmp+$s_nbdevoir>$max_todo
55
!if yes isin $date_exist and $tmp+$s_nbdevoir>$max_todo
48
  error=toomany_todo
56
  error=toomany_todo
Line 53... Line 61...
53
  !exit
61
  !exit
54
!endif
62
!endif
55
 
63
 
56
ltjdevoir=$date_todo
64
ltjdevoir=$date_todo
57
!for i=1 to $s_nbdevoir
65
!for i=1 to $s_nbdevoir
58
  !if $jquery_defined=yes
-
 
59
    dyear$i=!char 1 to 4 of $(ddate$i)
66
  dyear=!char 1 to 4 of $(ddate$i)
60
    dmonth$i=!char 5 to 6 of $(ddate$i)
67
  dmonth=!char 5 to 6 of $(ddate$i)
61
    dday$i=!char 7 to 8 of $(ddate$i)
68
  dday=!char 7 to 8 of $(ddate$i)
62
  !endif
-
 
63
  dmonth=!char 2,3 of $[abs(floor($(dmonth$i)))+100]
-
 
64
  dday=!char 2,3 of $[abs(floor($(dday$i)))+100]
-
 
65
  dyear=!char -4 to -1 of $[abs(floor($(dyear$i)))+100000]
-
 
66
  !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \
69
  !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \
67
   and N notin $dmonth$dday$dyear \
70
   and N notin $dmonth$dday$dyear \
68
   and $dyear$dmonth$dday>$jour
71
   and $dyear$dmonth$dday>$jour
69
   !! and $dyear$dmonth$dday<=$class_expiration
72
   !! and $dyear$dmonth$dday<=$class_expiration
70
   !! and $dyear$dmonth$dday>=$class_creation
73
   !! and $dyear$dmonth$dday>=$class_creation
Line 121... Line 124...
121
!sh rm $s2file.tmp;\
124
!sh rm $s2file.tmp;\
122
mv $s2file $wims_home/log/classes/$wims_class/cdt/def/$jour;
125
mv $s2file $wims_home/log/classes/$wims_class/cdt/def/$jour;
123
 
126
 
124
!read proc/mkindex.proc
127
!read proc/mkindex.proc
125
 
128
 
126
jday2=$jday
129
!!jday2=$jday
127
jmonth2=$jmonth
130
!!jmonth2=$jmonth
128
jyear2=$jyear
131
!!jyear2=$jyear
129
job=work
132
job=work
130
!read work.proc
133
!read work.proc