xmltv/grab/uk_rt tv_grab_uk_rt,1.24,1.25

Update of /cvsroot/xmltv/xmltv/grab/uk_rt
In directory vz-cvs-3.sog:/tmp/cvs-serv26178

Modified Files:
	tv_grab_uk_rt 
Log Message:
Update some comments to reflect changes in utf-8 handling

Index: tv_grab_uk_rt
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/uk_rt/tv_grab_uk_rt,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** tv_grab_uk_rt	10 Jun 2012 08:43:26 -0000	1.24
--- tv_grab_uk_rt	10 Jun 2012 09:00:25 -0000	1.25
***************
*** 1000,1013 ****
          $page = process_utf8_fixups($page, $rt_name, $rt_listings_uri);
  
!         # Decode source UTF-8 octets, process for HTML entities, and encode
!         # into configured output encoding
          t("\nDecoding listings data from $source_encoding octets into Perl's internal format");
          $page = decode($source_encoding, $page);
          t("Processing for HTML entities seen in the listings data");
          decode_entities($page);
! #        t("Encoding listings data from Perl's internal format into $xml_encoding octets\n");
! #        $page = encode($xml_encoding, $page);
! 
!         ##### From this point, $data is in octets #####
  
          # Start to process individual programme entries found in listings
--- 1000,1010 ----
          $page = process_utf8_fixups($page, $rt_name, $rt_listings_uri);
  
!         # Decode source UTF-8 octets and process for HTML entities
          t("\nDecoding listings data from $source_encoding octets into Perl's internal format");
          $page = decode($source_encoding, $page);
          t("Processing for HTML entities seen in the listings data");
          decode_entities($page);
!         
!         ##### From this point, $page is in a Perl string #####
  
          # Start to process individual programme entries found in listings
***************
*** 1187,1191 ****
  
              # After processing is finished, create the %prog keys
!             # that will be written out by XMLTV::Writer
  
              $prog{title} = [ [ encode($xml_encoding, $prog{'_title'}) ] ];
--- 1184,1189 ----
  
              # After processing is finished, create the %prog keys
!             # that will be written out by XMLTV::Writer, encoding the
!             # Perl string data back to the chosen output format
  
              $prog{title} = [ [ encode($xml_encoding, $prog{'_title'}) ] ];


------------------------------------------------------------------------------
Live Security Virtual Conference
Exclusive live event will cover all the ways today's security and 
threat landscape has changed and how IT managers can respond. Discussions 
will include endpoint security, mobile security and the latest in malware 
threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/