Subversion Repositories wimsdev

!let maxsuggest=5

!let nbrec=!recordcnt $ufile

!let rec=1

!let current=0

<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>

  !exit

!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

  !next k

  !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>