Rev 10469 | Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | reyssat | 1 | # Add a level under the current superclass. |
| 2 | # Calling parameter: supervisor_account,title,... |
||
| 3 | |||
| 4 | !if $wims_superclass=$empty or $wims_user!=supervisor or \ |
||
| 5 | $wims_class!=$wims_superclass |
||
| 6 | !exit |
||
| 7 | !endif |
||
| 8 | |||
| 9 | s_=!item 1 of $wims_read_parm |
||
| 10 | titles=!item 2 to -1 of $wims_read_parm |
||
| 11 | userdir=wimshome/log/classes/$wims_superclass/.users |
||
| 12 | L=!record 0 of wimshome/log/classes/$wims_superclass/levels |
||
| 13 | L=!column 1 of $L |
||
| 14 | A=!values x for x=1 to 99 |
||
| 15 | N=!listcomplement $L in $A |
||
| 16 | newlevels=!sort numeric items $N |
||
| 17 | avcnt=!itemcnt $newlevels |
||
| 18 | newcnt=!itemcnt $titles |
||
| 19 | |||
| 20 | !if $newlevels=$empty or $avcnt<$newcnt |
||
| 21 | error=level_full |
||
| 22 | !exit |
||
| 23 | !endif |
||
| 24 | |||
| 25 | !if $passs!=$empty |
||
| 26 | passs=!text select $char_passwd in $passs |
||
| 27 | passlen=!charcnt $passs |
||
| 28 | !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2 |
||
| 29 | error=bad_password |
||
| 30 | !exit |
||
| 31 | !endif |
||
| 32 | !else |
||
| 33 | passs=!defof user_password in wimshome/log/classes/$wims_superclass/supervisor |
||
| 34 | !endif |
||
| 35 | |||
| 36 | 1=!defof user_exists in $userdir/$s_ |
||
| 37 | ac_su_list= |
||
| 38 | sup_save=$s_ |
||
| 39 | !if $1!=yes |
||
| 40 | s_=supervisor |
||
| 41 | ac_su_level= |
||
| 42 | !else |
||
| 43 | 1=!defof user_supervisable in $userdir/$s_ |
||
| 44 | !if $1!=yes |
||
| 45 | name=$s_ |
||
| 46 | error=not_supervisable |
||
| 47 | !exit |
||
| 48 | !endif |
||
| 49 | ac_su_level=yes |
||
| 50 | !endif |
||
| 51 | !read adm/class/userdef classes,$wims_superclass,$s_ |
||
| 52 | cadd_Supervisor=$s_ |
||
| 53 | sadd_firstname=!defof user_firstname in $userdef |
||
| 54 | sadd_lastname=!defof user_lastname in $userdef |
||
| 55 | sadd_email=!defof user_email in $userdef |
||
| 56 | cadd_email=$sadd_email |
||
| 57 | cadd_level=$alevel |
||
| 58 | cadd_password= |
||
| 59 | sadd_password=$passs |
||
| 60 | cadd_secure=$sechost |
||
| 61 | cadd_superclass=$wims_superclass |
||
| 62 | cadd_parent=$wims_superclass |
||
| 63 | cadd_type=3 |
||
| 64 | cadd_typename=level |
||
| 65 | |||
| 66 | !for i=1 to $newcnt |
||
| 67 | cadd_description=!item $i of $titles |
||
| 68 | newlevel=!item $i of $newlevels |
||
| 69 | ac_su_list=!listunion $ac_su_list and $wims_superclass/$newlevel |
||
| 70 | !read adm/class/addclass $wims_superclass/$newlevel |
||
| 71 | !next i |
||
| 72 | |||
| 73 | !if $ac_su_level=yes |
||
| 74 | ac_su_list2=!defof user_supervise in $userdir/$sup_save |
||
| 75 | ac_su_list=!listunion $ac_su_list and $ac_su_list2 |
||
| 76 | !setdef !set user_supervise=$ac_su_list in $userdir/$sup_save |
||
| 77 | !endif |
||
| 78 |