Subversion Repositories wimsdev

Rev

Rev 14128 | Rev 16387 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14128 Rev 14129
Line 7... Line 7...
7
  !if $i>1
7
  !if $i>1
8
    !set wims_ref_class=wims_button wims_button_move
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
9
    !href cmd=reply&job=moveup&moveup=$i#td_exo_$[$i-1] $wims_name_up
10
  !endif
10
  !endif
11
  !form reply
11
  !form reply
12
    <input type="hidden" name="job" value="moveto">
12
  <input type="hidden" name="job" value="moveto">
13
    <input type="hidden" name="movesource" value="$i">
13
  <input type="hidden" name="movesource" value="$i">
14
    <input type="submit" value="$wims_name_moveafter">
14
  <input type="submit" value="$wims_name_moveafter">
15
    !let movetarget=$[$i+1]
15
  !let movetarget=$[$i+1]
16
    !let val=!values v for v=1 to $exocnt
16
  !let val=!values v for v=1 to $exocnt
17
    !let val=!listcomplement $i in $val
17
  !let val=!listcomplement $i in $val
18
    !if $i=$[$exocnt-1]
18
  !if $i=$[$exocnt-1]
19
      !let val=!listcomplement $[$exocnt] in $val
19
    !let val=!listcomplement $[$exocnt] in $val
20
      !let movetarget=$[$exocnt+1]
20
    !let movetarget=$[$exocnt+1]
21
    !endif
21
  !endif
22
    !if $i<$exocnt
22
  !if $i<$exocnt
23
      !formselect movetarget list $val,$[$exocnt+1] prompt $val,$wims_name_end
23
    !formselect movetarget list $val,$[$exocnt+1] prompt $val,$wims_name_end
24
    !else
24
  !else
25
      !formselect movetarget list $val prompt $val
25
    !formselect movetarget list $val prompt $val
26
    !endif
26
  !endif
27
  !formend
27
  !formend
28
!endif
28
!endif
29
    !endif
-