Subversion Repositories wimsdev

Rev

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

Rev 12616 Rev 12995
Line 35... Line 35...
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 $missingkey!=$empty
 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
48 
    cname=!item $(keyposition[1]) of $data
 48 
    cname=!item $(keyposition[1]) of $data
49 
    sup=!item $(keyposition[2]) of $data
 49 
    sup=!item $(keyposition[2]) of $data
- 
 
 50 
    !if $(keyposition[3])!=0
50 
    pass=!item $(keyposition[3]) of $data
 51 
      pass=!item $(keyposition[3]) of $data
- 
 
 52 
    !endif
51 
    pass2=$pass
 53 
    pass2=$pass
52 
    !reset passs,passs2
 54 
    !reset passs,passs2
- 
 
 55 
    !if $(keyposition[4])!=0
53 
    sechost=!item $(keyposition[4]) of $data
 56 
      sechost=!item $(keyposition[4]) of $data
- 
 
 57 
    !endif
- 
 
 58 
    !if $(keyposition[5])!=0
54 
    cadd_limit=!item $(keyposition[5]) of $data
 59 
      cadd_limit=!item $(keyposition[5]) of $data
55 
    !bound cadd_limit between 0 and $class_limit default $class_limit
 60 
      !bound cadd_limit between 0 and $class_limit default $class_limit
- 
 
 61 
    !else
- 
 
 62 
      cadd_limit=$class_limit
- 
 
 63 
    !endif
56 
    !readproc adm/gateway/addclass $sup,$cname
 64 
    !readproc adm/gateway/addclass $sup,$cname
57 
    !if $error!=$empty
 65 
    !if $error!=$empty
58 
      listerror=!append line $classk,$error to $listerror
 66 
      listerror=!append line $classk,$error to $listerror
59 
    !endif
 67 
    !endif
60 
    !reset error
 68 
    !reset error