Subversion Repositories wimsdev

Rev

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

Rev 7952 Rev 8045
Line 173... Line 173...
173 
     !endif
 173 
     !endif
174 
     !if $type iswordof 1 2
 174 
     !if $type iswordof 1 2
175 
      !increase ext
 175 
      !increase ext
176 
        !if $type iswordof 2
 176 
        !if $type iswordof 2
177 
    dessin_p=!append line circle $click_x,$click_y,5,red to $dessin_p
 177 
    dessin_p=!append line circle $click_x,$click_y,5,red to $dessin_p
178 
    !set insdraw_filebase=!append word $wims_home/sessions/$wims_session/$sesdir to $insdraw_filebase
 178 
    !set insdraw_filebase=!append item $wims_home/sessions/$wims_session/$sesdir to $insdraw_filebase
179 
       !set insdraw_filebase=!listuniq $insdraw_filebase
 179 
    !set insdraw_filebase=!listuniq $insdraw_filebase
- 
 
 180 
    !set insdraw_filebase=!items2words $insdraw_filebase
180 
      !insdraw copy 0,0,-1,-1,-1,-1,$wims_deposit\
 181 
    !insdraw copy 0,0,-1,-1,-1,-1,$wims_deposit\
181 
      $dessin\
 182 
      $dessin\
182 
      $dessin_p
 183 
      $dessin_p
183 
      !sh cd $wims_home/\
 184 
      !sh cd $wims_home/\
184 
     cp s2/$wims_session/$ins_filename sessions/$wims_session/getfile/click/$ins_filename
 185 
     cp s2/$wims_session/$ins_filename sessions/$wims_session/getfile/click/$ins_filename
185 
 !set imgsrc=$wims_ref_name?session=$session&cmd=getfile&special_parm=$sesdir1/$ins_filename
 186 
 !set imgsrc=$wims_ref_name?session=$session&cmd=getfile&special_parm=$sesdir1/$ins_filename