[mythtv-commits] Ticket #4063: Perl bindings-Add recstatustype variables to MythTV.pm

[MythTV]

#4063: Perl bindings-Add recstatustype variables to MythTV.pm
----------------------------------------------+-----------------------------
 Reporter:  sphery <mtdean at thirdcontact.com>  |       Owner:  xris   
     Type:  defect                            |      Status:  new    
 Priority:  minor                             |   Milestone:  unknown
Component:  perl / nuvexport                  |     Version:  head   
 Severity:  medium                            |     Mlocked:  0      
----------------------------------------------+-----------------------------
 The attached patch adds recstatustype variables to MythTV.pm to allow
 direct comparison with the recstatus field in Program.  Currently,
 comparisons must be done as:

 ($show->{'recstatus'} == 10)

 or

 ($RecStatus_Types{$show->{'recstatus'}} == 'Inactive')

 After the patch, the comparison could be done with:

 ($show->{'recstatus'} == $recstatustype_inactive)

 the main benefit of the final approach is the "compiler-checking" provided
 by the variable name to help catch typographical errors.

-- 
Ticket URL: <http://svn.mythtv.org/trac/ticket/4063>
MythTV <http://svn.mythtv.org/trac>
MythTV