Subversion Repositories wimsdev

Rev

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

Rev 11681 Rev 12520
Line 39... Line 39...
39 
!if $wims_developer!= and $type_exo=
 39 
!if $wims_developer!= and $type_exo=
40 
!set wims_menu_items=!append line itemsep,0,\
 40 
!set wims_menu_items=!append line itemsep,0,\
41 
   to $wims_menu_items
 41 
   to $wims_menu_items
42 
!set u = !linecnt $name
 42 
!set u = !linecnt $name
43 
!for i = 1 to $u
 43 
!for i = 1 to $u
44 
   !set cnt=!itemcnt $(name[$i;])
 44 
  !set cnt=!itemcnt $(name[$i;])
45 
   !for a =1 to $cnt
 45 
  !for a =1 to $cnt
46 
   !set wims_name_title_quick_$(name[$i;$a])=$(explication[$i;$a])
 46 
  !set wims_name_title_quick_$(name[$i;$a])=$(explication[$i;$a])
47 
     !set wims_menu_items=!append line quick_$(name[$i;$a]),1,cmd=reply&type_exo=$(name[$i;$a])\
 47 
    !set wims_menu_items=!append line quick_$(name[$i;$a]),1,cmd=reply&type_exo=$(name[$i;$a])\
48 
    to $wims_menu_items
 48 
   to $wims_menu_items
49 
   !next a
 49 
  !next a
50 
!next
 50 
!next
51 
!endif
 51 
!endif
52 
 
 52 
 
53 
!tail
 53 
!tail
54 
 
 54