!let maxsuggest=5
!let nbrec=!recordcnt $ufile
!let rec=1
<div>
$name_sworkdesc
!read
date.phtml
$majdate,noprint
!replace internal - by $name_at in $slib_out
.
</div>
!readproc proc/listwork.proc $user
!let nbsuggest=!linecnt $exolist
!if $nbsuggest=0
<div>
$name_noexo
</div>
!endif
<div class="wims_sheet">
<div class="wims_title_seq">$name_sworktitle</div>
<ol class="wims_sheet_list">
!! avec le à voir du bas
!reset wims_exotitle wims_exoicon wims_exodesc exodescshow
!set wims_listexo=swork
!for k=1 to $nbsuggest
!let t=!line $k of $exolist
!read proc/exobox.phtml $t
!setdef wims_listexo
=$wims_listexo in wimshome
/sessions
/$wims_session/var.stat
!! -- -à voir
!! !let wims_exotitle=!replace , by , in $wims_exotitle
!! !let wims_exotitle=!lines2items $wims_exotitle
!! !setdef wims_exotitle=$wims_exotitle\
!!wims_sheettitle=$sheet_title\
!!wims_exoicon=$wims_exoicon\
!!wims_exodesc=$wims_exodesc\
!! in wimshome
/sessions
/$wims_session/var.stat
</ol>
</div>