xmltv/grab/uk_rt tv_grab_uk_rt,1.37,1.38

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

Modified Files:
	tv_grab_uk_rt 
Log Message:
Debug: list programmes categorised as Reality. A growing number of programmes (esp documentaries) get flagged as reality shows.

Index: tv_grab_uk_rt
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/uk_rt/tv_grab_uk_rt,v
retrieving revision 1.37
retrieving revision 1.38
diff -C2 -d -r1.37 -r1.38
*** tv_grab_uk_rt	14 Dec 2013 05:00:21 -0000	1.37
--- tv_grab_uk_rt	4 Jan 2015 01:27:12 -0000	1.38
***************
*** 249,252 ****
--- 249,253 ----
  # to potentially use for such programmes
  my %uncategorised_progs;
+ my %reality_progs;
  my %categories;
  my %cats_per_prog;
***************
*** 313,316 ****
--- 314,318 ----
      print_categories();
      print_uncategorised_progs();
+     print_reality_progs();
      print_cats_per_prog();
      print_short_films();
***************
*** 2746,2749 ****
--- 2748,2754 ----
                  $uncategorised_progs{$prog->{'_title'}} = $prog->{'_title'};
              }
+             elsif ($prog->{'_genre'} =~ m/^Reality$/) {
+                 $reality_progs{$prog->{'_title'}} = $prog->{'_title'};
+             }
              $cats_per_prog{$prog->{'_title'}}{$prog->{'_genre'}}++;
          }
***************
*** 5254,5257 ****
--- 5259,5272 ----
  }
  
+ sub print_reality_progs {
+     if (%reality_progs && scalar keys %reality_progs > 0) {
+         say("\nStart of list of Reality programmes");
+         foreach my $title (sort keys %reality_progs) {
+             say("  $title");
+         }
+         say("End of list of Reality programmes");
+     }
+ }
+ 
  sub print_cats_per_prog {
      if (%cats_per_prog) {


------------------------------------------------------------------------------
Dive into the World of Parallel Programming! The Go Parallel Website,
sponsored by Intel and developed in partnership with Slashdot Media, is your
hub for all things parallel software development, from weekly thought
leadership blogs to news, videos, case studies, tutorials and more. Take a
look and join the conversation now. http://goparallel.sourceforge.net