Subversion Repositories wimsdev

!! make htmlform to the moveafter menu in sheet and exam

!! input are :

!! exocnt : number of exo in the sheet/exam

!! i : item number

!if $exocnt>1

  !if $i>1

    !set wims_ref_class=wims_button wims_button_move

    !href cmd=reply&job=moveup&moveup=$i#td_exo_$[$i-1] $wims_name_up

  !endif

  !form reply

    <input type="hidden" name="job" value="moveto">

    <input type="hidden" name="movesource" value="$i">

    <input type="submit" value="$wims_name_moveafter">

    !let movetarget=$[$i+1]

    !let val=!values v for v=1 to $exocnt

    !let val=!listcomplement $i in $val

    !if $i=$[$exocnt-1]

      !let val=!listcomplement $[$exocnt] in $val

      !let movetarget=$[$exocnt+1]

    !endif

    !if $i<$exocnt

      !formselect movetarget list $val,$[$exocnt+1] prompt $val,$wims_name_end

    !else

      !formselect movetarget list $val prompt $val

    !endif

  !formend

!endif

    !endif