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