xmltv/grab/fi/fi programme.pm,2.04,2.05

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

Modified Files:
	programme.pm 
Log Message:
- Nelonen/Liv/Jim have added season & episode to the start of description text
- added some more series description entries to test.conf


Index: programme.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/fi/fi/programme.pm,v
retrieving revision 2.04
retrieving revision 2.05
diff -C2 -d -r2.04 -r2.05
*** programme.pm	15 Jun 2014 17:27:26 -0000	2.04
--- programme.pm	21 Oct 2014 19:25:01 -0000	2.05
***************
*** 217,221 ****
    elsif ((defined $description)               &&
  	 (exists $series_description{$title}) &&
!          (($left, $special, $right) = ($description =~ /^\s*([^.!?]+[.!?])([.!?]+\s+)?\s*(.*)/))) {
      unless (defined $special) {
        # We only remove period from episode title, preserve others
--- 217,230 ----
    elsif ((defined $description)               &&
  	 (exists $series_description{$title}) &&
! 	 (($left, $special, $right) = ($description =~ /^\s*([^.!?]+[.!?])([.!?]+\s+)?\s*(.*)/))) {
!     # Check for "Kausi <season>. Jakso <episode>/<# of episodes>. <sub-title>...."
!     if (my($desc_season, $desc_episode, $remainder) =
! 	($description =~ m,^Kausi\s+(\d+)\.\s+Jakso\s+(\d+)(?:/\d+)?\.\s*(.*)$,)) {
! 	$season  = $desc_season;
! 	$episode = $desc_episode;
! 
! 	# Repeat the above match on remaining description
! 	($left, $special, $right) = ($remainder =~ /^\s*([^.!?]+[.!?])([.!?]+\s+)?\s*(.*)/);
!     }
      unless (defined $special) {
        # We only remove period from episode title, preserve others


------------------------------------------------------------------------------
Comprehensive Server Monitoring with Site24x7.
Monitor 10 servers for $9/Month.
Get alerted through email, SMS, voice calls or mobile push notifications.
Take corrective actions from your mobile device.
http://p.sf.net/sfu/Zoho