Subversion Repositories wimsdev

Rev

Rev 5601 | Rev 7217 | 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
5619 bpr 14
    <div class="wims_content">
2544 bpr 15
    !read menu.phtml
5601 obado 16
    </div>
2544 bpr 17
    !goto end
18
  !else
19
    !if $transfert issametext or $transfert=yes
20
      !set wims_form_method=file
21
      !read transfert.phtml
22
    !else
5619 bpr 23
        <div class="wims_content">
2544 bpr 24
      !read menu.phtml
5601 obado 25
      </div>
2544 bpr 26
    !endif
27
  !endif
28
!else
5619 bpr 29
    <div class="wims_content">
2544 bpr 30
  !read menu.phtml
5601 obado 31
  </div>
2544 bpr 32
!endif compute=yes?
33
 
34
:end
35
 
36
!if $type_exo!=$empty
37
  !set wims_menu_items=!append line modtool,1,module=adm/modtool\
2667 bpr 38
  back2,1,module=$module\
2544 bpr 39
  ,0,\
40
   to $wims_menu_items
41
!else
42
 !set wims_menu_items=!append line modtool,1,module=adm/modtool\
43
  to $wims_menu_items
44
!endif
45
 
46
 
47
!if $wims_developer!= and $type_exo=
2667 bpr 48
!set wims_menu_items=!append line  ,0,\
49
   to $wims_menu_items
2544 bpr 50
!set u = !linecnt $name      
51
!for i = 1 to $u
52
   !set cnt=!itemcnt $(name[$i;])
53
   !for a =1 to $cnt
2667 bpr 54
     !set wims_menu_items=!append line quick_$(name[$i;$a]),1,cmd=reply&type_exo=$(name[$i;$a])\
2544 bpr 55
    to $wims_menu_items
56
   !next a
57
!next
58
!endif
59
!tail
60
 
61
!reset wims_exec_error wims_deposit