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