Subversion Repositories wimsdev

Rev

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

Rev 5426 Rev 5427
Line 24... Line 24...
24 
   t_=!defof wims_user\
 24 
   t_=!defof wims_user\
25 
wims_firstname\
 25 
wims_firstname\
26 
wims_lastname in wimshome/sessions/$s_/var.stat
 26 
wims_lastname in wimshome/sessions/$s_/var.stat
27 
   !distribute line $t_ into t1_,t2_,t3_
 27 
   !distribute line $t_ into t1_,t2_,t3_
28 
   !if $t1_!=supervisor
 28 
   !if $t1_!=supervisor
- 
 
 29 
    !if $t1_ notitemof $wims_connectedlogin
29 
    wims_whoconnect=!append line $t1_,$t2_,$t3_,$s_ to $wims_whoconnect
 30 
     wims_whoconnect=!append line $t1_,$t2_,$t3_,$s_ to $wims_whoconnect
- 
 
 31 
     wims_connectedlogin=!append item $t1_ to $wims_connectedlogin
- 
 
 32 
    !else
- 
 
 33 
     pos_=!positionof item $t1_ in $wims_connectedlogin
- 
 
 34 
     tmp_=!append item $s_ to $(wims_whoconnect[$pos_;])
- 
 
 35 
     wims_whoconnect=!replace line number $pos_ by $tmp_ in $wims_whoconnect
- 
 
 36 
    !endif
30 
   !endif
 37 
   !endif
31 
  !next s_
 38 
  !next s_
32 
  !writefile wimshome/tmp/whoconnect/$file_ $wims_whoconnect
 39 
  !writefile wimshome/tmp/whoconnect/$file_ $wims_whoconnect
33 
 !else
 40 
 !else
34 
  wims_whoconnect=!record 0 of wimshome/tmp/whoconnect/$file_
 41 
  wims_whoconnect=!record 0 of wimshome/tmp/whoconnect/$file_
- 
 
 42 
  wims_connectedlogin=!column 1 of $wims_whoconnect
35 
 !endif
 43 
 !endif
36 
 wims_connectedlogin=!column 1 of $wims_whoconnect
 - 
 
37 
 wims_numpartconnected=!linecnt $wims_whoconnect
 44 
 wims_numpartconnected=!linecnt $wims_whoconnect
38 
 !setdef user_connected=$wims_session in wimshome/tmp/whoconnect/sup$file_
 45 
 !setdef user_connected=$wims_session in wimshome/tmp/whoconnect/sup$file_
39 
!else
 46 
!else
40 
 wims_supervisorconnected=!defof user_connected in wimshome/tmp/whoconnect/sup$file_
 47 
 wims_supervisorconnected=!defof user_connected in wimshome/tmp/whoconnect/sup$file_
41 
 !if $wims_supervisorconnected!=$empty
 48 
 !if $wims_supervisorconnected!=$empty