Subversion Repositories wimsdev

Rev

Rev 12981 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12981 Rev 14336
Line 32... Line 32...
32
!endif
32
!endif
33
 
33
 
34
1=!defof user_exists in $userdir/$s_
34
1=!defof user_exists in $userdir/$s_
35
2=!defof class_defined in $classdir/$wims_read_parm/.def
35
2=!defof class_defined in $classdir/$wims_read_parm/.def
36
!if $2!=yes
36
!if $2!=yes
37
 error=mod_not_exist
37
  error=mod_not_exist
38
 !exit
38
  !exit
39
!endif
39
!endif
40
!if $1!=yes
40
!if $1!=yes
41
 s_=supervisor
41
  s_=supervisor
42
!else
42
!else
43
 1=!defof user_supervisable in $userdir/$s_
43
  1=!defof user_supervisable in $userdir/$s_
44
 !if $1!=yes
44
  !if $1!=yes
45
  name=$s_
45
    name=$s_
46
  error=not_supervisable
46
    error=not_supervisable
47
  !exit
47
    !exit
48
 !endif
48
  !endif
49
!endif
49
!endif
50
!read adm/class/userdef classes,$wims_superclass,$s_
50
!read adm/class/userdef classes,$wims_superclass,$s_
51
cadd_Supervisor=$s_
51
cadd_Supervisor=$s_
52
tmp=!defof user_firstname,user_lastname,user_email in $userdef
52
tmp=!defof user_firstname,user_lastname,user_email in $userdef
53
!distribute item $tmp into sadd_firstname,sadd_lastname,sadd_email,sadd_password
53
!distribute item $tmp into sadd_firstname,sadd_lastname,sadd_email,sadd_password
Line 56... Line 56...
56
sadd_password=$passs
56
sadd_password=$passs
57
modclass_slist=!listunion firstname,lastname,email and $modclass_slist
57
modclass_slist=!listunion firstname,lastname,email and $modclass_slist
58
 
58
 
59
!read adm/gateway/delsup $wims_read_parm
59
!read adm/gateway/delsup $wims_read_parm
60
!if $s_!=supervisor
60
!if $s_!=supervisor
61
 suplist=!defof user_supervise in $userdir/$s_
61
  suplist=!defof user_supervise in $userdir/$s_
62
 suplist=!listunion $suplist and $wims_superclass/$wims_read_parm
62
  suplist=!listunion $suplist and $wims_superclass/$wims_read_parm
63
 !setdef !set user_supervise=$suplist in $userdir/$s_
63
  !setdef !set user_supervise=$suplist in $userdir/$s_
64
!endif
64
!endif
65
 
65
 
66
!read adm/class/modclass $wims_superclass/$wims_read_parm
66
!read adm/class/modclass $wims_superclass/$wims_read_parm
67
 
67
 
68
!if $error!=$empty
68
!if $error!=$empty
69
 !exit
69
  !exit
70
!endif
70
!endif
71
 
-