Subversion Repositories wimsdev

Rev

Rev 2544 | Rev 5601 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2544 bpr 1
!!@#language independant
2
!if robot isin $session
3
  !exit
4
!endif
2667 bpr 5
!if $(module_title_$modu_lang)!=
6
  !set module_title=$(module_title_$modu_lang)
7
!endif
2544 bpr 8
!header
9
!if $compute=yes
10
  !if $error!=$empty
11
    !if $mtype!=$empty
12
     !read msg.phtml
13
    !endif
14
    !read menu.phtml
15
    !goto end
16
  !else
17
    !if $transfert issametext or $transfert=yes
18
      !set wims_form_method=file
19
      !read transfert.phtml
20
    !else
21
      !read menu.phtml
22
    !endif
23
  !endif
24
!else
25
  !read menu.phtml
26
!endif compute=yes?
27
 
28
:end
29
 
30
!if $type_exo!=$empty
31
  !set wims_menu_items=!append line modtool,1,module=adm/modtool\
2667 bpr 32
  back2,1,module=$module\
2544 bpr 33
  ,0,\
34
   to $wims_menu_items
35
!else
36
 !set wims_menu_items=!append line modtool,1,module=adm/modtool\
37
  to $wims_menu_items
38
!endif
39
 
40
 
41
!if $wims_developer!= and $type_exo=
2667 bpr 42
!set wims_menu_items=!append line  ,0,\
43
   to $wims_menu_items
2544 bpr 44
!set u = !linecnt $name      
45
!for i = 1 to $u
46
   !set cnt=!itemcnt $(name[$i;])
47
   !for a =1 to $cnt
2667 bpr 48
     !set wims_menu_items=!append line quick_$(name[$i;$a]),1,cmd=reply&type_exo=$(name[$i;$a])\
2544 bpr 49
    to $wims_menu_items
50
   !next a
51
!next
52
!endif
53
!tail
54
 
55
!reset wims_exec_error wims_deposit
56