Subversion Repositories wimsdev

Rev

Rev 8320 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
8320 guerimand 1 
!read adm/class/userdef classes,$wims_class,$getuser
2 
!defread $userdef
23 reyssat 3 
 
4 
!if $transfertype=show
12466 bpr 5 
  ttype=show
6 
  transfertype=
7 
  !read adm/gateway/transfer $getuser test
8 
  !exit
23 reyssat 9 
!endif
10 
 
11 
!if $transfertype iswordof merge replace
12466 bpr 12 
  !read adm/gateway/transfer $getuser $transfertype $transferclass
23 reyssat 13 
!endif
14 
 
15 
transfertype=
16 
!if $error=$empty
12466 bpr 17 
  !read adm/gateway/transfer $getuser test
23 reyssat 18 
!else
19 
 !exit
20 
!endif
21 
 
22 
!if $transfer_test<1
12466 bpr 23 
  job=getuser
24 
  !changeto var.proc.$job
23 reyssat 25 
!endif