Subversion Repositories wimsdev

!if $wims_superclass=$empty or $wims_user!=supervisor or $wims_read_parm=$empty
  !exit
!endif

!distribute item $wims_read_parm into ac_prog, ac_class
!if $ac_prog= or $ac_class= or \
  $wims_class/ notin $wims_superclass/$ac_prog/ $wims_superclass/$ac_class/
  !exit
!endif
ac_Level=$wims_superclass
ac_Level_=wimshome/log/classes/$ac_Level
ac_course=!translate internal / to , in $ac_prog
ac_course=!item -1 of $ac_course
userdir=wimshome/log/classes/$wims_superclass/.users
course_sup=!defof class_Supervisor in $ac_Level_/$ac_prog/.def
suptest=
!if $course_sup!=supervisor and $course_sup!=$empty
  suptest=!defof user_exists in wimshome/log/classes/$wims_superclass/.users/$course_sup
!endif
!if $suptest!=yes
  course_sup=supervisor
!endif
sup_=$course_sup
course_sup=

ac_tt=
test=!defof class_defined in $ac_Level_/$ac_class/$ac_course/.def
ac_style=!defof class_progstyle in $ac_Level_/$ac_prog/.def
!if $test=yes
  test=!defof class_ocourses in $ac_Level_/$ac_class/.def
  !if $ac_class/$ac_course notin $test and mandatory notwordof $ac_style
    !for ac_tt in b,c,d,e,f,g,h,i,j
      test=!defof class_defined in $ac_Level_/$ac_class/$ac_course$ac_tt/.def
      !if $test!=yes
        ac_course=$ac_course$ac_tt
        !goto recourse
      !endif
    !next ac_tt
     error=course_full
    !exit
  !endif
  error=addcourse_already
  !exit
!endif
:recourse

1=!defof user_exists in $userdir/$sup_
!if $1!=yes
  s_=supervisor
!else
  1=!defof user_supervisable in $userdir/$sup_
  !if $1!=yes
    name=$sup_
    error=not_supervisable
    !exit
  !endif
  slist=!defof user_supervise in $userdir/$sup_
  slist=!listunion $slist and $ac_Level/$ac_class/$ac_course
  !setdef !set user_supervise=$slist in $userdir/$sup_
!endif

!readdef $ac_Level_/$ac_prog/.def
cadd_dc=!defof class_description in $ac_Level_/$ac_class/.def
cadd_dc=!word 1 of $cadd_dc
!for t in supervisor Supervisor, email, password, expiration, level
  cadd_$t=$(class_$t)
!next t
cadd_secure=$sechost
!default cadd_secure=$class_secure
cadd_description=$cadd_dc-$class_description
!if $ac_tt!=$empty
  cadd_description=$cadd_description-$ac_tt
!endif
class_password=
cadd_password=
cadd_superclass=$wims_superclass
cadd_parent=$wims_superclass/$ac_class
cadd_type=1
cadd_typename=course
!readdef $ac_Level_/$ac_prog/supervisor
!for t in lastname, firstname, password, email
  sadd_$t=$(user_$t)
!next t

!if $passs!=$empty
  c=!char 1 of $passs
  !if $c=*
    passs=!text select */$char_passwd in $passs
  !else
    passs=!text select $char_passwd in $passs
  !endif
    passlen=!charcnt $passs
  !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2
    error=bad_password
    !exit
  !endif
  sadd_password=$passs
!endif

!read adm/class/addclass $ac_Level/$ac_class/$ac_course

!setdef n_part=$ac_Level/$ac_class\
n_sup=$ac_Level/$ac_class,$ac_Level/$ac_prog in $ac_Level_/$ac_class/$ac_course/neighbors
ac_n=!defof n_part\
n_sup in $ac_Level_/$ac_class/neighbors
!distribute lines $ac_n into n_part, n_sup
n_part=!listunion $n_part and $ac_Level/$ac_class/$ac_course
n_sup =!listunion $n_sup  and $ac_Level/$ac_class/$ac_course
!setdef n_part=$n_part\
n_sup=$n_sup in $ac_Level_/$ac_class/neighbors

n_sup=!defof n_sup in $ac_Level_/$ac_prog/neighbors
n_sup=!listunion $n_sup and $ac_Level/$ac_class/$ac_course
!setdef n_sup=$n_sup in $ac_Level_/$ac_prog/neighbors
!read adm/class/addshare $ac_Level/$ac_prog, $ac_Level/$ac_class/$ac_course\
  exo,sheet,exam,doc,vote,livret,seq

ac_style=!defof class_progstyle in $ac_Level_/$ac_prog/.def
!if mandatory iswordof $ac_style
  ocourses=!defof class_ocourses in $ac_Level_/$ac_class/.def
  ocourses=!listunion $ocourses and $ac_class/$ac_course
  !setdef !set class_ocourses=$ocourses in $ac_Level_/$ac_class/.def
  !sh cd $wims_home/log/classes/$ac_Level/$ac_class/$ac_course\
  rm -f .userlist\
  ln -s ../.userlist .
!endif