Subversion Repositories wimsdev

!for t in result,context

  !if $(ask$t)<2

    n$t=0

  !else

    n$t=!itemcnt $($(t)list)

  !endif

  !if $(n$t)>1

    good=!item 1,2 of $($(t)list)

    !if $(ask$t)>2

      bad=!item 3 to -1 of $($(t)list)

      n=!itemcnt $bad

      s=!shuffle $n

      s=!item 1 to $(ask$t)-2 of $s

      bad=!item $s of $bad

      list$t=!sort items $good,$bad

    !else

      list$t=!sort items $good

    !endif

    sh$t=$wims_sort_order

    good$t=!positionof item 1 in $(sh$t)

  !endif

!next t