Subversion Repositories wimsdev

Rev

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

Rev 12413 Rev 12414
Line 1... Line 1...
1 
!bound restore within replace,merge default merge
 1 
!bound restore within replace,merge default merge
2 
 
 2 
 
3 
v=!record 0 of wimshome/$wims_sesdir/upload/class/version
 3 
v=!record 0 of wimshome/$wims_sesdir/upload/class/version
4 
v=!word 1 of $v
 4 
v=!word 1 of $v
5 
!if $v=$empty or $v<4
 5 
!if $v=$empty or $v<4
6 
 error=no_upload
 6 
  error=no_upload
7 
 !exit
 7 
  !exit
8 
!endif
 8 
!endif
9 
serial=!record 0 of wimshome/$wims_sesdir/upload/class/serial
 9 
serial=!record 0 of wimshome/$wims_sesdir/upload/class/serial
10 
serial=!word 1 of $serial
 10 
serial=!word 1 of $serial
11 
!readdef wimshome/log/classes/$wims_class/neighbors
 11 
!readdef wimshome/log/classes/$wims_class/neighbors
12 
 
 12 
 
13 
sharing=
 13 
sharing=
14 
!for r in $sharelist
 14 
!for r in $sharelist
15 
 !if $(sharing_$r)!=$empty
 15 
  !if $(sharing_$r)!=$empty
16 
  sharing=!append item $r to $sharing
 16 
    sharing=!append item $r to $sharing
17 
 !endif
 17 
  !endif
18 
!endif
 18 
!endif
19 
sharing=!append item log,neighbor to $sharing
 19 
sharing=!append item log,neighbor to $sharing
20 
 
 20 
 
21 
safe=!listcomplement def,sup in $reclist
 21 
safe=!listcomplement def,sup in $reclist
22 
selection=!replace item all by $safe in $selection
 22 
selection=!replace item all by $safe in $selection
23 
sel=!listintersect $selection and $reclist
 23 
sel=!listintersect $selection and $reclist
24 
sel=!listcomplement $sharing in $sel
 24 
sel=!listcomplement $sharing in $sel
25 
!if $sel=$empty
 25 
!if $sel=$empty
26 
 no_selection=yes
 26 
  no_selection=yes
27 
 !read arch/upload.proc
 27 
  !read arch/upload.proc
28 
 job2=upload
 28 
  job2=upload
29 
 !exit
 29 
  !exit
30 
!endif
 30 
!endif
31 
selw=!items2words $sel
 31 
selw=!items2words $sel
32 
dictionary=$module_dir/arch/recdep
 32 
dictionary=$module_dir/arch/recdep
33 
dep=!exec translator $selw
 33 
dep=!exec translator $selw
34 
copy=!words2items $selw $dep
 34 
copy=!words2items $selw $dep