Rev 15767 | Rev 15986 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
973 | obado | 1 | !!************** homeref.phtml **************** |
10792 | bpr | 2 | !! This File creates 2 sets of links, to put in the left menu or tail menu of Wims. |
973 | obado | 3 | !! 1st set contains up to 6 links |
4 | !! 2nd set contains informations about author(s), and mail links to them. |
||
5648 | obado | 5 | !! ********************************************** |
6 | <!-- begin of html/homeref.phtml --> |
||
973 | obado | 7 | |
5648 | obado | 8 | !if yes isin $wims_lightpopup |
12824 | bpr | 9 | !if $wims_lightpopup_option=$empty |
10 | !set 1_=!append line itemsep,0, $wims_name_devwims to $1_ |
||
11 | !set 1_=!append line itemsep,0, $wims_name_Author: $module_author to $1_ |
||
12 | !set wims_rm_2=$1_ |
||
13 | !goto rmend |
||
14 | !else |
||
15 | !if about isitemof $wims_lightpopup_option |
||
16 | !set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_ |
||
17 | !endif |
||
18 | !set wims_rm_1=$1_ |
||
19 | !goto rmend |
||
2976 | bpr | 20 | !endif |
2727 | guerimand | 21 | !endif |
973 | obado | 22 | |
16 | reyssat | 23 | !if robot isin $session or _check isin $session |
12824 | bpr | 24 | !if robot isin $session and wims.unice.fr notin $httpd_SERVER_NAME\ |
13562 | obado | 25 | and $cmd iswordof new intro |
12824 | bpr | 26 | !set wims_c1=!char 1 of $module |
27 | !if $wims_c1 isin ABCDEFGHIJKLMNOPQRSTUVWXYZ or ../tool isin ../$module |
||
28 | !set wims_md=!translate . to , in $module |
||
29 | !set wims_md=!item -1 of $wims_md |
||
30 | !set wims_mdcnt=!charcnt $wims_md |
||
31 | !if $wims_mdcnt=2 |
||
32 | !set wims_ff=!translate / to ~ in $module |
||
33 | <small><a href="http://wims.unice.fr/wims/$(wims_md)_$wims_ff.html">The most recent version</a></small><br/> |
||
34 | !endif |
||
35 | !endif |
||
16 | reyssat | 36 | !endif |
12824 | bpr | 37 | !changeto robotref.phtml |
16 | reyssat | 38 | !endif |
39 | |||
40 | !if $wims_mode=popup |
||
12824 | bpr | 41 | <div class="wimstail"> |
13562 | obado | 42 | <hr/> |
43 | <small> |
||
44 | <a target="wims" href="http://$httpd_HTTP_HOST$httpd_SCRIPT_NAME">WIMS @ $httpd_HTTP_HOST</a> |
||
45 | </small> |
||
12824 | bpr | 46 | </div> |
47 | !exit |
||
16 | reyssat | 48 | !endif |
49 | |||
50 | !if _test isin $session and $wims_hacked_variables!=$empty |
||
12824 | bpr | 51 | <p><span class="wims_warning">WIMS WARNING</span>. The following variables of your module could be hacked |
52 | by students using manually modified http addresses! You might want to put more |
||
53 | strict permissions to them in var.def, in order to build a secure exercise module. |
||
54 | </p> |
||
55 | <pre>$wims_hacked_variables</pre> |
||
16 | reyssat | 56 | !endif |
57 | |||
58 | !read name.phtml.$module_language |
||
11469 | bpr | 59 | !read themes/_lang/name.phtml.$lang |
9309 | bpr | 60 | !read themes/$wims_theme/lang/name.phtml.$lang |
16 | reyssat | 61 | !default wims_homeref_bgcolor=$wims_ref_bgcolor |
973 | obado | 62 | |
1193 | bpr | 63 | !if $wims_rm_1=no |
12824 | bpr | 64 | !reset wims_rm_1 |
65 | !goto local |
||
1193 | bpr | 66 | !endif |
16 | reyssat | 67 | !if $wims_rm_1!=$empty |
12824 | bpr | 68 | !goto rm2 |
16 | reyssat | 69 | !endif |
70 | !reset 1_ |
||
973 | obado | 71 | |
72 | !!********* Link #1 : "Close Window" or "Home" (Not Shown if Embedded) |
||
16 | reyssat | 73 | !if _ isin $wims_subsession |
12824 | bpr | 74 | !set 1_=!append line back,3,window.close() to $1_ |
16 | reyssat | 75 | !else |
12824 | bpr | 76 | !if $window != embeded |
77 | !!set 1_=!append line home,1,session=$wims_session.1 to $1_ |
||
78 | !endif |
||
16 | reyssat | 79 | !endif |
973 | obado | 80 | |
81 | !!********* Link #2 : "Sheet" |
||
16 | reyssat | 82 | !if $wims_sheet>0 or P isin $wims_sheet |
12824 | bpr | 83 | !if $wims_sequence>0 |
84 | !set tmp_=sheet,1,module=adm/sheet&sh=$wims_sheet&seq=$wims_sequence |
||
85 | !else |
||
86 | !set tmp_=sheet,1,module=adm/sheet&sh=$wims_sheet& |
||
87 | !endif |
||
88 | !set 1_=!append line $tmp_ to $1_ |
||
89 | !let wims_menu_items=!append line $tmp_ to $wims_menu_items |
||
15767 | guerimand | 90 | !let p=!positionof item $wims_exo in $wims_listexo |
91 | !if $wims_exo!=$(wims_listexo[1]) |
||
92 | !let wims_menu_items=!append line previousseries,1,module=home&directworksheet=$wims_sheet.$(wims_listexo[$p-1]) to $wims_menu_items |
||
12824 | bpr | 93 | !endif |
15767 | guerimand | 94 | !if $wims_exo!=$(wims_listexo[-1]) |
95 | !let wims_menu_items=!append line nextseries,1,module=home&directworksheet=$wims_sheet.$(wims_listexo[$p+1]) to $wims_menu_items |
||
12824 | bpr | 96 | !endif |
16 | reyssat | 97 | !endif |
973 | obado | 98 | |
10792 | bpr | 99 | !if ($wims_user=$empty or $wims_developer!=$empty or $wims_user=supervisor)\ |
12824 | bpr | 100 | and $exoprev$exonext != $empty and $wims_sheet=$empty |
101 | !set wims_menu_items=!append line itemsep,0\ |
||
12363 | bpr | 102 | prev,1,cmd=new&module=$module&exo=$exoprev&wims_seedcnt=0&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4 \ |
10792 | bpr | 103 | to $wims_menu_items |
12824 | bpr | 104 | !set wims_menu_items=!append line next,1,cmd=new&module=$module&exo=$exonext&wims_seedcnt=0&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4 \ |
10792 | bpr | 105 | to $wims_menu_items |
106 | !reset exoprev exonext |
||
107 | !endif |
||
108 | |||
973 | obado | 109 | !!********* Link #3 : "Resume" |
16 | reyssat | 110 | !if $cmd=help or $cmd=hint |
12824 | bpr | 111 | !set 1_=!append line resume,1,cmd=resume to $1_ |
16 | reyssat | 112 | !endif |
973 | obado | 113 | |
114 | !!********* Link #4 : "Introduction" (Not Shown if Embedded) |
||
115 | !if $window != embeded and $module_has_intro=yes and $cmd notwordof intro help |
||
12824 | bpr | 116 | !set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3 to $1_ |
16 | reyssat | 117 | !endif |
973 | obado | 118 | |
2233 | bpr | 119 | !if _ notin $wims_session and adm/ notin $module and home notin $module\ |
13562 | obado | 120 | and $cmd notwordof help ref |
7351 | bpr | 121 | !!!set 1_=!append line reference,4,module=$module&cmd=ref&special_parm=$cmd,ref to $1_ |
2233 | bpr | 122 | !endif |
123 | |||
973 | obado | 124 | !!********* Link #5 : "Help" |
125 | !if $module_help!=$empty and $module_has_help=yes and $cmd notwordof intro help |
||
12824 | bpr | 126 | !if $module_help=popup |
127 | !set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_ |
||
128 | !else |
||
129 | !set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_ |
||
130 | !endif |
||
16 | reyssat | 131 | !endif |
973 | obado | 132 | |
133 | !!********* Link #6 : "About" |
||
9762 | bpr | 134 | !if $module_has_about=yes and $cmd notwordof help |
9800 | bpr | 135 | !!set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_ |
16 | reyssat | 136 | !endif |
973 | obado | 137 | |
1222 | bpr | 138 | !set wims_rm_1=$1_ |
1193 | bpr | 139 | :local |
1222 | bpr | 140 | !reset 1_ |
10285 | bpr | 141 | !if $wims_menu_items!=$empty |
142 | !set 1_=!append line itemsep,0,\ |
||
9706 | bpr | 143 | $wims_menu_items to $1_ |
10285 | bpr | 144 | !endif |
1222 | bpr | 145 | !set wims_rm_0=$1_ |
6270 | bpr | 146 | !!wims_menu_tabs not used - to delete |
1407 | bpr | 147 | !set wims_rm_3=!append line $wims_menu_tabs to $wims_rm_3 |
16 | reyssat | 148 | :rm2 |
149 | !if $wims_rm_2!=$empty |
||
12824 | bpr | 150 | !goto rmend |
16 | reyssat | 151 | !endif |
152 | !reset 2_ |
||
973 | obado | 153 | |
154 | !!********* Link #8 : "Author(s)" |
||
4318 | bpr | 155 | |
8002 | bpr | 156 | !if $module_author!=$empty and (@ isin $module_address or $module_address=$empty) |
12824 | bpr | 157 | !read namewriting.phtml $module_author |
158 | !set module_address=!replace internal ; by , in $module_address |
||
159 | !set wims_homeref_author_num=$script_cnt |
||
160 | !if $wims_homeref_author_num>1 |
||
161 | !set 3_=$wims_name_authors: |
||
162 | !else |
||
163 | !set 3_=$wims_name_author: |
||
164 | !endif |
||
165 | !set 4_= |
||
166 | !for ad=1 to $wims_homeref_author_num |
||
167 | !set adreplace=$(module_address[$ad]) |
||
168 | !if $adreplace=$empty |
||
8002 | bpr | 169 | !set adreplace=$module_maintainer_address |
12824 | bpr | 170 | !endif |
171 | !if $adreplace!= and @ isin $adreplace |
||
172 | !!!#### xiao treatment - should disappear when modules are republished |
||
173 | !if xiao isin $adreplace |
||
174 | !set adreplace=qualite@wimsedu.info |
||
175 | !endif |
||
176 | !!!#### |
||
177 | !set 4__=!mailurl $adreplace $(script_out[$ad])\ |
||
4346 | bpr | 178 | WIMS $module_title [$module_language] |
12824 | bpr | 179 | !else |
180 | !set 4__=$(script_out[$ad]) |
||
181 | !endif |
||
4346 | bpr | 182 | !set 4_=!append item $4__ to $4_ |
7808 | bpr | 183 | !next |
4346 | bpr | 184 | !set 2_=!append line author,0,$3_ $4_ to $2_ |
16 | reyssat | 185 | !endif |
973 | obado | 186 | |
187 | !!********* Link #9 : "Translator(s)" |
||
2233 | bpr | 188 | !set mod_transl=$(module_translator_$lang) |
189 | !if $module_transl!=$empty |
||
12824 | bpr | 190 | !set module_translator=$mod_transl |
191 | !set module_translator_address=$(module_translator_address_$lang) |
||
2233 | bpr | 192 | !endif |
193 | |||
16 | reyssat | 194 | !if $module_translator!=$empty and $module_translator_address!=$empty |
12824 | bpr | 195 | !read namewriting.phtml $module_translator |
196 | !set module_translator_address=!replace internal ; by , in $module_translator_address |
||
197 | !set module_translator=$(script_out[1]) |
||
198 | !set wims_homeref_translator_num=$script_cnt |
||
199 | !for ad=1 to $wims_homeref_translator_num |
||
200 | !set 3_=!mailurl $(module_translator_address[$ad]) $(module_translator[$ad])\ |
||
16 | reyssat | 201 | WIMS $module_title [$module_language] |
12824 | bpr | 202 | !set 2_=!append line trans,0,$wims_name_translatedby $3_ to $2_ |
203 | !next |
||
16 | reyssat | 204 | !endif |
973 | obado | 205 | |
206 | !!********* Link #10 : "Version & Copyright" |
||
16 | reyssat | 207 | !if $module_version$module_copyright!=$empty |
12824 | bpr | 208 | !set 2_=!append line version,0,$wims_name_Version $module_version, $module_copyright to $2_ |
16 | reyssat | 209 | !endif |
973 | obado | 210 | |
211 | !!********* Link #11 : "Modify" |
||
16 | reyssat | 212 | !if $wims_developer!=$empty and COPYING isin $module_copyright |
12824 | bpr | 213 | !set V_=!char 1 of $module |
214 | !set M_=!translate internal / to , in $module |
||
15909 | bpr | 215 | !if $V_ isin ABCDEFGHIJKLMNOPQRTSUVWXYZ or $(M_[1]) iswordof local contrib tool \ |
216 | or ($(M_[1]) iswordof help and $(M_[3])!=$empty) |
||
12824 | bpr | 217 | !set wims_rm_0=!append line modify,1,module=adm/modtool&original=$module to $wims_rm_0 |
218 | !endif |
||
16 | reyssat | 219 | !endif |
973 | obado | 220 | |
221 | !!********* Link #12 : "Server Time" |
||
16 | reyssat | 222 | !if $wims_ismanager>=2 |
12824 | bpr | 223 | !set 2_=!append line time,0,$wims_name_server_time: $wims_now to $2_ |
16 | reyssat | 224 | !endif |
225 | |||
226 | !set wims_rm_2=$2_ |
||
973 | obado | 227 | |
16 | reyssat | 228 | :rmend |
9706 | bpr | 229 | !set wims_homeref_n0=!linecnt $wims_rm_0 |
16 | reyssat | 230 | !set wims_homeref_n1=!linecnt $wims_rm_1 |
231 | !set wims_homeref_n2=!linecnt $wims_rm_2 |
||
6270 | bpr | 232 | !!!set wims_homeref_n3=!linecnt $wims_rm_3 |
16 | reyssat | 233 | |
5648 | obado | 234 | <!-- END of html/homeref.phtml --> |
16 | reyssat | 235 | !read themes.phtml tail |
236 | !robottrap |