xmltv/grab/fi_sv tv_grab_fi_sv,1.13,1.14

Update of /cvsroot/xmltv/xmltv/grab/fi_sv
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv12939

Modified Files:
	tv_grab_fi_sv 
Log Message:
(minor) don't output 'empty' programmes

Index: tv_grab_fi_sv
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/fi_sv/tv_grab_fi_sv,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** tv_grab_fi_sv	14 Apr 2014 18:13:04 -0000	1.13
--- tv_grab_fi_sv	19 Apr 2014 11:17:19 -0000	1.14
***************
*** 532,535 ****
--- 532,540 ----
  								
  								
+ 								# occasionally it seems there's a 'null' programme (usually with overlapping time)
+ 								# I think we should drop these
+ 								next if $p_title eq '';
+ 								
+ 								
  								# Fix-ups
  								# For reasons known only to itself, ValidateFile.pm rejects soft hyphens (\xc2\xad) claiming they are "control characters" !
***************
*** 673,677 ****
  
  # Converts a DateTime + time of the form "2014-04-12T09:00:00.000+03:00" to something suitable
! # for XMLTV, i.e.  201404120900 +0300
  sub xmltv_isotime ($)
  {
--- 678,682 ----
  
  # Converts a DateTime + time of the form "2014-04-12T09:00:00.000+03:00" to something suitable
! # for XMLTV, i.e.  20140412090000 +0300
  sub xmltv_isotime ($)
  {
***************
*** 681,685 ****
  		
  		$time =~ s/[:-]//g;
! 		$time =~ /^(\d{8})T(\d{4}).*(\+\d{4})$/;
  		return $1.$2.' '.$3;
  }
--- 686,690 ----
  		
  		$time =~ s/[:-]//g;
! 		$time =~ /^(\d{8})T(\d{6}).*(\+\d{4})$/;
  		return $1.$2.' '.$3;
  }


------------------------------------------------------------------------------
Learn Graph Databases - Download FREE O'Reilly Book
"Graph Databases" is the definitive new guide to graph databases and their
applications. Written by three acclaimed leaders in the field,
this first edition is now available. Download your free book today!
http://p.sf.net/sfu/NeoTech