Subversion Repositories wimsdev

Rev

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

Rev 11798 Rev 13610
Line 4... Line 4...
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
!if $jquery_defined=yes
26
!if $jquery_defined=yes
27
    jyear=!char 1 to 4 of $jdate
27
  jyear=!char 1 to 4 of $jdate
28
    jmonth=!char 5 to 6 of $jdate
28
  jmonth=!char 5 to 6 of $jdate
29
    jday=!char 7 to 8 of $jdate
29
  jday=!char 7 to 8 of $jdate
30
!endif
30
!endif
31
jmonth=!char 2,3 of $[abs(floor($jmonth))+100]
31
jmonth=!char 2,3 of $[abs(floor($jmonth))+100]
32
jday=!char 2,3 of $[abs(floor($jday))+100]
32
jday=!char 2,3 of $[abs(floor($jday))+100]
33
jyear=!char -4 to -1 of $[abs(floor($jyear))+100000]
33
jyear=!char -4 to -1 of $[abs(floor($jyear))+100000]
34
!if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \
34
!if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \
35
	and N notin $jmonth$jday$jyear
35
  and N notin $jmonth$jday$jyear
36
 
36
 
37
!!	and $jyear$jmonth$jday<=$class_expiration
37
!!  and $jyear$jmonth$jday<=$class_expiration
38
!!	and $jyear$jmonth$jday>=$class_creation
38
!!  and $jyear$jmonth$jday>=$class_creation
39
 jour=$jyear$jmonth$jday
39
  jour=$jyear$jmonth$jday
40
!else
40
!else
41
 error=bad_day
41
  error=bad_day
42
 !exit
42
  !exit
43
!endif
43
!endif
44
!reset date_todo,date_exist
44
!reset date_todo,date_exist
45
!read wimshome/log/classes/$wims_class/cdt/def/$jour
45
!read wimshome/log/classes/$wims_class/cdt/def/$jour
46
tmp=!itemcnt $date_todo
46
tmp=!itemcnt $date_todo
47
!if yes isin $date_exist and $tmp+$s_nbdevoir>$max_todo
47
!if yes isin $date_exist and $tmp+$s_nbdevoir>$max_todo
48
 error=toomany_todo
48
  error=toomany_todo
49
 !if $tmp<$max_todo
49
  !if $tmp<$max_todo
50
  s_nbdevoir=$[$max_todo-$tmp]
50
    s_nbdevoir=$[$max_todo-$tmp]
51
  nbredevoir=$s_nbdevoir
51
    nbredevoir=$s_nbdevoir
52
 !endif
52
  !endif
53
 !exit
53
  !exit
54
!endif
54
!endif
55
 
55
 
56
ltjdevoir=$date_todo
56
ltjdevoir=$date_todo
57
!for i=1 to $s_nbdevoir
57
!for i=1 to $s_nbdevoir
58
 !if $jqueery_defined=yes
58
  !if $jquery_defined=yes
59
    dyear$i=!char 1 to 4 of $(ddate$i)
59
    dyear$i=!char 1 to 4 of $(ddate$i)
60
    dmonth$i=!char 5 to 6 of $(ddate$i)
60
    dmonth$i=!char 5 to 6 of $(ddate$i)
61
    dday$i=!char 7 to 8 of $(ddate$i)
61
    dday$i=!char 7 to 8 of $(ddate$i)
62
 !endif
62
  !endif
63
 dmonth=!char 2,3 of $[abs(floor($(dmonth$i)))+100]
63
  dmonth=!char 2,3 of $[abs(floor($(dmonth$i)))+100]
64
 dday=!char 2,3 of $[abs(floor($(dday$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]
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 \
66
  !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \
67
	and N notin $dmonth$dday$dyear \
67
   and N notin $dmonth$dday$dyear \
68
	and $dyear$dmonth$dday>$jour
68
   and $dyear$dmonth$dday>$jour
69
!!	and $dyear$dmonth$dday<=$class_expiration
69
   !! and $dyear$dmonth$dday<=$class_expiration
70
!!	and $dyear$dmonth$dday>=$class_creation
70
   !! and $dyear$dmonth$dday>=$class_creation
71
  jdevoir$i=$dyear$dmonth$dday
71
    jdevoir$i=$dyear$dmonth$dday
72
  ltjdevoir=!append item $(jdevoir$i) to $ltjdevoir
72
    ltjdevoir=!append item $(jdevoir$i) to $ltjdevoir
73
 !else
73
  !else
74
  error=bad_jday
74
    error=bad_jday
75
  !exit
75
    !exit
76
 !endif
76
  !endif
77
!next i
77
!next i
78
tmp=!listuniq $ltjdevoir
78
tmp=!listuniq $ltjdevoir
79
tmp1=!itemcnt $tmp
79
tmp1=!itemcnt $tmp
80
tmp2=!itemcnt $ltjdevoir
80
tmp2=!itemcnt $ltjdevoir
81
!if $tmp1!=$tmp2
81
!if $tmp1!=$tmp2
82
 error=same_devoir2
82
  error=same_devoir2
83
 !exit
83
  !exit
84
!endif
84
!endif
85
 
85
 
86
s2file=$wims_home/s2/$wims_session/$jour
86
s2file=$wims_home/s2/$wims_session/$jour
87
 
87
 
88
!if yes isin $date_exist
88
!if yes isin $date_exist
89
 !sh cp $wims_home/log/classes/$wims_class/cdt/def/$jour $s2file
89
  !sh cp $wims_home/log/classes/$wims_class/cdt/def/$jour $s2file
90
!else
90
!else
91
 cdt_nbdate=$[$cdt_nbdate+1]
91
  cdt_nbdate=$[$cdt_nbdate+1]
92
 !writefile wimshome/log/classes/$wims_class/cdt/src/$jour.work $empty
92
  !writefile wimshome/log/classes/$wims_class/cdt/src/$jour.work $empty
93
 !writefile wimshome/s2/$wims_session/$jour !set date_exist=yes\
93
  !writefile wimshome/s2/$wims_session/$jour !set date_exist=yes\
94
!set date_todo=$empty\
94
!set date_todo=$empty\
95
\
95
\
96
!if $$wims_read_parm!=$$empty\
96
!if $$wims_read_parm!=$$empty\
97
 !goto $$wims_read_parm\
97
 !goto $$wims_read_parm\
98
!endif\
98
!endif\
Line 104... Line 104...
104
!endif
104
!endif
105
 
105
 
106
ltjdevoir=$date_todo
106
ltjdevoir=$date_todo
107
nb=!itemcnt $date_todo
107
nb=!itemcnt $date_todo
108
!for i=1 to $s_nbdevoir
108
!for i=1 to $s_nbdevoir
109
 !if $(ddesc$i)!=$empty
109
  !if $(ddesc$i)!=$empty
110
  nb=$[$nb+1]
110
    nb=$[$nb+1]
111
  !writefile wimshome/log/classes/$wims_class/cdt/src/$jour.todo$nb $(ddesc$i)
111
    !writefile wimshome/log/classes/$wims_class/cdt/src/$jour.todo$nb $(ddesc$i)
112
  !sh $wims_home/bin/msg2wims $wims_home/log/classes/$wims_class/cdt/src/$jour.todo$nb $s2file.tmp;\
112
    !sh $wims_home/bin/msg2wims $wims_home/log/classes/$wims_class/cdt/src/$jour.todo$nb $s2file.tmp;\
113
echo ":todo$nb" >> $s2file;\
113
echo ":todo$nb" >> $s2file;\
114
cat $s2file.tmp >> $s2file;\
114
cat $s2file.tmp >> $s2file;\
115
echo "!exit" >> $s2file;
115
echo "!exit" >> $s2file;
116
  ltjdevoir=!append item $(jdevoir$i) to $ltjdevoir
116
    ltjdevoir=!append item $(jdevoir$i) to $ltjdevoir
117
 !endif
117
  !endif
118
!next i
118
!next i
119
 
119
 
120
!setdef !set date_todo=$ltjdevoir in wimshome/s2/$wims_session/$jour
120
!setdef !set date_todo=$ltjdevoir in wimshome/s2/$wims_session/$jour
121
!sh rm $s2file.tmp;\
121
!sh rm $s2file.tmp;\
122
mv $s2file $wims_home/log/classes/$wims_class/cdt/def/$jour;
122
mv $s2file $wims_home/log/classes/$wims_class/cdt/def/$jour;