Moved Perl version drop-down menu to external JavaScript file

jonallen · May 16, 2010 · ef7adda · ef7adda
1 parent 0a819d6
commit ef7adda
Show file tree

Hide file tree

Showing 7 changed files with 873 additions and 1,116 deletions.
diff --git a/javascript/perlversion.js b/javascript/perlversion.js
@@ -0,0 +1,21 @@
+// perlversion.js - writes Perl version drop-down menu
+
+function selectPerlVersion(element) {
+  if (element.value.substring(0,1) == '/') {
+    location.href = element.value;
+  }
+}
+
+document.write('<select id="perl_version_select" name="version-chooser" onChange="selectPerlVersion(this)">');
+document.write('  <option selected>Select...');
+document.write('  <optgroup label="Perl 5 version 12">');
+document.write('    <option value="/index.html">Perl 5.12.0');
+document.write('  </optgroup>');
+document.write('  <optgroup label="Perl 5 version 10">');
+document.write('    <option value="/5.10.0/index.html">Perl 5.10.0');
+document.write('  </optgroup>');
+document.write('  <optgroup label="Perl 5 version 8">');
+document.write('    <option value="/5.8.9/index.html">Perl 5.8.9');
+document.write('    <option value="/5.8.8/index.html">Perl 5.8.8');
+document.write('  </optgroup>');
+document.write('</select>');