Subversion Repositories wimsdev

# procedure de listing (utilisee par listsheets et listexams)

# pre-requis : $list_type doit etre specifie (exam ou sheet)

!if $error!=$empty

  !exit

!endif

!if $list_type=$empty

  error=error in listing.proc

  !exit

!endif

!if $list_type=sheets

  titleline=3

!else

  titleline=4

!endif

listfile=wimshome/log/classes/$qclass/$list_type/.$list_type

cnt=!recordcnt $listfile

list=$empty

titles=$empty

expirations=$empty

nb_hidden=0

!for i=1 to $cnt

  current=!record $i of $listfile

  status=!line 1 of $current

  !if $status=3

    !advance nb_hidden

  !endif

  title=!line $titleline of $current

  title=!replace : by ⁚ in $title

  expire=!line 2 of $current

  expirations=!append item $expire to $expirations

  !if $list=$empty

    list=$i

    titles=$i:$title:$status

  !else

    list=$list,$i

    titles=$titles$separator$i:$title:$status

  !endif

!next i