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)