Enable language switch (e75983f50) - tor-webwml.git

include/foot.wmi

@@ -65,55 +65,55 @@
         </div>
       <!-- END COL -->
 
-#	<!-- List available languages -->
-#	<div class="col wider">
-#	<h4>Languages</h4>
-#	<: if (has_translations()) {  :>
-#		<p>
-#		This page is also available in the following languages:
-#		<: print list_translations() :>.<br />
-#		How to set <a href="http://www.debian.org/intro/cn#howtoset">the default document language</a>.
-#		</p>
-#	<: }; :>
-#	</div>
+	<!-- List available languages -->
+	<div class="col wider">
+	<h4>Languages</h4>
+	<: if (has_translations()) {  :>
+		<p>
+		This page is also available in the following languages:
+		<: print list_translations() :>.<br />
+		How to set <a href="http://www.debian.org/intro/cn#howtoset">the default document language</a>.
+		</p>
+	<: }; :>
+	</div>
 
 # LANGUAGE SWITCH CGI
-#      <div class="col wider">
-#      	<h4>Languages</h4>
-#        # this is a cgi trampoline to bounce us to the right page
-#        # alternately, if the client supports javascript we can redirect that way
-#        # noscript does not block onclick but clients may have disabled javascript completely
-#        #
-#        # for this to work we need to know the relative path from the document root
-#        # to the current directory that wml is in.
-#        <form action="$(DOCROOT)/cgi-bin/languageswitch.cgi">
-#          <select name="Language" id="lang">
-#          <:{
-#            #import "perl-globals.wmi";
-#            use Cwd;
-#            use Cwd 'abs_path';
-#            use File::Spec;
-#            my $urlbase = File::Spec->abs2rel(getcwd(),abs_path("$(DOCROOT)"));
-#            my $LANGUAGES;
-#            my $page = $WML_SRC_FILENAME;
-#            opendir(DIR, getcwd()) or die $!;
-#            # take a look and see what language support we have
-#            while (my $file = readdir(DIR)) {
-#                if (-d $file) {
-#                    if (-e "$file/$page") {
-#                        my $url = $urlbase.'/'.$WML_SRC_BASENAME.'.html.'.$file;
-#                        my $url2js = $WML_SRC_BASENAME.'.html.'.$file;
-#                        print '<option value="'.$url.'" onclick="window.location=\''.$url2js.'\'">'.$LANGUAGES{$file}.'</option>'."\n" unless not defined $LANGUAGES{$file};
-#                    }
-#                }
-#            }
-#            closedir(DIR);
-#          }:>
-#          </select>
-#          <input class="go" type="submit" name="submit" value="Go">
-#        </form>
-#        <p>Questions on this? Visit <a href="http://www.debian.org/intro/cn#howtoset">how to set the default document language</a>.</p>
-#      </div>
+      <div class="col wider">
+      	<h4>Languages</h4>
+         # this is a cgi trampoline to bounce us to the right page
+         # alternately, if the client supports javascript we can redirect that way
+         # noscript does not block onclick but clients may have disabled javascript completely
+         #
+         # for this to work we need to know the relative path from the document root
+         # to the current directory that wml is in.
+         <form action="$(DOCROOT)/cgi-bin/languageswitch.cgi">
+           <select name="Language" id="lang">
+           <:{
+             #import "perl-globals.wmi";
+             use Cwd;
+             use Cwd 'abs_path';
+             use File::Spec;
+             my $urlbase = File::Spec->abs2rel(getcwd(),abs_path("$(DOCROOT)"));
+             my $LANGUAGES;
+             my $page = $WML_SRC_FILENAME;
+             opendir(DIR, getcwd()) or die $!;
+             # take a look and see what language support we have
+             while (my $file = readdir(DIR)) {
+                 if (-d $file) {
+                     if (-e "$file/$page") {
+                         my $url = $urlbase.'/'.$WML_SRC_BASENAME.'.html.'.$file;
+                         my $url2js = $WML_SRC_BASENAME.'.html.'.$file;
+                         print '<option value="'.$url.'" onclick="window.location=\''.$url2js.'\'">'.$LANGUAGES{$file}.'</option>'."\n" unless not defined $LANGUAGES{$file};
+                     }
+                 }
+             }
+             closedir(DIR);
+           }:>
+           </select>
+           <input class="go" type="submit" name="submit" value="Go">
+         </form>
+         <p>Questions on this? Visit <a href="http://www.debian.org/intro/cn#howtoset">how to set the default document language</a>.</p>
+       </div>
 #
     </div>
     <!-- END FOOTER -->


...	...	@@ -65,55 +65,55 @@
65	65	</div>
66	66	<!-- END COL -->
67	67
68		-# <!-- List available languages -->
69		-# <div class="col wider">
70		-# <h4>Languages</h4>
71		-# <: if (has_translations()) { :>
72		-# <p>
73		-# This page is also available in the following languages:
74		-# <: print list_translations() :>.<br />
75		-# How to set <a href="http://www.debian.org/intro/cn#howtoset">the default document language</a>.
76		-# </p>
77		-# <: }; :>
78		-# </div>
	68	+ <!-- List available languages -->
	69	+ <div class="col wider">
	70	+ <h4>Languages</h4>
	71	+ <: if (has_translations()) { :>
	72	+ <p>
	73	+ This page is also available in the following languages:
	74	+ <: print list_translations() :>.<br />
	75	+ How to set <a href="http://www.debian.org/intro/cn#howtoset">the default document language</a>.
	76	+ </p>
	77	+ <: }; :>
	78	+ </div>
79	79
80	80	# LANGUAGE SWITCH CGI
81		-# <div class="col wider">
82		-# <h4>Languages</h4>
83		-# # this is a cgi trampoline to bounce us to the right page
84		-# # alternately, if the client supports javascript we can redirect that way
85		-# # noscript does not block onclick but clients may have disabled javascript completely
86		-# #
87		-# # for this to work we need to know the relative path from the document root
88		-# # to the current directory that wml is in.
89		-# <form action="$(DOCROOT)/cgi-bin/languageswitch.cgi">
90		-# <select name="Language" id="lang">
91		-# <:{
92		-# #import "perl-globals.wmi";
93		-# use Cwd;
94		-# use Cwd 'abs_path';
95		-# use File::Spec;
96		-# my $urlbase = File::Spec->abs2rel(getcwd(),abs_path("$(DOCROOT)"));
97		-# my $LANGUAGES;
98		-# my $page = $WML_SRC_FILENAME;
99		-# opendir(DIR, getcwd()) or die $!;
100		-# # take a look and see what language support we have
101		-# while (my $file = readdir(DIR)) {
102		-# if (-d $file) {
103		-# if (-e "$file/$page") {
104		-# my $url = $urlbase.'/'.$WML_SRC_BASENAME.'.html.'.$file;
105		-# my $url2js = $WML_SRC_BASENAME.'.html.'.$file;
106		-# print '<option value="'.$url.'" onclick="window.location=\''.$url2js.'\'">'.$LANGUAGES{$file}.'</option>'."\n" unless not defined $LANGUAGES{$file};
107		-# }
108		-# }
109		-# }
110		-# closedir(DIR);
111		-# }:>
112		-# </select>
113		-# <input class="go" type="submit" name="submit" value="Go">
114		-# </form>
115		-# <p>Questions on this? Visit <a href="http://www.debian.org/intro/cn#howtoset">how to set the default document language</a>.</p>
116		-# </div>
	81	+ <div class="col wider">
	82	+ <h4>Languages</h4>
	83	+ # this is a cgi trampoline to bounce us to the right page
	84	+ # alternately, if the client supports javascript we can redirect that way
	85	+ # noscript does not block onclick but clients may have disabled javascript completely
	86	+ #
	87	+ # for this to work we need to know the relative path from the document root
	88	+ # to the current directory that wml is in.
	89	+ <form action="$(DOCROOT)/cgi-bin/languageswitch.cgi">
	90	+ <select name="Language" id="lang">
	91	+ <:{
	92	+ #import "perl-globals.wmi";
	93	+ use Cwd;
	94	+ use Cwd 'abs_path';
	95	+ use File::Spec;
	96	+ my $urlbase = File::Spec->abs2rel(getcwd(),abs_path("$(DOCROOT)"));
	97	+ my $LANGUAGES;
	98	+ my $page = $WML_SRC_FILENAME;
	99	+ opendir(DIR, getcwd()) or die $!;
	100	+ # take a look and see what language support we have
	101	+ while (my $file = readdir(DIR)) {
	102	+ if (-d $file) {
	103	+ if (-e "$file/$page") {
	104	+ my $url = $urlbase.'/'.$WML_SRC_BASENAME.'.html.'.$file;
	105	+ my $url2js = $WML_SRC_BASENAME.'.html.'.$file;
	106	+ print '<option value="'.$url.'" onclick="window.location=\''.$url2js.'\'">'.$LANGUAGES{$file}.'</option>'."\n" unless not defined $LANGUAGES{$file};
	107	+ }
	108	+ }
	109	+ }
	110	+ closedir(DIR);
	111	+ }:>
	112	+ </select>
	113	+ <input class="go" type="submit" name="submit" value="Go">
	114	+ </form>
	115	+ <p>Questions on this? Visit <a href="http://www.debian.org/intro/cn#howtoset">how to set the default document language</a>.</p>
	116	+ </div>
117	117	#
118	118	</div>
119	119	<!-- END FOOTER -->
120	120