Updated for recent versions of Perl

Author: Jon Allen

Diff for: javascript/perlversion.js

@@ -8,8 +8,15 @@ function selectPerlVersion(element) {
 
 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 14">');
+document.write('    <option value="/index.html">Perl 5.14.1');
+document.write('    <option value="/5.14.0/index.html">Perl 5.14.0');
+document.write('  </optgroup>');
 document.write('  <optgroup label="Perl 5 version 12">');
-document.write('    <option value="/index.html">Perl 5.12.1');
+document.write('    <option value="/5.12.4/index.html">Perl 5.12.4');
+document.write('    <option value="/5.12.3/index.html">Perl 5.12.3');
+document.write('    <option value="/5.12.2/index.html">Perl 5.12.2');
+document.write('    <option value="/5.12.1/index.html">Perl 5.12.1');
 document.write('    <option value="/5.12.0/index.html">Perl 5.12.0');
 document.write('  </optgroup>');
 document.write('  <optgroup label="Perl 5 version 10">');
@@ -20,4 +27,4 @@ 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>');
+document.write('</select>');

Diff for: javascript/search.js

@@ -347,9 +347,9 @@ var perldocSearch = {
             }
           }
           if (this.request) {
-            if (this.request.overrideMimeType) {
-              this.request.overrideMimeType("text/javascript");
-            }
+            //if (this.request.overrideMimeType) {
+              //this.request.overrideMimeType("text/javascript");
+            //}
             this.request.open('GET', filename, false);
             this.request.send(null);
             if (this.request.responseText) {

Diff for: static-html/index.html

@@ -11,11 +11,20 @@ <h1>Perl 5 version [% perl5_version %] documentation</h1>
       and the extensive <a href="index-faq.html">FAQ</a> section, which provides answers to over 300 common questions.
     </p>
 
-    <h2>What's new?</h2>
-    <p>
-      As you can see, <strong>perldoc.perl.org</strong> has had a redesign! But it's not just about visuals,
-      almost every aspect of the site has been tweaked and updated, including:
-    </p>
+    <h2>Site features</h2>
+    
+    [% UNLESS download %]
+          <div style="float: right; padding-top: 20px;">
+<a title="The Perl Foundation"
+href="http://www.facebook.com/tpf.perl"
+target="_TOP">
+<img style="border: 0px;"
+src="http://badge.facebook.com/badge/213296278682699.2549.1757479420.png"
+alt="" width="120" height="259" /></a>
+    </div>
+    [% END %]
+     
+    <div[% UNLESS download %] style="width: 500px"[% END %]>     
     <ul>
       <li><strong>Improved navigation</strong><br>
       When you scroll down a page, the top navigation bar remains visible at the top of your screen,
@@ -41,8 +50,7 @@ <h2>What's new?</h2>
       View the module indexes with a single click from the left-hand side panel.
 
     </ul>
-    
-   
+    </div>
 
     <a name="download"></a>
     <h2>Downloads</h2>

Diff for: syntax.cache

@@ -199,8 +199,7 @@ Explorer 8</a>
           <div id="address">
             <p class="name">Contact details</p>
             <p class="address">
-	      Site maintained by <a href="http://perl.jonallen.info">Jon Allen (JJ)</a><br>
-	      See the <a href="http://perl.jonallen.info/projects/perldoc">project page</a> for more details
+	      Site maintained by <a href="mailto:[email protected]">Jon Allen (JJ)</a><br>
 	    </p>
             <p class="contact">
               Documentation maintained by the <a href="http://lists.cpan.org/showlist.cgi?name=perl5-porters">Perl 5 Porters</a>