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

use strict;
use warnings;

use lib '/app/tools/rps/lib';
use lib '/app/tools/common/lib';
use Common::Assert;
use RPS::DB::Item::CATrackLicense;

# This class is not a form object.  It's just some semantic magic to allow
# multiple inheritance to work.
#

sub GetDBItem {
    my ($id) = @_;

    my $dbItem;
    if ($id) {
        $dbItem = RPS::DB::Item::CATrackLicense->Lookup( ca_track_license_id => $id );
    } else {
        $dbItem = RPS::DB::Item::CATrackLicense->Create();
    }
    assert( $dbItem, "FAILED: id was $id" );
    return $dbItem;
}

###
1;    #
###