!! ------- display
list of user of the living
<div id="living_props">
<strong>$name_regusers</strong>: $name_teacher
!if $(livingusers_$living)=all
$name_and $(name_all).
!else
$(listnameusers).
!endif
</div>
!if $tchat_configfilesize>0 and . notin $user
!! html
interface to upload a
file + show actual
file !if $wims_user!=supervisor
!set wims_form_method
=file !form reply
<div class="field box">
<input type="hidden" name="job" value="uploadfile" />
<label for="deposit">$name_depos:</label>
<input type="file" size="35" name="wims_deposit" id="deposit" />
<input type="submit" value="$wims_name_submit" class="wims_button" $activated_ />
!if $usertmpfile!=$empty
$name_actualfile:
!! !getfile tchat/$usertmpfile $usertmpfile
<a href="$wims_protocol://$httpd_HTTP_HOST/wims/getfile/tchat/$usertmpfile?session=$wims_session" download="$usertmpfile">$usertmpfile</a>
!endif
<div class="formHelp">$name_usertmpfiledesc</div>
</div>
!else
!let nb=!linecnt $list_tmpfile
!if $nb>0
<div class="field box">
$name_depos2:
!let nb=!linecnt $list_tmpfile
!for k=1 to $nb
!! !getfile tchat/$user/$(list_tmpfile[$k;2]) $(list_tmpfile[$k;2])
<a href="$wims_protocol://$httpd_HTTP_HOST/wims/getfile/tchat/$user/$(list_tmpfile[$k;2])?session=$wims_session" download="$(list_tmpfile[$k;2])">$(list_tmpfile[$k;2])</a>
</div>
!endif
!endif
!endif
!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
!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
<div class="wims_msg info">
!if $userconnected=no
$name_partnotconnected
!else
!if $sharescreen=no
$name_nosharingscreen
!else
$name_nopagetoview
!endif
!endif
</div>
!endif
!endif
!endif
<div class="msg_list">
!if $nbmsg>0
!let nblastrecord
=!recordcnt wimshome
/log/classes
/$wims_class/tchat
/$user !for k=1 to $nbmsg
<div class="tchat-item">
!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-msg tchat-$type
!if $hide=hide
tchat-hidden
!endif
">
<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 class="tchat-username">
!if $type=supervisor
$wims_name_nameteacher
!else
$username
!endif
</div>
!if $hide=hide
<span class="tchat-status">($(wims_name_status[1]))</span>
!endif
<div class="tchat-text">$msg</div>
</div>
!if $wims_user=supervisor
<div class="tchat-actions">
!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#living_props $wims_name_Show
!else
!href cmd=reply&+module=$module&+job=showhide&+mem_file=$mem_file&+mem_rec=$mem_rec&+user=$user#living_props $wims_name_hide
!endif
</div>
!endif
!endif
</div>
!else
$name_nomsg
!endif
</div>
!! ---------- 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_livingown=$name_ownliving
!let etiq=livingown
!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
!set wims_menu_items=!append line ,0,$wims_name_setup to $wims_menu_items
!if $wims_sharescreen=yes
!set wims_menu_items=!append line living_stopshare,1,cmd=reply&+module=$module&+job=sharescreen\
to $wims_menu_items
!else
!set wims_menu_items=!append line living_activeshare,1,cmd=reply&+module=$module&+job=sharescreen\
to $wims_menu_items
!endif
!if $autorefresh=yes
!set wims_menu_items=!append line living_stoprefresh,1,cmd=resume&+module=$module&+job=edit&+mautorefresh=no\
to $wims_menu_items
!else
!set wims_menu_items=!append line living_activerefresh,1,cmd=resume&+module=$module&+job=edit&+mautorefresh=yes\
to $wims_menu_items
!endif
!endif
!reset job2
,save
,cf_abandon
,cf_preview
,desc