Subversion Repositories wimsdev

Rev

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