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 
 
 -