Subversion Repositories wimsdev

Rev

Rev 14129 | Rev 16388 | 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. !reset listval_ listname_
  7. !if $exocnt>1
  8.   !if $i>1
  9.     !let listval_=$[i-1]
  10.     !let listname_=$wims_name_up
  11.   !endif
  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_
  18.   !endif
  19.   !if $i<$exocnt
  20.     !let listval_=!append item $exocnt to $listval_
  21.     !let listname_=!append item $wims_name_moveafter $wims_name_end to $listname_
  22.   !endif
  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
  37. !endif
  38.