Subversion Repositories wimsdev

Rev

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