xmltv/lib Summarize.pm,1.3,1.4

Update of /cvsroot/xmltv/xmltv/lib
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv6978

Modified Files:
	Summarize.pm 
Log Message:
add description output to tv_to_text & tv_to_latex (FR #41)

Index: Summarize.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/lib/Summarize.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Summarize.pm	3 Jan 2004 14:52:53 -0000	1.3
--- Summarize.pm	5 May 2014 16:00:31 -0000	1.4
***************
*** 134,137 ****
--- 134,145 ----
  	}
  	
+ 	my $desc;
+ 	if (defined $_->{'desc'}) {
+ 		# No comparator, just get the first one in the preferred language (this is probably the best/shortest in most cases)
+ 	    $desc
+ 	      = XMLTV::best_name(\@PREF_LANGS, $_->{'desc'})->[0];
+ 	    $desc =~ tr/\t\n/ /;	# remove tabs and newlines
+ 	}
+ 	
  	if (not defined $curr_tz) {
  	    # Assume that the first item in a listing doesn't need an
***************
*** 167,171 ****
  	}
  
! 	push @r, [ $start_hhmm, $stop_hhmm, $title, $sub_title, $channel ];
      }
      return @r;
--- 175,179 ----
  	}
  
! 	push @r, [ $start_hhmm, $stop_hhmm, $title, $sub_title, $channel, $desc ];
      }
      return @r;


------------------------------------------------------------------------------
Is your legacy SCM system holding you back? Join Perforce May 7 to find out:
• 3 signs your SCM is hindering your productivity
• Requirements for releasing software faster
• Expert tips and advice for migrating your SCM now
http://p.sf.net/sfu/perforce