Packman Build Service PMBS

get_iplayer.changes Changed

@@ -1,4 +1,57 @@
 -------------------------------------------------------------------
+Sun Jun  3 00:45:49 UTC 2012 - malcolmlewis@opensuse.org
+
+- Updated to version 2.82:
+  - Update to 2.81 was superceeded.
+- Updates from version 2.8.1:
+  + Match web pvr version with main script on release.
+  + Removed obsolete update warnings.
+  + Web PVR: fix update URL.
+  + Added --tag-cnid option.
+  + Update --versions description in man page.
+  + Web PVR: accommodate IE9 standards mode.
+  + Adjusted bit rate threshold for HD streams.
+  + Don't force --future with --pvr-queue.
+  + Podcast plugin: increased index number range.
+  + Allow PID in lieu of search terms for --pvr-add.
+  + Ensure that loop always receives an array even if only one
+    series.
+  + Update --versions help text and error message for signed-only
+    programmes.
+  + Update handling of live channel URLs.
+  + Remove BBC 7 from schedule listings only.
+  + Restore BBC 7 to channel lists.
+  + Update Channel Lists.
+  + Note in man page/help screen that --search=.* may still be
+    used.
+  + Web PVR: Allow Search = .* with additional advanced search
+    criteria.
+  + Note 'best' alias for recording mode in man page/help screen.
+  + Web PVR: Prevent adding search = .* to pvr list.
+  + Prevent missing search term(s) from recording all available
+    programmes.
+  + Fix spelling errors.
+  + Web PVR: Remove "iphone" from default mode lists.
+  + Remove "iphone" from "best" mode alias and man page/help
+    screen.
+  + Fix incorrect population of programme data from in-memory
+    cache.
+  + Update man page with new options.
+  + added --tagonly option to re-apply the tags to matching
+    downloaded programmes. Also can be used with --history to
+    re-tag matching programmes that are no longer available.
+  + Added --no-tag option.
+  + Windows installer: update config for AtomicParsley.
+  + Improve CSS to work with Internet Explorer. Fix programme type
+    list to show Live BBC Radio and remove ITV.
+  + Fixed programme schedule parsing with --refresh-future.
+  + Escape double quotes in parameters for Windows tagging
+    applications.
+  + Fixes for UTF-8 metadata.
+  + Added support for parsing Brand->Clip in rdf data. Needed for
+    some BBC pids.
+
+-------------------------------------------------------------------
 Thu Mar  1 19:02:31 UTC 2012 - malcolmlewis@opensuse.org
 
 - Update to latest git release:

get_iplayer.spec Changed

get_iplayer-2.80+git20120103.tar.bz2/CONTRIBUTORS -> get_iplayer-2.82.tar.gz/CONTRIBUTORS Changed

get_iplayer-2.80+git20120103.tar.bz2/Makefile -> get_iplayer-2.82.tar.gz/Makefile Changed

get_iplayer-2.80+git20120103.tar.bz2/get_iplayer -> get_iplayer-2.82.tar.gz/get_iplayer Changed

@@ -24,7 +24,7 @@
 #
 #
 package main;
-my $version = 2.80;
+my $version = 2.82;
 #
 # Help:
 #	./get_iplayer --help | --longhelp
@@ -246,6 +246,7 @@
 
 	# Tagging
 	notag => [ 1, "notag|no-tag!", 'Tagging', '--no-tag', "Do not tag downloaded programmes"],
+	tag_cnid => [ 1, "tagcnid|tag-cnid!", 'Tagging', '--tag-cnid', "AtomicParsley supports --cnID argument to add catalog ID used for combining HD and SD versions in iTunes"],
 	tag_fulltitle => [ 1, "tagfulltitle|tag-fulltitle!", 'Tagging', '--tag-fulltitle', "Use complete title (including series) instead of shorter episode title"],
 	tag_hdvideo => [ 1, "taghdvideo|tag-hdvideo!", 'Tagging', '--tag-hdvideo', "AtomicParsley supports --hdvideo argument for HD video flag"],
 	tag_longdesc => [ 1, "taglongdesc|tag-longdesc!", 'Tagging', '--tag-longdesc', "AtomicParsley supports --longdesc argument for long description text"],
@@ -543,7 +544,7 @@
 # check if no search term(s) specified
 my $no_search_args = $#search_args < 0;
 # Assume search term is '.*' if nothing is specified - i.e. lists all programmes
-push @search_args, '.*' if ! $search_args[0];
+push @search_args, '.*' if ! $search_args[0] && ! $opt->{pid};
 
 # Auto-detect http:// url or <type>:http:// in a search term and set it as a --pid option (disable if --fields is used).
 if ( $search_args[0] =~ m{^(\w+:)?http://} && ( ! $opt->{pid} ) && ( ! $opt->{fields} ) ) {
@@ -567,8 +568,8 @@
 
 # PVR functions
 if ( $opt->{pvradd} ) {
-	if ( $no_search_args ) {
-		main::logger "ERROR: Search term(s) required for recording\n";
+	if ( ! $opt->{pid} && $no_search_args ) {
+		main::logger "ERROR: Search term(s) or PID required for recording\n";
 		exit 1;
 	}
 	$pvr->add( $opt->{pvradd}, @search_args );
@@ -587,7 +588,7 @@
 
 } elsif ( $opt->{pvrqueue} ) {
 	if ( ! $opt->{pid} && $no_search_args ) {
-		main::logger "ERROR: Search term(s) required for recording\n";
+		main::logger "ERROR: Search term(s) or PID required for recording\n";
 		exit 1;
 	}
 	$pvr->queue( @search_args );
@@ -2022,22 +2023,12 @@
 
 	# Are we flagged as installed using a pkg manager?
 	if ( $opt->{packagemanager} ) {
-		if ( $opt->{packagemanager} =~ /(apt|deb|dpkg)/i ) {
-			logger "INFO: Please run the following commands to update get_iplayer using $opt->{packagemanager}\n".
-			"  wget http://linuxcentre.net/get_iplayer/packages/get-iplayer-current.deb\n".
-			"  sudo dpkg -i get-iplayer-current.deb\n".
-			"  sudo apt-get -f install\n";
-		} elsif ( $opt->{packagemanager} =~ /yum/i ) {
-			logger "INFO: Please run the following commands as root to update get_iplayer using $opt->{packagemanager}\n".
-			"  wget http://linuxcentre.net/get_iplayer/packages/get_iplayer-current.noarch.rpm\n".
-			"  yum --nogpgcheck localinstall get_iplayer-current.noarch.rpm\n";
-		} elsif ( $opt->{packagemanager} =~ /rpm/i ) {
-			logger "INFO: Please run the following command as root to update get_iplayer using $opt->{packagemanager}\n".
-			"  rpm -Uvh http://linuxcentre.net/get_iplayer/packages/get_iplayer-current.noarch.rpm\n";
+		if ( $opt->{packagemanager} =~ /installer/i ) {
+			logger "ERROR: get_iplayer should only be updated using the Windows installer: http://www.infradead.org/get_iplayer_win/get_iplayer_setup_latest.exe\n";
 		} elsif ( $opt->{packagemanager} =~ /disable/i ) {
-			logger "ERROR: get_iplayer should only be updated using your local package management system, for more information see http://linuxcentre.net/installation\n";
+			logger "ERROR: get_iplayer should only be updated using your local package management system.  Please refer to your system documentation.\n";
 		} else {
-			logger "ERROR: get_iplayer was installed using '$opt->{packagemanager}' package manager please refer to the update documentation at http://linuxcentre.net/getiplayer/installation/\n";
+			logger "ERROR: get_iplayer was installed using the '$opt->{packagemanager}' package manager.  Please refer to the package manager documentation.\n";
 		}
 		exit 1;
 	} 
@@ -3098,7 +3089,7 @@
 	my @man;
 	my @dump;
 	push @man, 
-		'.TH GET_IPLAYER "1" "August 2011" "Phil Lewis" "get_iplayer Manual"',
+		'.TH GET_IPLAYER "1" "June 2012" "Phil Lewis" "get_iplayer Manual"',
 		'.SH NAME', 'get_iplayer - Stream Recording tool and PVR for BBC iPlayer, BBC Podcasts and more',
 		'.SH SYNOPSIS',
 		'\fBget_iplayer\fR [<options>] [<regex|index> ...]',
@@ -5619,7 +5610,7 @@
 	my @pids = ();
 	my $bpid = extract_pid( $uri );
 	main::logger "INFO:  Brand: '".$rdf->{'po:Brand'}->{'dc:title'}."' ($bpid)\n";
-	for my $series_element ( @{ $rdf->{'po:Brand'}->{'po:series'} } ) {
+	for my $series_element ( ensure_array($rdf->{'po:Brand'}->{'po:series'}) ) {
 		main::logger "INFO: With Series pid '".$series_element->{'rdf:resource'}."'\n" if $opt->{debug};
 		push @pids, parse_rdf_series( $ua, $series_element->{'rdf:resource'} );
 	}
@@ -6131,7 +6122,7 @@
 			# Determine classifications of modes based mainly on bitrate
 
 			# flashhd modes
-			if ( $mattribs->{bitrate} > 3000 ) {
+			if ( $mattribs->{bitrate} > 2000 ) {
 				get_stream_data_cdn( $data, $mattribs, 'flashhd', 'rtmp', 'mp4' );
 
 			# flashvhigh modes
@@ -9192,8 +9183,6 @@
 
 	# Switch on --hide option
 	$opt->{hide} = 1;
-	# Switch on --future option - we want to search upcoming programmes
-	$opt->{future} = 1;
 	my $hist = History->new();
 
 	# PID and TYPE specified
@@ -9481,7 +9470,7 @@
 	# iTunes media kind
 	$tags->{stik} = 'Normal';
 	if ( $meta->{ext} =~ /(mp4|m4v)/i) {
-		$tags->{stik} = $meta->{categories} =~ /(film|movie)/i ? 'Movie' : 'TV Show';
+		$tags->{stik} = $meta->{categories} =~ /(film|movie)/i ? 'Short Film' : 'TV Show';
 	}
 	$tags->{advisory} = $meta->{guidance} ? 'explicit' : 'remove';
 	# copyright message from download date
@@ -9526,8 +9515,8 @@
 	$tags->{disk} = $meta->{seriesnum};
 	# generate lyrics text with links if available
 	$tags->{lyrics} = $meta->{desc};
-	$tags->{lyrics} .= "\n\nEPISODE\n  $meta->{player}" if $meta->{player};
-	$tags->{lyrics} .= "\n\nSERIES\n  $meta->{web}" if $meta->{web};
+	$tags->{lyrics} .= "\n\nEPISODE\n$meta->{player}" if $meta->{player};
+	$tags->{lyrics} .= "\n\nSERIES\n$meta->{web}" if $meta->{web};
 	$tags->{description} = $meta->{descshort};
 	$tags->{longDescription} = $meta->{desc};
 	$tags->{hdvideo} = $meta->{mode} =~ /hd/i ? 'true' : 'false';
@@ -9755,6 +9744,7 @@
 		# video only
 		if ( $tags->{is_video} ) {
 			# all video
+			push @cmd, ( '--cnID', 3004 ) if $opt->{tag_cnid};
 			push @cmd, ( '--hdvideo', $tags->{hdvideo} ) if $opt->{tag_hdvideo};
 			# tv only
 			if ( $tags->{is_tvshow} ) {

get_iplayer-2.80+git20120103.tar.bz2/get_iplayer.1 -> get_iplayer-2.82.tar.gz/get_iplayer.1 Changed

@@ -1,4 +1,4 @@
-.TH GET_IPLAYER "1" "August 2011" "Phil Lewis" "get_iplayer Manual"
+.TH GET_IPLAYER "1" "June 2012" "Phil Lewis" "get_iplayer Manual"
 .SH NAME
 get_iplayer \- Stream Recording tool and PVR for BBC iPlayer, BBC Podcasts and more
 .SH SYNOPSIS
@@ -72,7 +72,7 @@
 Only search in these types of programmes: livetv,tv,liveradio,radio,all (tv is default)
 .TP
 \fB\-\-versions <versions>
-Version of programme to search or record (e.g. '\-\-versions signed,audiodescribed,default')
+Version of programme to search or record.  List is processed from left to right and first version found is downloaded.  Example: '\-\-versions signed,audiodescribed,default' will prefer signed and audiodescribed programmes if available.  Default: 'default'
 .SS "Display Options:"
 .TP
 \fB\-\-conditions
@@ -495,6 +495,9 @@
 \fB\-\-no\-tag
 Do not tag downloaded programmes
 .TP
+\fB\-\-tag\-cnid
+AtomicParsley supports \-\-cnID argument to add catalog ID used for combining HD and SD versions in iTunes
+.TP
 \fB\-\-tag\-fulltitle
 Use complete title (including series) instead of shorter episode title
 .TP
@@ -523,7 +526,7 @@
 .PP
 This manual page was originally written by Jonathan Wiltshire <jmw@debian.org> for the Debian project (but may be used by others).
 .SH COPYRIGHT NOTICE
-get_iplayer v2.80, Copyright (C) 2008\-2010 Phil Lewis
+get_iplayer v2.82, Copyright (C) 2008\-2010 Phil Lewis
   This program comes with ABSOLUTELY NO WARRANTY; for details use \-\-warranty.
   This is free software, and you are welcome to redistribute it under certain
   conditions; use \-\-conditions for details.

get_iplayer-2.80+git20120103.tar.bz2/get_iplayer.cgi -> get_iplayer-2.82.tar.gz/get_iplayer.cgi Changed

@@ -24,7 +24,7 @@
 # License: GPLv3 (see LICENSE.txt)
 #
 
-my $VERSION = '0.72';
+my $VERSION = 2.82;
 
 use strict;
 use CGI ':all';
@@ -1280,7 +1280,7 @@
 # If the get_iplayer.cgi script is unwritable then quit
 # update script
 sub update_script {
-	my $update_url	= 'http://linuxcentre.net/get_iplayer/get_iplayer.cgi';
+	my $update_url	= 'http://www.infradead.org/get_iplayer/latest/get_iplayer.cgi';
 	# Get version URL
 	my $script_file = $0;
 	my $ua = create_ua('update');
@@ -1839,9 +1839,9 @@
 	        # Sort by column click and change display class (colour) according to sort status
 	        my ($title, $class, $onclick);
 	        if ( $sort_field eq $heading && not $reverse ) {
-                  ($title, $class, $onclick) = ("Sort by Reverse $fieldname{$heading}", 'sorted pointer', "BackupFormVars(form); form.NEXTPAGE.value='pvr_list'; form.PVRSORT.value='$heading'; form.PVRREVERSE.value=1; submit(); RestoreFormVars(form);");
+                  ($title, $class, $onclick) = ("Sort by Reverse $fieldname{$heading}", 'sorted pointer', "BackupFormVars(form); form.NEXTPAGE.value='pvr_list'; form.PVRSORT.value='$heading'; form.PVRREVERSE.value=1; form.submit(); RestoreFormVars(form);");
                 } else {
-                  ($title, $class, $onclick) = ("Sort by $fieldname{$heading}", 'unsorted pointer', "BackupFormVars(form); form.NEXTPAGE.value='pvr_list'; form.PVRSORT.value='$heading'; submit(); RestoreFormVars(form); ");
+                  ($title, $class, $onclick) = ("Sort by $fieldname{$heading}", 'unsorted pointer', "BackupFormVars(form); form.NEXTPAGE.value='pvr_list'; form.PVRSORT.value='$heading'; form.submit(); RestoreFormVars(form); ");
                 }
                 $class = 'sorted_reverse pointer' if $sort_field eq $heading && $reverse;
 
@@ -1875,7 +1875,7 @@
 				label( {
 					-title		=> "Click to Edit",
 					-class		=> 'search',
-					-onClick	=> "BackupFormVars(form); form.NEXTPAGE.value='pvr_edit'; form.PVRSEARCH.value='$name'; submit(); RestoreFormVars(form);",
+					-onClick	=> "BackupFormVars(form); form.NEXTPAGE.value='pvr_edit'; form.PVRSEARCH.value='$name'; form.submit(); RestoreFormVars(form);",
 					},
 					$pvrsearch->{$name}->{$_},
 				)
@@ -2757,9 +2757,9 @@
 		my ($title, $class, $onclick);
 
 		if ( $opt->{SORT}->{current} eq $heading && not $opt->{REVERSE}->{current} ) {
-			($title, $class, $onclick) = ("Sort by Reverse $heading", 'sorted pointer', "form.NEXTPAGE.value='search_progs'; form.SORT.value='$heading'; form.REVERSE[0].checked=true; submit();");
+			($title, $class, $onclick) = ("Sort by Reverse $heading", 'sorted pointer', "form.NEXTPAGE.value='search_progs'; form.SORT.value='$heading'; form.REVERSE[0].checked=true; form.submit();");
 		} else {
-			($title, $class, $onclick) = ("Sort by $heading", 'unsorted pointer', "form.NEXTPAGE.value='search_progs'; form.SORT.value='$heading'; form.REVERSE[1].checked=true; submit();");
+			($title, $class, $onclick) = ("Sort by $heading", 'unsorted pointer', "form.NEXTPAGE.value='search_progs'; form.SORT.value='$heading'; form.REVERSE[1].checked=true; form.submit();");
 		}
 		$class = 'sorted_reverse pointer' if $opt->{SORT}->{current} eq $heading && $opt->{REVERSE}->{current};
 
@@ -2857,7 +2857,7 @@
 				-id=>'nowrap', 
 				-class=>'search pointer_noul',
 				-title=>"Add Series '$prog{$pid}->{name}' to PVR", 
-				-onClick=>"BackupFormVars(form); form.NEXTPAGE.value='pvr_add'; form.SEARCH.value='".encode_entities("^$prog{$pid}->{name}\$")."'; form.SEARCHFIELDS.value='name'; form.PROGTYPES.value='$prog{$pid}->{type}'; form.HISTORY.value='0'; form.SINCE.value=''; form.BEFORE.value=''; submit(); RestoreFormVars(form);" }, 'Add Series' );
+				-onClick=>"BackupFormVars(form); form.NEXTPAGE.value='pvr_add'; form.SEARCH.value='".encode_entities("^$prog{$pid}->{name}\$")."'; form.SEARCHFIELDS.value='name'; form.PROGTYPES.value='$prog{$pid}->{type}'; form.HISTORY.value='0'; form.SINCE.value=''; form.BEFORE.value=''; form.submit(); RestoreFormVars(form);" }, 'Add Series' );
 		}
 
 		# Add links to row
@@ -2880,12 +2880,12 @@
 			} elsif ( /^timeadded$/ ) {
 				my @t = gmtime( $time - $prog{$pid}->{$_} );
 				my $years = ($t[5]-70)."y " if ($t[5]-70) > 0;
-				push @row, td( {-class=>$search_class}, label( { -class=>$search_class, -title=>"Click for full info", -onClick=>"BackupFormVars(form); form.NEXTPAGE.value='show_info'; form.INFO.value='".encode_entities("$prog{$pid}->{type}|$pid")."'; submit(); RestoreFormVars(form);" }, "${years}$t[7]d $t[2]h ago" ) );
+				push @row, td( {-class=>$search_class}, label( { -class=>$search_class, -title=>"Click for full info", -onClick=>"BackupFormVars(form); form.NEXTPAGE.value='show_info'; form.INFO.value='".encode_entities("$prog{$pid}->{type}|$pid")."'; form.submit(); RestoreFormVars(form);" }, "${years}$t[7]d $t[2]h ago" ) );
 			# truncate the description if it is too long
 			} elsif ( /^desc$/ ) {
 				my $text = $prog{$pid}->{$_};
 				$text = substr($text, 0, 256).'...[more]' if length( $text ) > 256;
-				push @row, td( {-class=>$search_class}, label( { -class=>$search_class, -title=>"Click for full info", -onClick=>"BackupFormVars(form); form.NEXTPAGE.value='show_info'; form.INFO.value='".encode_entities("$prog{$pid}->{type}|$pid")."'; submit(); RestoreFormVars(form);" }, $text ) );
+				push @row, td( {-class=>$search_class}, label( { -class=>$search_class, -title=>"Click for full info", -onClick=>"BackupFormVars(form); form.NEXTPAGE.value='show_info'; form.INFO.value='".encode_entities("$prog{$pid}->{type}|$pid")."'; form.submit(); RestoreFormVars(form);" }, $text ) );
 			# Name / Series link
 			} elsif ( /^name$/ ) {
 				push @row, td( {-class=>$search_class}, label( { -class=>$search_class, -id=>'underline', -title=>"Click to list '$prog{$pid}->{$_}'",
@@ -2895,7 +2895,7 @@
 						form.SEARCHFIELDS.value='name';
 						form.SEARCH.value='".encode_entities('^'.$prog{$pid}->{$_}.'$')."';
 						form.PAGENO.value=1;
-						submit();
+						form.submit();
 						RestoreFormVars(form);
 					"}, $prog{$pid}->{$_} )
 				);
@@ -2909,7 +2909,7 @@
 						form.EXCLUDECHANNEL.value='';
 						form.SEARCH.value='.*';
 						form.PAGENO.value=1;
-						submit();
+						form.submit();
 						RestoreFormVars(form);
 					"}, $prog{$pid}->{$_} )
 				);
@@ -2927,7 +2927,7 @@
 							form.EXCLUDECATEGORY.value='';
 							form.SEARCH.value='.*';
 							form.PAGENO.value=1;
-							submit();
+							form.submit();
 							RestoreFormVars(form);
 						"},
 					$category );
@@ -2935,7 +2935,7 @@
 				push @row, td( {-class=>$search_class}, @cats );
 			# Every other column type
 			} else {
-				push @row, td( {-class=>$search_class}, label( { -class=>$search_class, -title=>"Click for full info", -onClick=>"BackupFormVars(form); form.NEXTPAGE.value='show_info'; form.INFO.value='".encode_entities("$prog{$pid}->{type}|$pid")."'; submit(); RestoreFormVars(form);" }, $prog{$pid}->{$_} ) );
+				push @row, td( {-class=>$search_class}, label( { -class=>$search_class, -title=>"Click for full info", -onClick=>"BackupFormVars(form); form.NEXTPAGE.value='show_info'; form.INFO.value='".encode_entities("$prog{$pid}->{type}|$pid")."'; form.submit(); RestoreFormVars(form);" }, $prog{$pid}->{$_} ) );
 			}
 		}
 		push @html, Tr( {-class=>$search_class}, @row );
@@ -2991,7 +2991,7 @@
 			label( {
 				-class		=> 'options_outer pointer_noul',
 				-title		=> 'Remember Current Options as Default',
-				-onClick	=> "BackupFormVars(form); form.SAVE.value=1; submit(); RestoreFormVars(form);",
+				-onClick	=> "BackupFormVars(form); form.SAVE.value=1; form.submit(); RestoreFormVars(form);",
 				},
 				'Save As Default',
 			),
@@ -3190,14 +3190,14 @@
 	push @pagetrail, td( { -class=>'pagetrail pointer' }, label( {
 		-title		=> "Previous Page",
 		-class		=> 'pagetrail pointer',
-		-onClick	=> "BackupFormVars(form); form.NEXTPAGE.value='search_progs'; form.PAGENO.value=$page-1; submit(); RestoreFormVars(form);",},
+		-onClick	=> "BackupFormVars(form); form.NEXTPAGE.value='search_progs'; form.PAGENO.value=$page-1; form.submit(); RestoreFormVars(form);",},
 		"<<",
 	)) if $page > 1;
 
 	push @pagetrail, td( { -class=>'pagetrail pointer' }, label( {
 		-title		=> "Page 1",
 		-class		=> 'pagetrail pointer',
-		-onClick	=> "BackupFormVars(form); form.NEXTPAGE.value='search_progs'; form.PAGENO.value=1; submit(); RestoreFormVars(form);",},
+		-onClick	=> "BackupFormVars(form); form.NEXTPAGE.value='search_progs'; form.PAGENO.value=1; form.submit(); RestoreFormVars(form);",},
 		"1",
 	)) if $page > 1;
 
@@ -3207,7 +3207,7 @@
 		push @pagetrail, td( { -class=>'pagetrail pointer' }, label( {
 			-title		=> "Page $pn",
 			-class		=> 'pagetrail pointer',
-			-onClick	=> "BackupFormVars(form); form.NEXTPAGE.value='search_progs'; form.PAGENO.value='$pn'; submit(); RestoreFormVars(form);",},
+			-onClick	=> "BackupFormVars(form); form.NEXTPAGE.value='search_progs'; form.PAGENO.value='$pn'; form.submit(); RestoreFormVars(form);",},
 			"$pn",
 		)) if $pn > 1 && $pn != $page && $pn < $pages;
 		push @pagetrail, td( { -class=>'pagetrail' }, label( {
@@ -3221,14 +3221,14 @@
 	push @pagetrail, td( { -class=>'pagetrail pointer' }, label( {
 		-title		=> "Page ".$pages,
 		-class		=> 'pagetrail pointer',
-		-onClick	=> "BackupFormVars(form); form.NEXTPAGE.value='search_progs'; form.PAGENO.value=$pages; submit(); RestoreFormVars(form);",},
+		-onClick	=> "BackupFormVars(form); form.NEXTPAGE.value='search_progs'; form.PAGENO.value=$pages; form.submit(); RestoreFormVars(form);",},
 		"$pages",
 	)) if $page < $pages;
 
 	push @pagetrail, td( { -class=>'pagetrail pointer' }, label( {
 		-title		=> "Next Page",
 		-class		=> 'pagetrail pointer',
-		-onClick	=> "BackupFormVars(form); form.NEXTPAGE.value='search_progs'; form.PAGENO.value=$page+1; submit(); RestoreFormVars(form);",},
+		-onClick	=> "BackupFormVars(form); form.NEXTPAGE.value='search_progs'; form.PAGENO.value=$page+1; form.submit(); RestoreFormVars(form);",},
 		">>",
 	)) if $page < $pages;
 
@@ -3479,7 +3479,7 @@
 		type	=> 'popup', # type
 		default	=> 20, # default
 		value	=> ['10','25','50','100','200','400'], # values
-		onChange=> "BackupFormVars(form); form.NEXTPAGE.value='search_progs'; form.PAGENO.value=1; submit(); RestoreFormVars(form);",
+		onChange=> "BackupFormVars(form); form.NEXTPAGE.value='search_progs'; form.PAGENO.value=1; form.submit(); RestoreFormVars(form);",
 		save	=> 1,
 	};
 
@@ -3491,7 +3491,7 @@
 		label	=> \%fieldname, # labels
 		default	=> 'index', # default
 		value	=> [@headings], # values
-		onChange=> "BackupFormVars(form); form.NEXTPAGE.value='search_progs'; submit(); RestoreFormVars(form);",
+		onChange=> "BackupFormVars(form); form.NEXTPAGE.value='search_progs'; form.submit(); RestoreFormVars(form);",
 		save	=> 1,
 	};
 
@@ -3500,7 +3500,7 @@
 		tooltip	=> 'Reverse the sort order', # Tooltip
 		webvar	=> 'REVERSE', # webvar
 		type	=> 'radioboolean', # type
-		#onChange=> "BackupFormVars(form); form.NEXTPAGE.value='search_progs'; submit(); RestoreFormVars(form);",
+		#onChange=> "BackupFormVars(form); form.NEXTPAGE.value='search_progs'; form.submit(); RestoreFormVars(form);",
 		default	=> '0', # value
 		save	=> 1,
 	};
@@ -3795,7 +3795,7 @@
 		label	=> , \%streamtype_labels, # labels
 		default	=> '', # default
 		value	=> [ '', 'none', 'flv', 'mov', 'asf', 'avi', 'mp3', 'aac', 'wav', 'flac' ], # values
-		onChange=> "submit();",
+		onChange=> "form.submit();",
 		save	=> 1,
 	};

get_iplayer-2.80+git20120103.tar.bz2/html/get_iplayer.html -> get_iplayer-2.82.tar.gz/html/get_iplayer.html Changed

get_iplayer-2.80+git20120103.tar.bz2/plugins/podcast.plugin -> get_iplayer-2.82.tar.gz/plugins/podcast.plugin Changed

Changes of Revision 5