Subversion Repositories wimsdev

Rev

Rev 8704 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8704 Rev 9039
Line 5... Line 5...
5 
!set parmtoread=!words2items $parmtoread
 5 
!set parmtoread=!words2items $parmtoread
6 
!set parmtoread=!nonempty items $parmtoread
 6 
!set parmtoread=!nonempty items $parmtoread
7 
!set url=$(parmtoread[1])
 7 
!set url=$(parmtoread[1])
8 
!set parmtoread=$(parmtoread[2..-1])
 8 
!set parmtoread=$(parmtoread[2..-1])
9 
 
 9 
 
10 
!set testw=!replace internal & by $\
 10 
!set testw=!replace internal & by ; in $url
11 
$ in $url
 - 
 
12 
!set testw=!replace internal = by , in $testw
 11 
!set testw=!replace internal = by , in $testw
13 
!for gp in $parmtoread
 12 
!for gp in $parmtoread
14 
  !set testw0=!select $testw where column 1=$gp
 13 
  !set testw0=!select $testw where column 1=$gp
- 
 
 14 
  !set get_$gp=!replace internal ; by , in $(testw0[;2..-1])
15 
  !set get_$gp=!nospace $(testw0[;2..-1])
 15 
  !set get_$gp=!nospace $(get_$gp)
16 
!next
 16 
!next
17 
 
 -