Subversion Repositories wimsdev

!!define also in class/initclass
!set auth_method_list=ldap,cas,php
!if $class_cas_auth=$empty
    !set m_init_parm=!replace internal & by $ $ in $module_init_parm
    !set class_cas_auth=!getopt class_auth in $m_init_parm
!endif
!default auth_method=$(wims_authidp[1;])

!set module_config=adm/class/config
!set module_special=adm/modtool adm/quicktool adm/latex2wims
!set isexample=!charcnt $wims_class
!if $isexample=4
  !set isexample=yes
  !if $wims_user=anonymous
    !goto pref
  !endif
!endif

!if $module notwordof $module_special
  !if $wims_user!=$empty
    !if ($wims_user!=supervisor \
     or ($wims_class isitemof $wims_supervise and $module=$module_config))
       !read themes/_procs/userprop.proc wims_user_links
    !endif
    !if ($auth_method notitemof $auth_method_list and $wims_user!=supervisor) \
    or ($module=$module_config and $wims_user=supervisor \
      and ($wims_class isitemof $wims_supervise or $wims_class=$wims_superclass\
      or $wims_superclass=$empty ))
      !set wims_user_links=!append line passwd,1,module=adm/class/passwd&job=user\
to $wims_user_links
   !endif
 !endif

:pref
  !! "Display prefs"
  !set wims_user_links=!append line pref,1,module=adm/light&phtml=useropts.phtml.$lang\
to $wims_user_links
!endif
!if $module iswordof adm/modtool
  !set wims_user_links=account,1,module=adm/modtool&cmd=reply&jobreq=prop
!endif

:end
!set wims_user_links_cnt=!linecnt $wims_user_links

!! FIXME wims_realuser or $wims_user
!if $wims_superclass!=$wims_class and $wims_realuser=supervisor and $wims_user=supervisor
  !set wims_which_user=!getdef user_firstname user_lastname in wimshome/log/classes/$wims_superclass/supervisor
!endif
!if $wims_which_user issametext $empty
  !set wims_which_user=$wims_firstname $wims_lastname
!endif
!if $wims_which_user issametext $empty
  !set wims_which_user=$wims_devfirstname $wims_devlastname
!endif