xmltv/grab/fi/fi programme.pm,2.06,2.07

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

Modified Files:
	programme.pm 
Log Message:
- programme: add another season/episode extraction


Index: programme.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/fi/fi/programme.pm,v
retrieving revision 2.06
retrieving revision 2.07
diff -C2 -d -r2.06 -r2.07
*** programme.pm	23 Feb 2015 18:05:08 -0000	2.06
--- programme.pm	8 Jun 2015 17:14:01 -0000	2.07
***************
*** 222,225 ****
--- 222,227 ----
  	 (exists $series_description{$title}) &&
  	 (($left, $special, $right) = ($description =~ $match_description))) {
+     my $desc_subtitle;
+ 
      # Check for "Kausi <season>. Jakso <episode>/<# of episodes>. <sub-title>...."
      if (my($desc_season, $desc_episode, $remainder) =
***************
*** 239,242 ****
--- 241,254 ----
  	# Repeat the above match on remaining description
  	($left, $special, $right) = ($remainder =~ $match_description);
+     # Check for "<sub-title>. Kausi <season>, <episode>/<# of episodes>...."
+     } elsif (($desc_subtitle, $desc_season, $desc_episode, $remainder) =
+ 	     ($description =~ m!^(.+)\s+Kausi\s+(\d+),\s+(\d+)(?:/\d+)?\.\s*(.*)$!)) {
+ 	$left    = $desc_subtitle;
+ 	$season  = $desc_season;
+ 	$episode = $desc_episode;
+ 
+ 	# Remainder is already the final episode description
+ 	$right = $remainder;
+ 	undef $special;
      }
      unless (defined $special) {


------------------------------------------------------------------------------