Subversion Repositories wimsdev

    !set wims_ref_class=wims_button wims_button_move

    !let listval_=$[i-1]

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

    !let listname_=$wims_name_up

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

  !let val_=!values v for v=1 to $exocnt-1

  !let val=!listcomplement $i in $val

  !let val_=!listcomplement $i,$[$i-1] in $val_

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

  !if $val_!=$empty

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

    !let listval_=!append item $val_ to $listval_

    !let movetarget=$[$exocnt+1]

    !let listname_=!append item $t_ to $listname_

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

    !let listval_=!append item $exocnt to $listval_

    !formselect movetarget list $val prompt $val

    !let listname_=!append item $wims_name_moveafter $wims_name_end to $listname_

  !formend

!!  !formend