Changeset 2912 for trunk/gsdl/macros/home.dm

Timestamp:

2002-01-22T17:12:45+13:00 (22 years ago)

Author:

nzdl

Message:

Added preferences link for changing display settings (language and such)
of default home page

File:

• trunk/gsdl/macros/home.dm (modified) (5 diffs)

trunk/gsdl/macros/home.dm

@@ -9 +9 @@
 # links on this page
 
-_javalinks_ {_imagehelp_}
-_javalinks_ [v=1] {_imagehelp_}
+_javalinks_ {_imagehelp__imagepref_}
+_javalinks_ [v=1] {_imagehelp_<br>_imagepref_}
 
 #######################################################################
@@ -29 +29 @@
 _httppagegsdl_ {_httppagex_(gsdl)}
 _httppagehomehelp_ {_httppagex_(homehelp)}
-
+_httppagehomepref_ {_httppagex_(homepref)}
 
 #######################################################################
@@ -41 +41 @@
 _imagegodocs_ {_gsimage_(_home:httppagedocs_,_httpimg_/cgsdocof.gif,_httpimg_/cgsdocon.gif,docs,_textgsdocs_)}
 _imagehelp_ {_gsimage_(_home:httppagehomehelp_,_httpiconchelpof_,_httpiconchelpon_,help,_textimagehelp_)}
+_imagepref_ {_gsimage_(_home:httppagehomepref_,_httpiconcprefof_,_httpiconcprefon_,pref,_textimagepref_)}
 
 #######################################################################
@@ -97 +98 @@
 <tr valign=top>
 <td valign=top>_imagegodocs_</td>
-<td>Greenstone manuals</td>
+<td>_textimagegodocs_</td>
 </tr>
 }
@@ -143 +144 @@
 </center>
 }
+
+
+package homepref
+
+_javalinks_ {_homepref:imagehome_}
+_javalinks_ [v=1] {
+_homepref:imagehome_<br>
+}
+
+_pagescriptextra_ {_preferences:pagescriptextra_}
+
+
+_imagehome_ {_gsimage_(_homepref:httppagehome_,_httpiconchomeof_,_httpiconchomeon_,homer,_textimagehome_)}
+_httppagehome_ {_httppagex_(home)}
+
+_content_ {
+<center>
+<p>_iconblankbar_
+</center>
+
+<form name=PrefForm method=get action="_gwcgi_">
+<h3>_preferences:textpresentationprefs_</h3>
+
+<table border="0">
+<tr valign="top">
+<td>_preferences:textlanguage_</td>
+<td><select name="l" onChange="updatel();">
+<option value="en" _If_("_cgiargl_" eq "en", selected)>English
+<option value="fr" _If_("_cgiargl_" eq "fr", selected)>French
+<option value="es" _If_("_cgiargl_" eq "es", selected)>Spanish
+</select>
+</td>
+</tr>
+<tr valign="top">
+_preferences:formatoption_
+</tr>
+</table>
+<p>_iconblankbar_
+}