--- src/mythtv/bindings/perl/MythTV/Program.pm.orig	2016-04-28 20:31:49.230576243 +0000
+++ src/mythtv/bindings/perl/MythTV/Program.pm	2016-04-28 20:28:29.779523866 +0000
@@ -346,6 +346,7 @@
         ($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.orig
+++ src/mythtv/contrib/user_jobs/mythlink.pl
@@ -114,6 +114,7 @@ options:
     \%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