Rev 14128 |
Rev 16387 |
Go to most recent revision |
Blame |
Compare with Previous |
Last modification |
View Log
| RSS feed
!! 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