Subversion Repositories wimsdev

Rev

Rev 14128 | Rev 16387 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !! make htmlform to the moveafter menu in sheet and exam
  2. !! input are :
  3. !! exocnt : number of exo in the sheet/exam
  4. !! i : item number
  5.  
  6. !if $exocnt>1
  7.   !if $i>1
  8.     !set wims_ref_class=wims_button wims_button_move
  9.     !href cmd=reply&job=moveup&moveup=$i#td_exo_$[$i-1] $wims_name_up
  10.  !endif
  11.   !form reply
  12.   <input type="hidden" name="job" value="moveto">
  13.   <input type="hidden" name="movesource" value="$i">
  14.   <input type="submit" value="$wims_name_moveafter">
  15.   !let movetarget=$[$i+1]
  16.   !let val=!values v for v=1 to $exocnt
  17.   !let val=!listcomplement $i in $val
  18.   !if $i=$[$exocnt-1]
  19.     !let val=!listcomplement $[$exocnt] in $val
  20.     !let movetarget=$[$exocnt+1]
  21.   !endif
  22.   !if $i<$exocnt
  23.     !formselect movetarget list $val,$[$exocnt+1] prompt $val,$wims_name_end
  24.   !else
  25.     !formselect movetarget list $val prompt $val
  26.   !endif
  27.   !formend
  28. !endif
  29.