!! ------- display
list of user of the living
<div class="field box fullwidth">
<strong>$name_regusers</strong>: $name_teacher
!if $(livingusers_$living)=all
$name_and $(name_all).
!else
$(listnameusers).
!endif
</div>
!if $job2=newmsg
!form reply
<fieldset class="property_fields blockcenter">
<input type="hidden" name="job" value="edit"/>
<div class="field box fullwidth">
<label for="desc">$wims_name_newmsg</label>
!let insmath_rawmath=no
!let wims_backslash_insmath=no
<textarea id="desc" name="desc" rows="6" maxlength="$msg_limit" required>$desc</textarea>
!let insmath_rawmath=yes
!let wims_backslash_insmath=yes
</div>
!if $desc!=$empty
<div class="field box fullwidth">
<strong>$name_Message</strong>: $desc
</div>
!endif
<div class="wimscenter">
<input type="submit" name="save" value="$wims_name_tosave"/>
!set wims_ref_class=wims_button wims_secondary_button
!href module=adm/class/tchat $wims_name_giveup
<input type="submit" name="cf_preview" value="$name_preview" class="wims_secondary_button" />
</div>
</fieldset>
!formend
!else
!let wims_menu_items=!append line newmsg,1,cmd=reply&+job=edit&+job2=newmsg to $wims_menu_items
!endif
!! display
for viewsession
(list for supervisor and warning
for user
) !if . notin $user
!if $wims_user=supervisor
<div class="field box fullwidth">
!if $list_window!=$empty
$name_viewpage
!let nbses=!itemcnt $list_window
!for k=1 to $nbses
!if $(list_window[$k])!=$empty
!set wims_ref_class=wims_button
!set rd=!randint 111111,999999
!href target=wims_$user$k session=$wims_session&+cmd=reply&+module=adm/class/tchat&+job=viewpage&+numberses=$k&+user=$user&+serial=$rd $name_page $k
!endif
!else
!if $userconnected=no
$name_partnotconnected
!else
!if $sharescreen=no
$name_nosharingscreen
!else
$name_nopagetoview
!endif
!endif
!endif
</div>
!endif
!endif
!if $nbmsg>0
<div class="field box fullwidth">
<table border="0">
!let nblastrecord
=!recordcnt wimshome
/log/classes
/$wims_class/tchat
/$user !for k=1 to $nbmsg
<tr><td>
!if $k<=$nblastrecord
!let mem_file=$user
!let mem_rec=-$k
!else
!let mem_file=$(user).old$nbfile
!let mem_rec=-$[$k-$nblastrecord]
!endif
!let data
=!record
$mem_rec of wimshome
/log/classes
/$wims_class/tchat
/$mem_file !let tmp=!line 1 of $data
!let msg=!line 2 to -1 of $data
!let msg=!detag $msg
!distribute word
$tmp into muser
,date,hide
!if $muser!=supervisor
!let type=user
!let p=!positionof item $muser in $ulist
!let username=$(nlist[$p])
!else
!let type=supervisor
!endif
!if $hide!=hide or $wims_user=supervisor
<div class="tchat-$type">
<b>
!if $type=supervisor
$wims_name_nameteacher
!else
$username
!endif
</b>
!if $hide=hide
<small>($(wims_name_status[1]))</small>
!endif
<div class="text">
$msg
</div>
<div class="tchat-date">
!let dt1=!char 1 to 8 of $date
!let dt2=!char 10 to 14 of $date
!readproc adm
/date.phtml
$dt1 $l_date_out $wims_name_at
!replace internal : by H in $dt2
</div>
</div>
</td>
!if $wims_user=supervisor
<td><div>
!let wims_ref_class=wims_button
!if $hide=hide
!href cmd=reply&+module=$module&+job=showhide&+mem_file=$mem_file&+mem_rec=$mem_rec&+user=$user $wims_name_Show
!else
!href cmd=reply&+module=$module&+job=showhide&+mem_file=$mem_file&+mem_rec=$mem_rec&+user=$user $wims_name_hide
!endif
</div></td>
!endif
!endif
</tr>
</table>
</div>
!else
$name_nomsg
!endif
!! ---------- make
list of living and make
link in the wims_menu_items
!if $wims_user!=supervisor and $otherliving!=$empty
!let wims_menu_items=!append line itemsep,0,$name_living to $wims_menu_items
!for k in $otherliving
!if $k=$wims_user
!let name=$name_ownliving
!let wims_name_own=$name_ownliving
!let etiq=own
!else
!let name=!text select 0123456789 in $k
!let name=$(livingname_$name)
!let etiq=!char 2 to -1 of $k
!let wims_name_$etiq=$name
!endif
!let wims_menu_items=!append line $etiq,1,module=$module&job=edit&user=$k to $wims_menu_items
!endif
!! ------ wims_menu_item for user
!if $wims_user!=supervisor
!if $wims_sharescreen=yes
!set wims_menu_items=!append line itemsep,0,$name_sharescreen\
score,01,$name_active\
desactivate,1,cmd=reply&+module=$module&+job=sharescreen to $wims_menu_items
!else
!set wims_menu_items=!append line itemsep,0,$name_sharescreen\
score,01,$name_desactive\
activate,1,cmd=reply&+module=$module&+job=sharescreen to $wims_menu_items
!endif
!if $autorefresh=yes
!set wims_menu_items=!append line itemsep,0,$name_autorefresh\
score,01,$name_active\
desactivate,1,cmd=resume&+module=$module&+job=edit&+mautorefresh=no to $wims_menu_items
!else
!set wims_menu_items=!append line itemsep,0,$name_autorefresh\
score,01,$name_desactive\
activate,1,cmd=resume&+module=$module&+job=edit&+mautorefresh=yes to $wims_menu_items
!endif
!endif
!reset job2
,save
,cf_abandon
,cf_preview
,desc