Subversion Repositories wimsdev

!if robot isin $session or _ isin $session

  !exit

!endif

!read adm/class/classlang names.phtml

!default module_title2=$module_title

listlim=100

wims_prefix=class user tmp

wims_module_log=$type $keyword

wims_helper=chapter=3

wims_form_method=post

wims_ref_otherlangs=yes

!default class_bgcolor=$wims_bgcolor

!default class_bgimg=$wims_bgimg

!default class_css=$wims_css

!if $class!=$empty

  ## output auth_method_list, aut_idp_method_list, auth_method, aut_idp_method

  !read adm/class/initclass $class,auth

!endif

!!useful ! if $class=$empty

superclass=!text remove . in $superclass

!if $wims_superclass!=$empty

  superclass=$wims_superclass

!endif

!default superclass2=$superclass

!read tabletheme

!if $auth_method=$empty and $class!=$empty

  !bound type within supervisor,participant,example,\

    authsupervisor,authparticipant,forgetpwd default example

!else

  !bound type within supervisor,participant,example,\

    authsupervisor,authparticipant default example

!endif

!if $type=example

  superclass=

!endif

!if $type=forgetpwd

  !changeto forgetpwd.proc

!endif

!if $superclass=$empty

  indf=wimshome/log/classes/.index

  limited=yes

!else

  indf=wimshome/log/classes/$superclass/.subclasses

  keyword=

!endif

keyword=!items2words $keyword

keyword=!trim $keyword

kw=!words2items $keyword

kw=!deaccent $kw

kw=!tolower $kw

ccnt=!recordcnt $indf

!if $wims_class!=$empty

  !read var.direct

  !if $error!=$empty

    !exit

  !endif

!endif

clcnt=0

encnt=0

lacnt=0

excnt=0

listla=

!if $type=example

  !for i=1 to $ccnt

    l=!record $i of $indf

    c=!item 1 of $l

    !if NaN notin $[$c] and $c<10000

      ltest=!defof class_lang in wimshome/log/classes/$c/.def

      !advance excnt

      !if $module_language iswordof $ltest

        laclasses=!append line $l to $laclasses

        !advance lacnt

      !else

        listla=!append item $ltest to $listla

        !if $ltest=en

          enclasses=!append line $l to $enclasses

          !advance encnt

        !endif

      !endif

    !endif

  !next i

  !if $lacnt>0

    clcnt=$lacnt

    classes=$laclasses

  !else

    clcnt=$encnt

    classes=$enclasses

  !endif

  listla=!listuniq $listla

  listla=!replace internal , by </span>, <span class="tt"> in <span class="tt">$listla</span>

  othercnt=$[$excnt-$lacnt]

!endif

!if $type iswordof supervisor participant

  sccnt=0

  !if $wims_class!=$empty

    !defread wimshome/log/classes/$wims_class/.def

    !! n_type is not always good

    !set wims_ariane=!append line n_$type,8, to $wims_ariane

    !default class_type=0

    !set wims_ariane_self=no

    !if $class_type>=2

      !read adm/class/userdef classes,$wims_class,$wims_user

      supervisable=!defof user_supervisable in $userdef

      super_type=!defof class_type in wimshome/log/classes/$wims_superclass/.def

      !ifval $super_type=4

        stype=$[$super_type]

        sp=!translate internal / to , in $superclass2

        splevel=!itemcnt $sp

        sparent=!item 1 to -2 of $sp

        sparent=!translate internal , to / in $sparent

        sparent=!nospace $sparent

        !if $splevel=1

          classes1=!record 0 of wimshome/log/classes/$superclass2/levels

        !endif

        !if $splevel=2

          classes1=!record 0 of wimshome/log/classes/$superclass2/classes

          classes2=!record 0 of wimshome/log/classes/$superclass2/programs

          !!classes1=!append line $classes2 to $classes1

        !endif

        !if $splevel=3

          classes1=!record 0 of wimshome/log/classes/$superclass2/courses

        !endif

        clcnt=!linecnt $classes1

        clcnt_pr=!linecnt $classes2

        classes=

        classes_pr=

        !for i=1 to $clcnt

          l=!line $i of $classes1

          !distribute items $l into code,Sup,name,sup

          classes=!append line $wims_superclass/$code,,,$name to $classes

        !next i

        !for i=1 to $clcnt_pr

          l=!line $i of $classes2

          !distribute items $l into code,Sup,name,sup

          classes_pr=!append line $wims_superclass/$code,,,$name to $classes_pr

        !next i

        !exit

      !endif

    !endif

  !endif

  !for i=1 to $ccnt

    l=!record $i of $indf

    !distribute items $l into code,expire,inst,cl,la,ty

    l1=!deaccent $l

    l1=!tolower $l1

    c1=!text extract 0123456789 in $code

    k=yes

    !for w in $kw

      !if $w notin $l1

        k=no

        !break

      !endif

    !next w

    !!delete condition on language in a superclass

    !if (/ isin $code or $c1>9999) and ($la=$module_language or $class_type!=) and\

      ($code!=$wims_class or ($wims_user!=supervisor and $type=supervisor)) and \

      $k = yes

      !if $ty isin 24

        sclasses=!append line $l to $sclasses

        !advance sccnt

      !else

        classes=!append line $l to $classes

        !advance clcnt

      !endif

    !endif

    !if $limited = yes and $clcnt+$sccnt > $listlim

      overflow=yes

      !break

    !endif

  !next i

  !if $wims_user!=$empty and $wims_supertype iswordof 2 4

    sccnt=0

  !endif

!endif

!if $type iswordof authparticipant authsupervisor

  !reset class_defined

  class=!text remove . in $class

  !defread wimshome/log/classes/$class/.def

  !!#### la seconde condition pour entrer dans la classe en tant que supervisor :

  !!#### le user est supervisor de cette classe, ou wims_realuser est supervisor ou vide (cas de l'administrateur) ou la classe est la classe test

  !if $type=authsupervisor and ($class isitemof $wims_supervise or $wims_realuser=$empty or $wims_realuser=supervisor or /0/ isin $class/)

    !default auth_user=supervisor

  !endif

  !if $save_logincgu!=$empty

    auth_user=$save_logincgu

  !endif

  superclass=!defof class_superclass in wimshome/log/classes/$class/.def

  !default superclass=$class

  !if $class_defined=yes and ($auth_user!=$empty or $auth_method isitemof $auth_method_list)

    !changeto var.auth

  !endif

!endif