Ticket #12957: add_categorytype_Program.pm.patch

src/mythtv/bindings/perl/MythTV/Program.pm

@@ -346 +346 @@
         ($fields{'S'} = ($self->{'subtitle'}    or '')) =~ s/%/%%/g;
         ($fields{'R'} = ($self->{'description'} or '')) =~ s/%/%%/g;
         ($fields{'C'} = ($self->{'category'}    or '')) =~ s/%/%%/g;
+        ($fields{'Ct'} = ($self->{'categorytype'}    or '')) =~ s/%/%%/g;
         ($fields{'U'} = ($self->{'recgroup'}    or '')) =~ s/%/%%/g;
     # Misc
         ($fields{'hn'} = ($self->{'hostname'}    or '')) =~ s/%/%%/g;

src/mythtv/contrib/user_jobs/mythlink.pl

@@ -114 +114 @@
     \%ep  = Episode (leading zero)
     \%in  = Internet reference number
     \%C   = Category
+    \%Ct  = Category Type
     \%U   = RecGroup
     \%hn  = Hostname of the machine where the file resides
     \%c   = Channel:  MythTV chanid