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