Subversion Repositories wimsdev

 code=!randint 10^8,10^9

  code=!randint 10^8,10^9

 sup_email=!defof class_email in wimshome/log/classes/$wims_class/.def

  sup_email=!defof class_email in wimshome/log/classes/$wims_class/.def

 !if $sup_email=$empty

  !if $sup_email=$empty

  auth=no

    auth=no

 !else

  !else

  !read scripts/mail.phtml

    !read scripts/mail.phtml

 !endif

  !endif

 repcode=!word 1 of $repcode

  repcode=!word 1 of $repcode

 !if $repcode!=$code

  !if $repcode!=$code

  auth=no

    auth=no

 !else

  !else

  auth=yes

    auth=yes

 !endif

  !endif

 !writefile wimshome/$wims_sesdir/auth.supervisor $auth

  !writefile wimshome/$wims_sesdir/auth.supervisor $auth