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 13... Line 13...
13
!bound nbredevoir between integer 0 and $max_todo default 1
13
!bound nbredevoir between integer 0 and $max_todo default 1
14
!if $s_nbdevoir!=$nbredevoir
14
!if $s_nbdevoir!=$nbredevoir
15
  !reset job2
15
  !reset job2
16
!endif
16
!endif
17
s_nbdevoir=$nbredevoir
17
s_nbdevoir=$nbredevoir
-
 
18
 
-
 
19
!if $jquery_defined!=yes
-
 
20
  jmonth=!char 2,3 of $[abs(floor($monthjdate))+100]
-
 
21
  jday=!char 2,3 of $[abs(floor($dayjdate))+100]
-
 
22
  jyear=!char -4 to -1 of $[abs(floor($yearjdate))+100000]
-
 
23
  jdate=$(jyear)$(jmonth)$(jday)
-
 
24
  !for i=1 to $s_nbdevoir
-
 
25
    jmonth=!char 2,3 of $[abs(floor($(monthddate$i)))+100]
-
 
26
    jday=!char 2,3 of $[abs(floor($(dayddate$i)))+100]
-
 
27
    jyear=!char -4 to -1 of $[abs(floor($(yearddate$i)))+100000]
-
 
28
    ddate$i=$(jyear)$(jmonth)$(jday)
-
 
29
  !next i
-
 
30
!endif
18
 
31
 
19
!if $job2!=save
32
!if $job2!=save
20
  !if $filename!=$empty and $old_date=$empty
33
  !if $filename!=$empty and $old_date=$empty
21
    !read wimshome/log/classes/$wims_class/cdt/def/$filename
34
    !read wimshome/log/classes/$wims_class/cdt/def/$filename
22
    !if yes isin $date_exist
35
    !if yes isin $date_exist
23
      jdesc=!record 0 of wimshome/log/classes/$wims_class/cdt/src/$filename.work
36
      jdesc=!record 0 of wimshome/log/classes/$wims_class/cdt/src/$filename.work
24
      jday=!char 7 to 8 of $filename
-
 
25
      jmonth=!char 5 to 6 of $filename
-
 
26
      jyear=!char 1 to 4 of $filename
-
 
27
      jdate=!char 1 to 8 of $filename
37
      jdate=!char 1 to 8 of $filename
28
      nbredevoir=!itemcnt $date_todo
38
      nbredevoir=!itemcnt $date_todo
29
      !if $nbredevoir>0
39
      !if $nbredevoir>0
30
        !for i=1 to $nbredevoir
40
        !for i=1 to $nbredevoir
31
          ddesc$i=!record 0 of wimshome/log/classes/$wims_class/cdt/src/$filename.todo$i
41
          ddesc$i=!record 0 of wimshome/log/classes/$wims_class/cdt/src/$filename.todo$i
32
          tmp=!item $i of $date_todo
42
          tmp=!item $i of $date_todo
33
          dday$i=!char 7 to 8 of $tmp
-
 
34
          dmonth$i=!char 5 to 6 of $tmp
-
 
35
          dyear$i=!char 1 to 4 of $tmp
-
 
36
          ddate$i=!char 1 to 8 of $tmp
43
          ddate$i=!char 1 to 8 of $tmp
37
        !next i
44
        !next i
38
      !endif
45
      !endif
39
      s_nbdevoir=$nbredevoir
46
      s_nbdevoir=$nbredevoir
40
       old_date=$filename
47
       old_date=$filename
41
      !endif
48
      !endif
42
      !reset filename
49
      !reset filename
43
    !endif
50
    !endif
44
    !exit
51
    !exit
45
  !endif
52
  !endif
46
 
-
 
47
  !if $jquery_defined=yes
-
 
48
    jyear=!char 1 to 4 of $jdate
53
  jyear=!char 1 to 4 of $jdate
49
    jmonth=!char 5 to 6 of $jdate
54
  jmonth=!char 5 to 6 of $jdate
50
    jday=!char 7 to 8 of $jdate
55
  jday=!char 7 to 8 of $jdate
51
  !endif
-
 
52
  jmonth=!char 2,3 of $[abs(floor($jmonth))+100]
-
 
53
  jday=!char 2,3 of $[abs(floor($jday))+100]
-
 
54
  jyear=!char -4 to -1 of $[abs(floor($jyear))+100000]
-
 
55
  !if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \
56
  !if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \
56
      and N notin $jmonth$jday$jyear
57
      and N notin $jmonth$jday$jyear
57
    !! and $jyear$jmonth$jday<=$class_expiration
58
    !! and $jyear$jmonth$jday<=$class_expiration
58
    !! and $jyear$jmonth$jday>=$class_creation
59
    !! and $jyear$jmonth$jday>=$class_creation
59
 
60
 
60
    jour=$jyear$jmonth$jday
61
    jour=$jyear$jmonth$jday
61
  !else
62
  !else
62
   error=bad_day
63
   error=bad_day
63
  !exit
64
  !exit
64
!endif
65
!endif
-
 
66
 
65
!reset date_exist
67
!reset date_exist
66
!read wimshome/log/classes/$wims_class/cdt/def/$jour
68
!read wimshome/log/classes/$wims_class/cdt/def/$jour
67
!if yes isin $date_exist and $jour!=$old_date
69
!if yes isin $date_exist and $jour!=$old_date
68
  error=day_exists
70
  error=day_exists
69
  !exit
71
  !exit
70
!endif
72
!endif
71
 
73
 
72
ltjdevoir=$empty
74
ltjdevoir=$empty
73
!if $s_nbdevoir>0
75
!if $s_nbdevoir>0
74
  !for i=1 to $s_nbdevoir
76
  !for i=1 to $s_nbdevoir
75
    !if $jquery_defined=yes
-
 
76
      dyear$i=!char 1 to 4 of $(ddate$i)
77
    dyear=!char 1 to 4 of $(ddate$i)
77
      dmonth$i=!char 5 to 6 of $(ddate$i)
78
    dmonth=!char 5 to 6 of $(ddate$i)
78
      dday$i=!char 7 to 8 of $(ddate$i)
79
    dday=!char 7 to 8 of $(ddate$i)
79
    !endif
-
 
80
    dmonth=!char 2,3 of $[abs(floor($(dmonth$i)))+100]
-
 
81
    dday=!char 2,3 of $[abs(floor($(dday$i)))+100]
-
 
82
    dyear=!char -4 to -1 of $[abs(floor($(dyear$i)))+100000]
-
 
83
    !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \
80
    !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \
84
       and $dyear$dmonth$dday>$jour \
81
       and $dyear$dmonth$dday>$jour \
85
       and N notin $dmonth$dday$dyear
82
       and N notin $dmonth$dday$dyear
86
      !! and $dyear$dmonth$dday<=$class_expiration
83
      !! and $dyear$dmonth$dday<=$class_expiration
87
      !! and $dyear$dmonth$dday>=$class_creation
84
      !! and $dyear$dmonth$dday>=$class_creation