Subversion Repositories wimsdev

Rev

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

Rev 8408 Rev 8409
Line 13... Line 13...
13
 !set ppm=!item 3 to -1 of $parms
13
 !set ppm=!item 3 to -1 of $parms
14
!endif
14
!endif
15
 
15
 
16
!set ppm=!replace internal $    $ by $\
16
!set ppm=!replace internal $    $ by $\
17
$ in $ppm
17
$ in $ppm
18
!if copy isin $ppm or imagefill isin $ppm or bgimage isin $ppm
-
 
-
 
18
 
19
  !set line_cnt=!linecnt $ppm
19
!read canvasimagedir.phtml $ppm
20
  !for l_=1 to $line_cnt
-
 
21
    !set line=!line $l_ of $ppm
20
!set ppm=$canvas_ppm
22
    !if copy isin $line or imagefill isin $line or bgimage isin $line
-
 
23
      !set im=!item -1 of $line
-
 
24
      !if bgimage isin $line
-
 
25
        !set im=!word -1 of $im
-
 
26
        !set line=bgimage \filedir/$im
-
 
27
      !else
-
 
28
         line=$(line[1..-2]),\filedir/$im
-
 
29
      !endif
-
 
30
      !if / notin $im
-
 
31
        !set ppm=!replace line number $l_ by $line in $ppm
-
 
32
      !endif
-
 
33
    !endif
-
 
34
  !next
-
 
35
!endif
-
 
36
 
21
 
37
!for pm in ppm, sx, sy
22
!for pm in ppm, sx, sy
38
 !set $pm=!slashsubst $($pm)
23
 !set $pm=!slashsubst $($pm)
39
!next pp
24
!next pp
40
 
25