xmltv/grab/uk_rt tv_grab_uk_rt,1.47,1.48

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

Modified Files:
	tv_grab_uk_rt 
Log Message:
Debug: more detailed output for programmes (mis?)categorised as reality

Index: tv_grab_uk_rt
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/uk_rt/tv_grab_uk_rt,v
retrieving revision 1.47
retrieving revision 1.48
diff -C2 -d -r1.47 -r1.48
*** tv_grab_uk_rt	18 Mar 2016 01:33:28 -0000	1.47
--- tv_grab_uk_rt	18 Mar 2016 17:29:50 -0000	1.48
***************
*** 248,251 ****
--- 248,252 ----
  my %uncategorised_progs;
  my %reality_progs;
+ my %reality_progs_maybe_docs;
  my %categories;
  my %cats_per_prog;
***************
*** 320,323 ****
--- 321,325 ----
      print_uncategorised_progs();
      print_reality_progs();
+     print_reality_progs_maybe_docs();
      print_cats_per_prog();
      print_short_films();
***************
*** 2870,2873 ****
--- 2872,2877 ----
  sub store_genre_debug_info {
      my $prog = shift;
+     my $r = \%reality_progs;
+     my $rd = \%reality_progs_maybe_docs;
  
      if ($opt->{debug}) {
***************
*** 2878,2884 ****
                  $uncategorised_progs{$prog->{'_title'}} = $prog->{'_title'};
              }
!             # Track programmes categorised as reality, but ignore any that we have explicitly set
              elsif ($prog->{'_genre'} =~ m/^Reality$/ && ! exists $replacement_cats{$prog->{'_title'}}) {
!                 $reality_progs{$prog->{'_title'}} = $prog->{'_title'};
              }
              $cats_per_prog{$prog->{'_title'}}{$prog->{'_genre'}}++;
--- 2882,2896 ----
                  $uncategorised_progs{$prog->{'_title'}} = $prog->{'_title'};
              }
!             # Track programmes categorised as reality, but ignore any that we
!             # have explicitly set
              elsif ($prog->{'_genre'} =~ m/^Reality$/ && ! exists $replacement_cats{$prog->{'_title'}}) {
!                 if ($prog->{'_desc'} =~ m/documentary/i) {
!                     $rd->{$prog->{'_title'}}->{'channel'}->{$prog->{'_rt_name'}} = $prog->{'_title'};
!                     $rd->{$prog->{'_title'}}->{'desc'} = substr($prog->{'_desc'}, 0, 67);
!                 }
!                 else {
!                     $r->{$prog->{'_title'}}->{'channel'}->{$prog->{'_rt_name'}} = $prog->{'_title'};
!                     $r->{$prog->{'_title'}}->{'desc'} = substr($prog->{'_desc'}, 0, 67);
!                 }
              }
              $cats_per_prog{$prog->{'_title'}}{$prog->{'_genre'}}++;
***************
*** 5412,5418 ****
--- 5424,5442 ----
  sub print_reality_progs {
      if (%reality_progs && scalar keys %reality_progs > 0) {
+         my @fixups;
          say("\nStart of list of Reality programmes");
          foreach my $title (sort keys %reality_progs) {
+             next if exists $reality_progs_maybe_docs{$title};
+  
              say("  $title");
+             say("    desc: " . $reality_progs{$title}->{'desc'});
+             say("    chan: " . join(", ", sort keys %{$reality_progs{$title}->{'channel'}}));
+             push @fixups, "6|" . $title . "~Reality";
+         }
+ 
+         if (@fixups) {
+             say("\nPossible fixups for reality programmes:\n");
+             say($_) foreach sort @fixups;
+             say("");
          }
          say("End of list of Reality programmes");
***************
*** 5420,5423 ****
--- 5444,5467 ----
  }
  
+ sub print_reality_progs_maybe_docs {
+     if (%reality_progs_maybe_docs && scalar keys %reality_progs_maybe_docs > 0) {
+         my @fixups;
+         say("\nStart of list of Reality/Documentary programmes");
+         foreach my $title (sort keys %reality_progs_maybe_docs) {
+             say("  $title");
+             say("    desc: " . $reality_progs_maybe_docs{$title}->{'desc'});
+             say("    chan: " . join(", ", sort keys %{$reality_progs_maybe_docs{$title}->{'channel'}}));
+             push @fixups, "6|" . $title . "~Documentary";
+         }
+ 
+         if (@fixups) {
+             say("\nPossible fixups for (reality) documentary programmes:\n");
+             say($_) foreach sort @fixups;
+             say("");
+         }
+         say("End of list of Reality/Documentary programmes");
+     }
+ }
+ 
  sub print_cats_per_prog {
      if (%cats_per_prog) {


------------------------------------------------------------------------------
Transform Data into Opportunity.
Accelerate data analysis in your applications with
Intel Data Analytics Acceleration Library.
Click to learn more.
http://pubads.g.doubleclick.net/gampad/clk?id=278785231&iu=/4140