Subversion Repositories wimsdev

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

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

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

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

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

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

    !let movetarget=$[$i+1]

  !let movetarget=$[$i+1]

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

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

    !let val=!listcomplement $i in $val

  !let val=!listcomplement $i in $val

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

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

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

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

      !let movetarget=$[$exocnt+1]

    !let movetarget=$[$exocnt+1]

    !endif

  !endif

    !if $i<$exocnt

  !if $i<$exocnt

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

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

    !else

  !else

      !formselect movetarget list $val prompt $val

    !formselect movetarget list $val prompt $val

    !endif

  !endif