#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Track::TrackListWithCALicenses;

use strict;
use warnings;

use lib '/app/tools/rps/lib';
use RPS::Track::TrackListSimple;
use RPS::Track::TrackWithCALicenses;
use base 'RPS::Track::TrackListSimple';

sub _licenseType { return "CA"; };

sub _getTrackXML
{
    my ($self, $trackDBObj) = @_;
    return RPS::Track::TrackWithCALicenses->new(_dbItem => $trackDBObj);
}

1;