Rev 16388 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
14128 | guerimand | 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 |
||
16388 | guerimand | 5 | !! wims_read_parm : name of button |
14128 | guerimand | 6 | |
16387 | guerimand | 7 | !reset listval_ listname_ |
14128 | guerimand | 8 | !if $exocnt>1 |
9 | !if $i>1 |
||
16396 | guerimand | 10 | !let listval_=$[$i-1] |
16387 | guerimand | 11 | !let listname_=$wims_name_up |
14128 | guerimand | 12 | !endif |
16387 | guerimand | 13 | !let val_=!values v for v=1 to $exocnt-1 |
14 | !let val_=!listcomplement $i,$[$i-1] in $val_ |
||
15 | !let t_=!makelist $wims_name_moveafter v for v in $val_ |
||
16 | !if $val_!=$empty |
||
17 | !let listval_=!append item $val_ to $listval_ |
||
18 | !let listname_=!append item $t_ to $listname_ |
||
14129 | bpr | 19 | !endif |
20 | !if $i<$exocnt |
||
16387 | guerimand | 21 | !let listval_=!append item $exocnt to $listval_ |
22 | !let listname_=!append item $wims_name_moveafter $wims_name_end to $listname_ |
||
14129 | bpr | 23 | !endif |
16387 | guerimand | 24 | !! link for sendbug |
25 | !reset t |
||
26 | !let nb_=!itemcnt $listval_ |
||
27 | !for k=1 to $nb_ |
||
28 | !let l=cmd=reply&+job=moveto&+movesource=$i&+movetarget=$(listval_[$k]) $(listname_[$k]) |
||
29 | !let t=!append line $l to $t |
||
30 | !next k |
||
31 | !read js/dropdownbutton.phtml dropbutton_$i\ |
||
16388 | guerimand | 32 | $wims_read_parm\ |
16387 | guerimand | 33 | $t |
34 | |||
35 | |||
36 | |||
37 | !! !formend |
||
14128 | guerimand | 38 | !endif |