Subversion Repositories wimsdev

!read scripts/check.class

!if $error!=$empty

 !exit

!endif

quser=!translate internal ./;,?* to $         $ in $quser

!if $ $ isin $quser

 quser=

!endif

!if $quser=$empty

 :baduser

 error=bad user

 !exit

!endif

!if $quser=supervisor

 deffile=supervisor

!else

 deffile=.users/$quser

!endif

class_superclass=!defof class_superclass in $classdeffile

!if $class_superclass=

 userdeffile=wimshome/log/classes/$qclass/$deffile

 test=!defof user_exists in $userdeffile

 !if $test!=yes

   !if $job!=getclassesuser

    !goto baduser

   !endif

 !else

   !if $job=getclassesuser

    listclassesuser=!append item $qclass to $listclassesuser

   !endif

  !endif

 !exit

!else

 # on regarde si user existe dans la superclasse

 userdeffile=wimshome/log/classes/$class_superclass/$deffile

 test=!defof user_exists in $userdeffile

 !if $test!=yes

   error=user not present in superclass.

   !exit

 !endif

 test=!defof user_participate in $userdeffile

 ### contient les classes auxquelles est inscrit l'étudiant et les cours non obligatoires

 test=!items2words $test

 !if $qclass iswordof $test

    !exit

 !endif

 class_typename=!defof class_typename in $classdeffile

 !if $class_typename iswordof class and $qclass notwordof $test

 	error=Sorry, this user does not participates to this subclass.

 	!exit

 !endif

 !if $class_typename iswordof program and (mandatory notwordof $class_progstyles or $class_progstyles=$empty)

 ###si le programme n'est pas obligatoire, user_participate contient ce qu'il faut

     qlist=!record 0 of wimshome/log/classes/$qclass/courses

     qcourses=!linecnt $qlist

     !for q_c=1 to $qcourses

      testc=!line $q_c of $qlist

      test1=!replace internal / by , in $(testc[1])

      ###test1 doit avoir trois items dans le cas d'un établissement

      !if $class_superclass/$(test1[1])/$(test1[2]) iswordof $test

        qclass=$class_superclass/$(testc[1])

        #### il devrait n'y en avoir qu'un correspondant au programme ?

        !if $job=getclassesuser

           listclassesuser=!append item $qclass to $listclassesuser

        !endif

        !exit

      !endif

     !next

 !endif