>From 4756b32b57ac9d994b5155e1c1caeff67998d23e Mon Sep 17 00:00:00 2001
From: Pete Beardmore <pete.beardmore@msn.com>
Date: Sat, 13 Apr 2013 16:16:09 +0100
Subject: [PATCH] fix javascript for hidden elements created by perl < 5.8.5

---
 get_iplayer.cgi |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/get_iplayer.cgi b/get_iplayer.cgi
index ce9d980..f7de953 100755
--- a/get_iplayer.cgi
+++ b/get_iplayer.cgi
@@ -4088,7 +4088,9 @@ sub insert_javascript {
 		for(var i = 0; i < tabs.length; i++) {
 			var li     = document.getElementById( 'li_' + tabs[i] );
 			var tab    = document.getElementById( 'tab_' + tabs[i] );
-			var option = document.getElementById( 'option_' + tabs[i] );
+EOF
+	print $fh "			var option = document.". ( $] < 5.008005 ? "getElementsByName( tabs[i] )[0];" : "getElementById( 'option_' + tabs[i] );") . "\n";
+	print $fh <<EOF;
 			var button = document.getElementById( 'button_' + tabs[i] );
 			if ( tab == selected_tab ) {
 				tab.style.display = 'table-cell';
-- 
1.7.4.4