[xmltv-commit] CVS: xmltv/grab/br_net tv_grab_br_net,1.13,1.14

[Max B. <b4...@us...>]

Update of /cvsroot/xmltv/xmltv/grab/br_net
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv23568

Modified Files:
	tv_grab_br_net 
Log Message:
bugfix


Index: tv_grab_br_net
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/br_net/tv_grab_br_net,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** tv_grab_br_net	9 Jun 2006 15:21:00 -0000	1.13
--- tv_grab_br_net	10 Jun 2006 00:26:09 -0000	1.14
***************
*** 205,208 ****
--- 205,209 ----
  	$chs->{$number}->{Number} = $number;
  	$chs->{$number}->{Name} = $3;
+ 	# remove weird trailing star (no explanation on the site)
  	$chs->{$number}->{Name} =~ s/\*$//;
  	$chs->{$number}->{rfc2838} = &rfc2838($chs->{$number});
***************
*** 411,416 ****
      if ($html =~ /<LI><SPAN[^>]*>([^<]*)<\/SPAN><BR>\s*<SPAN[^>]*>(...)?\s+\Q$num\E<\/SPAN><BR>\s*<SPAN[^>]*>([^<]*)<\/SPAN>\s*<\/UL>/si) {
  	$ch->{Name} = $1 unless $ch->{Name};
! 	$ch->{Name} =~ s/\*$//;
! 	$ch->{Abbreviation} = $2 if $2 && $2 ne $1;
  	$ch->{Description} = $3;
  	# remove consecutive whitespace
--- 412,416 ----
      if ($html =~ /<LI><SPAN[^>]*>([^<]*)<\/SPAN><BR>\s*<SPAN[^>]*>(...)?\s+\Q$num\E<\/SPAN><BR>\s*<SPAN[^>]*>([^<]*)<\/SPAN>\s*<\/UL>/si) {
  	$ch->{Name} = $1 unless $ch->{Name};
! 	$ch->{Abbreviation} = $2 if $2 && $2 ne $ch->{Name};
  	$ch->{Description} = $3;
  	# remove consecutive whitespace
***************
*** 418,421 ****
--- 418,423 ----
  	# remove leading and trailing whitespace
  	$ch->{Description} =~ s/^\s*(.*)\s*$/$1/g;
+ 	# remove weird trailing star (no explanation on the site)
+ 	$ch->{Name} =~ s/\*$//;
      }else{
  	&delete_ch($ch);