Diff of /perl/embperl/trunk/eg/web/header.epl

Parent Directory | Revision Log | Patch

--- perl/embperl/trunk/eg/web/header.epl	2006/04/12 16:18:36	393495
+++ perl/embperl/trunk/eg/web/header.epl	2006/04/12 16:22:29	393496
@@ -49,8 +49,8 @@ $parm = ".-$parm-" if ($parm) ;
 <input type="hidden" name="ie" value="ISO-8859-1"></input>
 <input type="hidden" name="oe" value="ISO-8859-1"></input>
 <input type="hidden" name="cof" value="GALT:#008000;GL:1;DIV:#336699;VLC:663399;AH:center;BGC:FFFFFF;LBGC:336699;ALC:0000FF;LC:0000FF;T:000000;GFNT:0000FF;GIMP:0000FF;LH:74;LW:74;L:http://www.ecos.de/embperl/images/EmbperlLogo.gif;S:http://www.ecos.de/embperl;LP:1;FORID:1;"></input>
-<input type="hidden" name="hl" value="de"></input>
-<input type="submit" name="sa" value="Suchen"></input>
+<input type="hidden" name="hl" value="[+ $r -> param -> language +]"></input>
+<input type="submit" name="sa" value="[+ $r -> param -> language eq 'de'?'Suchen':'Search' +]"></input>
 </td></tr></table>
 </form>
 <!-- SiteSearch Google -->