Subversion Repositories wimsdev

Rev

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

Rev 6108 Rev 10714
Line 22... Line 22...
22 
:next
 22 
:next
23 
new=$wims_sesdir/upload/class
 23 
new=$wims_sesdir/upload/class
24 
old=log/classes/$wims_class
 24 
old=log/classes/$wims_class
25 
v=!record 0 of wimshome/$new/version
 25 
v=!record 0 of wimshome/$new/version
26 
v=!trim $v
 26 
v=!trim $v
- 
 
 27 
!!version <=4 for classes
27 
!if $v=$empty or $v notwordof 4
 28 
!if $v=$empty or $v<4
28 
 error=bad_file
 29 
 error=bad_file
29 
 !exit
 30 
 !exit
30 
!endif
 31 
!endif
31 
 
 32 
 
32 
!for type in new,old
 33 
!for type in new,old
Line 43... Line 44...
43 
!for rec in $reclist
 44 
!for rec in $reclist
44 
 !if $(new_$(rec)cnt)>0
 45 
 !if $(new_$(rec)cnt)>0
45 
  gotlist=!append item $rec to $gotlist
 46 
  gotlist=!append item $rec to $gotlist
46 
 !endif
 47 
 !endif
47 
!next rec
 48 
!next rec
48 
 
 - 
 
49 
 
 49 
 
50 
!if $gotlist=$empty
 50 
!if $gotlist=$empty
51 
 error=empty_file
 51 
 error=empty_file
52 
 !exit
 52 
 !exit
53 
!endif
 53 
!endif