Subversion Repositories wimsdev

Rev

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

Rev 12995 Rev 14335
Line 30... Line 30...
30 
  keydon=!record 1 of $file
 30 
  keydon=!record 1 of $file
31 
  missingkey=$empty
 31 
  missingkey=$empty
32 
  keyposition=$empty
 32 
  keyposition=$empty
33 
  !for k in $keylist
 33 
  !for k in $keylist
34 
    p=!positionof item $k in $keydon
 34 
    p=!positionof item $k in $keydon
35 
  	!if $p=$empty
 35 
    !if $p=$empty
36 
  		missingkey=!append item $k to $missingkey
 36 
      missingkey=!append item $k to $missingkey
37 
  	!endif
 37 
    !endif
38 
  	keyposition=!append item $p to $keyposition
 38 
    keyposition=!append item $p to $keyposition
39 
  !next k
 39 
  !next k
40 
  !if cname isitemof $missingkey or login isitemof $missingkey
 40 
  !if cname isitemof $missingkey or login isitemof $missingkey
41 
  	error=missing_key
 41 
    error=missing_key
42 
  	!exit
 42 
    !exit
43 
  !endif
 43 
  !endif
44 
  !! ----- process for each class
 44 
  !! ----- process for each class
45 
  listerror=$empty
 45 
  listerror=$empty
46 
  !for classk=2 to $nbdata
 46 
  !for classk=2 to $nbdata
47 
    data=!record $classk of $file
 47 
    data=!record $classk of $file
Line 68... Line 68...
68 
    !reset error
 68 
    !reset error
69 
    !read adm/gateway/mkindex
 69 
    !read adm/gateway/mkindex
70 
  !next classk
 70 
  !next classk
71 
  !if $listerror!=$empty
 71 
  !if $listerror!=$empty
72 
    !! we can made more explicit error message (TODO)
 72 
    !! we can made more explicit error message (TODO)
73 
 	  error=baddata
 73 
    error=baddata
74 
  !endif
 74 
  !endif
75 
  job=level
 75 
  job=level
76 
  !reset save
 76 
  !reset save
77 
  !changeto jobs/$job.proc
 77 
  !changeto jobs/$job.proc
78 
!endif
 78 
!endif