Rev 5324 | Rev 7952 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 5324 | Rev 7885 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !default wims_firstname=$wims_devfirstname |
1 | !default wims_firstname=$wims_devfirstname |
2 | !default wims_lastname=$wims_devlastname |
2 | !default wims_lastname=$wims_devlastname |
- | 3 | ||
3 | !!$wims_sesdir a mettre partout y a t-il quelque chose pour s2 |
4 | !!$wims_sesdir a mettre partout y a t-il quelque chose pour s2 |
4 | !read lang/names.phtml.fr |
5 | !read lang/names.phtml.fr |
5 | !set limit=50 |
6 | !set limit=50 |
6 | !reset begin |
7 | !reset begin |
7 | !default ext=1 |
8 | !default ext=1 |
8 | javaoption=$javatype |
9 | javaoption=$javatype |
9 | !default javaoption=circle |
10 | !default javaoption=circle |
- | 11 | javaoutput=!getopt free in $(javaoutput) |
|
- | 12 | ||
10 | !if $end=1 |
13 | !if $end=1 |
11 | !goto end |
14 | !goto end |
12 | !endif |
15 | !endif |
13 | !if $step <=1 |
16 | !if $step <=1 |
14 | !set wims_form_method=file |
17 | !set wims_form_method=file |
Line 45... | Line 48... | ||
45 | !reset wims_deposit_old |
48 | !reset wims_deposit_old |
46 | insdraw_size=!line 1 of $data |
49 | insdraw_size=!line 1 of $data |
47 | step=!linecnt $data |
50 | step=!linecnt $data |
48 | test_ext=!line 2 of $data |
51 | test_ext=!line 2 of $data |
49 | test_extcnt=!itemcnt $test_ext |
52 | test_extcnt=!itemcnt $test_ext |
50 | test_extcnt2=!listintersect |
53 | test_extcnt2=!listintersect $test_ext and $list_curve |
51 | !if ($test_extcnt=3 and $type=1) or ($type<2 and $(test_ext[2]) isitemof $list_curve) \ |
54 | !if ($test_extcnt=3 and $type=1) or ($type<2 and $(test_ext[2]) isitemof $list_curve) \ |
52 | or ($type=2 and $test_extcnt2=$empty) |
55 | or ($type=2 and $test_extcnt2=$empty) |
53 | data=!line 1 of $data |
56 | data=!line 1 of $data |
54 | step=3 |
57 | step=3 |
55 | !goto 2 |
58 | !goto 2 |
56 | !endif |
59 | !endif |
57 | !if $step=0 |
60 | !if $step=0 |
58 | step=1 |
61 | step=1 |
59 | !goto 1 |
62 | !goto 1 |
60 | !endif |
63 | !endif |
61 | !for l_ =2 to $step |
64 | !for l_ =2 to $step |
62 | c_=!line $l_ of $data |
65 | c_=!line $l_ of $data |
Line 92... | Line 95... | ||
92 | !if $wims_deposit_old= |
95 | !if $wims_deposit_old= |
93 | !sh cd $wims_home/$wims_sesdir\ |
96 | !sh cd $wims_home/$wims_sesdir\ |
94 | mkdir -p getfile\ |
97 | mkdir -p getfile\ |
95 | mkdir -p $sesdir\ |
98 | mkdir -p $sesdir\ |
96 | mv user-deposit $sesdir/$wims_deposit |
99 | mv user-deposit $sesdir/$wims_deposit |
97 | !endif |
100 | !endif |
98 | !increase step |
101 | !increase step |
99 | !endif step=1 |
102 | !endif step=1 |
100 | :2 |
103 | :2 |
101 | !if $step>=2 |
104 | !if $step>=2 |
102 | !if $erase=yes |
105 | !if $erase=yes |
Line 119... | Line 122... | ||
119 | !endif step>=2 |
122 | !endif step>=2 |
120 | !reset wims_form_method |
123 | !reset wims_form_method |
121 | !default imgsrc=$wims_ref_name?session=$session&cmd=getfile&special_parm=$sesdir1/$wims_deposit |
124 | !default imgsrc=$wims_ref_name?session=$session&cmd=getfile&special_parm=$sesdir1/$wims_deposit |
122 | click_x=$[$click_x] |
125 | click_x=$[$click_x] |
123 | click_y=$[$click_y] |
126 | click_y=$[$click_y] |
124 | 127 | ||
125 | !if $step=2 |
128 | !if $step=2 |
126 | !reset data |
129 | !reset data |
127 | !if $click_x != 0 and $click_y != 0 |
130 | !if $click_x != 0 and $click_y != 0 |
128 | data=!append line $click_x,$click_y to $data |
131 | data=!append line $click_x,$click_y to $data |
129 | !increase step |
132 | !increase step |
Line 165... | Line 168... | ||
165 | dessin=!append line fcircle $click_x,$click_y,10,black to $dessin |
168 | dessin=!append line fcircle $click_x,$click_y,10,black to $dessin |
166 | !endif |
169 | !endif |
167 | !if $type=1 |
170 | !if $type=1 |
168 | dessin=!append line arrow $click_x,$click_y to $dessin |
171 | dessin=!append line arrow $click_x,$click_y to $dessin |
169 | !endif |
172 | !endif |
170 | !if $type iswordof 1 2 |
173 | !if $type iswordof 1 2 |
171 | !increase ext |
174 | !increase ext |
- | 175 | !if $type iswordof 2 |
|
- | 176 | dessin_p=!append line fcircle $click_x,$click_y,5,red to $dessin_p |
|
- | 177 | !set insdraw_filebase=!append word $wims_home/sessions/$wims_session/$sesdir to $insdraw_filebase |
|
- | 178 | !set insdraw_filebase=!listuniq $insdraw_filebase |
|
- | 179 | !insdraw copy 0,0,-1,-1,-1,-1,$wims_deposit\ |
|
- | 180 | $dessin\ |
|
- | 181 | $dessin_p |
|
- | 182 | !sh cd $wims_home/\ |
|
- | 183 | cp s2/$wims_session/$ins_filename sessions/$wims_session/getfile/click/$ins_filename |
|
- | 184 | ||
- | 185 | !set imgsrc=$wims_ref_name?session=$session&cmd=getfile&special_parm=$sesdir1/$ins_filename |
|
- | 186 | !endif |
|
172 | !endif |
187 | !endif |
173 | !else |
188 | !else |
174 | data=!append item $click_x,$click_y to $data |
189 | data=!append item $click_x,$click_y to $data |
175 | !if $type iswordof 1 |
190 | !if $type iswordof 1 |
176 | dessin=!append item $click_x,$click_y,10,black to $dessin |
191 | dessin=!append item $click_x,$click_y,10,black to $dessin |
177 | !endif |
192 | !endif |
178 | !if $type iswordof 2 |
193 | !if $type iswordof 2 |
179 | !insdraw $dessin |
194 | !insdraw $dessin |
180 | !set imgsrc=$ins_filename |
195 | !set imgsrc=$ins_filename |
181 | !endif |
196 | !endif |
182 | - | ||
183 | - | ||
184 | !reset legend |
197 | !reset legend |
185 | ext=1 |
198 | ext=1 |
186 | !endif ext <=1 |
199 | !endif ext <=1 |
187 | !else legend |
200 | !else legend |
188 | !if $legend=$empty and $begin!=1 |
201 | !if $legend=$empty and $begin!=1 |
189 | test=nolegend |
202 | test=nolegend |
190 | !endif |
203 | !endif |
191 | !if ($click_x=0 and $click_y=0) and $begin!=1 |
204 | !if ($click_x=0 and $click_y=0) and $begin!=1 |
192 | test=noclick |
205 | test=noclick |
193 | !endif |
206 | !endif |
194 | !endif legend |
207 | !endif legend |
195 | !endif |
208 | !endif cmd=reply |
- | 209 | ||
196 | !if $step >= $limit |
210 | !if $step >= $limit |
197 | end=1 |
211 | end=1 |
198 | !endif |
212 | !endif |
199 | 213 | ||
200 | :end |
214 | :end |
201 | 215 | ||
202 | !if $end!=0 and $end!=$empty |
216 | !if $end!=0 and $end!=$empty |
203 | name_title=!line 1 of $(name_description$end) |
217 | name_title=!line 1 of $(name_description$end) |