Subversion Repositories wimsdev

Rev

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 test_ext and $list_curve
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)