xmltv/grab/na_dtv tv_grab_na_dtv,1.22,1.23

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

Modified Files:
	tv_grab_na_dtv 
Log Message:
bug 496 - improve handling of  web site / parser errors

Index: tv_grab_na_dtv
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/na_dtv/tv_grab_na_dtv,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** tv_grab_na_dtv	16 Oct 2014 01:54:40 -0000	1.22
--- tv_grab_na_dtv	15 Jan 2015 20:52:38 -0000	1.23
***************
*** 707,711 ****
  
    my $output    = "";
!   if( @{ $data->{schedule}} ) {
      my @schedules = @{ @{ $data->{schedule}}[0]->{schedules} };
      foreach my $prog (@schedules) {
--- 707,711 ----
  
    my $output    = "";
!   if( ref($data->{schedule}) eq 'ARRAY' && @{ $data->{schedule}} ) {
      my @schedules = @{ @{ $data->{schedule}}[0]->{schedules} };
      foreach my $prog (@schedules) {
***************
*** 757,761 ****
    if(! $resp->is_success()) {
      print STDERR "Error getting program details for $program_id: " . $resp->status_line() . "\n";
!   }
  
    # my $detailContent = $resp->content();
--- 757,762 ----
    if(! $resp->is_success()) {
      print STDERR "Error getting program details for $program_id: " . $resp->status_line() . "\n";
!     return "";
! 	}
  
    # my $detailContent = $resp->content();


------------------------------------------------------------------------------
New Year. New Location. New Benefits. New Data Center in Ashburn, VA.
GigeNET is offering a free month of service with a new server in Ashburn.
Choose from 2 high performing configs, both with 100TB of bandwidth.
Higher redundancy.Lower latency.Increased capacity.Completely compliant.
http://p.sf.net/sfu/gigenet