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