xmltv/lib Augment.pm,1.9,1.10

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

Modified Files:
	Augment.pm 
Log Message:
Add add_missing_language_codes()

* add lang attr to title, sub-title and desc if missing after augmentation


Index: Augment.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/lib/Augment.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Augment.pm	12 Jul 2016 01:27:59 -0000	1.9
--- Augment.pm	12 Jul 2016 01:28:11 -0000	1.10
***************
*** 302,305 ****
--- 302,308 ----
  	$self->tidy_desc_text($prog);
  
+     # Add missing language codes to <title>, <sub-title> and <desc> elements
+     $self->add_missing_language_codes($prog);
+ 
  	l("\t Post-processing title/episode: {" . $prog->{'title'}[0][0] . '~~~'
  	       . (defined $prog->{'sub-title'} ? $prog->{'sub-title'}[0][0] : '') . "}" );
***************
*** 384,387 ****
--- 387,412 ----
  
  
+ # Add missing language codes to <title>, <sub-title> and <desc> elements
+ sub add_missing_language_codes () {
+     _d(3,self());
+     my ($self, $prog) = @_;
+ 
+     my @elems = ('title', 'sub-title', 'desc');
+     foreach my $elem (@elems) {
+         if (defined $prog->{$elem}) {
+             dd(3,$prog->{$elem});
+             for (my $i=0; $i < scalar @{$prog->{$elem}}; $i++) {
+ 
+                 # add language code if missing (leave existing codes alone)
+                 # my $v = $prog->{$elem}[$i][0];
+                 # $prog->{$elem}[$i] = [ $v, $self->{'language_code'} ];
+                 push @{$prog->{$elem}[$i]}, $self->{'language_code'}
+                         if (scalar @{$prog->{$elem}[$i]} == 1);
+             }
+         }
+     }
+ }
+ 
+ 
  =item B<remove_duplicated_new_title_in_ep>
  


------------------------------------------------------------------------------
What NetFlow Analyzer can do for you? Monitors network bandwidth and traffic
patterns at an interface-level. Reveals which users, apps, and protocols are 
consuming the most bandwidth. Provides multi-vendor support for NetFlow, 
J-Flow, sFlow and other flows. Make informed decisions using capacity planning
reports.http://sdm.link/zohodev2dev