Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
1068 bpr 1
 
973 obado 2
!!************** headmenu.phtml  ****************
16 reyssat 3
 
973 obado 4
!! This File creates a set of 1 to 11 links, to put in the head menu of Wims, for anonymous users.
5
 
6
!! **********************************************
2995 bpr 7
!if robot isin $session or $wims_mode=popup or _check isin $session or $module=help/main.$lang
16 reyssat 8
 !exit
9
!endif
10
 
973 obado 11
!! la variable window=embeded est utilisee dans le cadre d'un appel depuis le lecteur exportable
12
!! window=embeded is used for embedded players
13
!if embededwindow isin $module_init_parm
14
        !set window=embeded
15
!endif
11279 bpr 16
!! Don't succeed to use script/language for the moment
17
!! translated. FIXME
18
!!!read language name.phtml
19
!read name.phtml.$lang
11469 bpr 20
!read themes/_lang/name.phtml.$lang
11279 bpr 21
!read themes/$wims_theme/lang/name.phtml.$lang
22
!if $class_theme!=$empty
23
  !read themes/$class_theme/lang/$(script_file).$modu_lang
24
!endif
25
!if $theme_class!=$empty
26
  !read themes/$theme_class/lang/$(script_file).$modu_lang
27
!endif
973 obado 28
 
16 reyssat 29
!default wims_name_bgcolor=$wims_ref_bgcolor
2976 bpr 30
!if $wims_hm!=$empty or $wims_lightpopup=yes
16 reyssat 31
 !goto defend
32
!endif
1076 bpr 33
!if $job=print or $printing=yes
34
 !goto defend
35
!endif
9710 bpr 36
!reset 1_ home_
973 obado 37
 
38
!!********* Link #1 : "Close Window" or "Home"
2233 bpr 39
 
16 reyssat 40
!if _ isin $wims_subsession
41
 !set 1_=!append line back,3,window.close() to $1_
42
!else
1068 bpr 43
 !if $window != embeded and $module!=home
9710 bpr 44
   !set home_=!append line home,1,session=$wims_session.1 to $home_
973 obado 45
 !endif
16 reyssat 46
!endif
973 obado 47
 
48
!!********* Link #2 : "Quit"
49
!if $httpd_HTTP_REFERER!=$empty and $window != embeded
16 reyssat 50
 !set 1_=!append line exit,2,$httpd_HTTP_REFERER to $1_
51
!endif
973 obado 52
 
53
!!********* Link #3 : "Work"
4784 guerimand 54
!!if $cmd=intro
55
!! !set 1_=!append line work,1,module=$module&cmd=new to $1_
56
!!endif
973 obado 57
 
58
!!********* Link #4 : "Sheet"
16 reyssat 59
!if $wims_sheet>0 or P isin $wims_sheet
60
 !set 1_=!append line sheet,1,module=adm/sheet&sh=$wims_sheet to $1_
61
!endif
973 obado 62
 
63
!!********* Link #5 : "Intro"
64
!if $window != embeded and $module_has_intro=yes and $cmd notwordof intro help
10175 bpr 65
  !if $wims_theme!=default
66
    !set wims_ariane=!append line intro,1,module=$module&cmd=intro&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4 to $wims_ariane
67
    !set wims_ariane_self=no
68
  !else
69
    !set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4 to $1_
70
  !endif
16 reyssat 71
!endif
973 obado 72
!!********* Link #6 : "References"
1068 bpr 73
!if _ notin $wims_session and adm/ notin $module and home notin $module\
16 reyssat 74
        and $cmd notwordof help ref
2233 bpr 75
!! !set 1_=!append line reference,4,module=$module&cmd=ref&special_parm=$cmd,ref to $1_
16 reyssat 76
!endif
973 obado 77
 
78
!!********* Link #7 : "Help"
9916 bpr 79
!if $module_has_help=yes and $cmd notwordof intro help
6849 bpr 80
 !if $module_help=nopop
7767 bpr 81
   !set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_
16 reyssat 82
 !else
6849 bpr 83
   !set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_
16 reyssat 84
 !endif
85
!endif
973 obado 86
 
87
!!********* Link #8 : "Resume"
16 reyssat 88
!if $cmd=help or $cmd=hint
10274 bpr 89
 !if _test isin $session
90
   !set 1_=!append line resume,1,cmd=resume to $1_
91
 !else
10355 bpr 92
    !if _help isin $session
93
      !set 1_=!append line back2,1,cmd=resume to $1_
94
    !endif
10274 bpr 95
 !endif
10259 bpr 96
 !if $module_category!=adm
97
   !set wims_ariane=!append line resume,1,cmd=resume\
98
 to $wims_ariane
99
 !endif
16 reyssat 100
!endif
1712 bpr 101
 
973 obado 102
!!********* Link #9 : "About"
103
!if $window != embeded \
104
        and $module_has_about=yes \
10407 bpr 105
        and _tool notin $module and home notin $module \
9800 bpr 106
        and $cmd notwordof help and _exam notin $session\
107
        and (adm notin $module or $wims_user iswordof supervisor developper or $wims_user=$empty)
108
                !set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp,,$wims_name_module_infos ($module) to $1_
16 reyssat 109
!endif
973 obado 110
 
111
!!********* Link #10 : "WIMS Help"
1237 bpr 112
!if $module!=home and _exam notin $session and $wims_version_theme=0
1068 bpr 113
 !set 1_=!append line whelp,4,module=help/main&$wims_helper,help to $1_
114
!endif
973 obado 115
 
116
!!********* Link #11 : "Other Languages"
16 reyssat 117
!if $wims_ref_otherlangs=yes and $wims_otherlangs!=$empty
118
 !if $wims_light_module=yes
119
  !set wims_name_pagebase=!char 1 to -4 of $phtml
120
  !for i_ in $wims_headmenu_languages
5745 bpr 121
   !set 1_=!append line $i_,0,<a href="wims.cgi?session=$session&+lang=$i_&+useropts=$useropts&+module=$module&+phtml=$wims_name_pagebase.$i_&+parm1=$parm1&+parm2=$parm2&+parm3=$parm3&+parm4=$parm4&+parm5=$parm5"><img src="gifs/$i_.gif" border="1" alt="$i_"/></a> to $1_
16 reyssat 122
  !next i_
123
 !else
124
  !set wims_name_mbase=!char 1 to -4 of $module
125
  !for i_ in $wims_otherlangs
10562 bpr 126
   !set 1_=!append line $i_,0,<a href="wims.cgi?session=$session&+lang=$i_&+useropts=$useropts&+module=$wims_name_mbase"><img src="gifs/$i_.gif" border=1 alt="$i_" /></a> to $1_
16 reyssat 127
  !next i_
128
 !endif
129
!endif
10274 bpr 130
!if $wims_user$wims_developer!=$empty and _ notin $session
9810 bpr 131
  !set wims_link_close=!append line visitor,1,cmd=close&module=home\
132
  to $wims_link_close
133
!endif
134
 
16 reyssat 135
!set wims_hm=$1_
9710 bpr 136
!set wims_home_items=$home_
16 reyssat 137
:defend
138
!set wims_hm_cnt=!linecnt $wims_hm
9710 bpr 139
!set wims_home_items_cnt=!linecnt $wims_home_items
9810 bpr 140
!set wims_link_close_cnt=!linecnt $wims_link_close
16 reyssat 141
!read themes.phtml header
1140 bpr 142
!if $module=home
9282 obado 143
  <div class="wimstrap">
1140 bpr 144
!else
9282 obado 145
 
146
  <div class="wimsbody">
1140 bpr 147
!endif
9309 bpr 148
<!-- END of headmenu -->