Subversion Repositories wimsdev

Rev

Rev 14976 | Rev 15082 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14976 Rev 15047
Line 51... Line 51...
51 
    name_title=$name_tchatwith $username
 51 
    name_title=$name_tchatwith $username
52 
  !endif
 52 
  !endif
53 
!else
 53 
!else
54 
  username=Participant
 54 
  username=Participant
55 
  !if . isin $user
 55 
  !if . isin $user
- 
 
 56 
    n=!text select 0123456789 in $user
56 
    name_title=!nosubst $(livingname_$n)
 57 
    name_title=!nosubst $(livingname_$n)
57 
  !else
 58 
  !else
58 
    name_title=$name_ownliving
 59 
    name_title=$name_ownliving
59 
  !endif
 60 
  !endif
60 
  otherliving=!listcomplement $user in $livingfile,$wims_user
 61 
  otherliving=!listcomplement $user in $livingfile,$wims_user
Line 73... Line 74...
73 
!if . isin $user
 74 
!if . isin $user
74 
  living=!char -1 of $user
 75 
  living=!char -1 of $user
75 
  !if $(livingusers_$living)!=all
 76 
  !if $(livingusers_$living)!=all
76 
    listnameusers=$empty
 77 
    listnameusers=$empty
77 
    !for u in $(livingusers_$living)
 78 
    !for u in $(livingusers_$living)
- 
 
 79 
      po=!positionof item $u in $ulist
78 
      !if $u!=supervisor and $u!=$wims_user and $po!=$empty
 80 
      !if $u!=supervisor and $u!=$wims_user and $po!=$empty
79 
        po=!positionof item $u in $ulist
 - 
 
80 
        listnameusers=!append item $(nlist[$po]) to $listnameusers
 81 
        listnameusers=!append item $(nlist[$po]) to $listnameusers
81 
      !endif
 82 
      !endif
82 
    !next u
 83 
    !next u
83 
    !if $listnameusers!=$empty
 84 
    !if $listnameusers!=$empty
84 
      listnameusers=, $name_yourself $name_and $listnameusers
 85 
      listnameusers=, $name_yourself $name_and $listnameusers