#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::DB::Item::Region;
use lib '/app/tools/common/lib';
use Common::DB::Item;
use Common::DB::ItemCollection;
use Common::Assert;
use base 'Common::DB::Item';

use constant kDB    => Common::DB::Item::kClientDB();
use constant kTable => 'region';

use constant kGlobal => 0;

sub Search {
    my ( $class, $searchTerm ) = @_;

    assert($searchTerm);

    my $sql =
      "SELECT * FROM " . kTable . " WHERE (" . $class->SearchSyntax( field => "name", value => $searchTerm ) . ")" . " ORDER BY name";

    return $class->SUPER::GetAll($sql);
}

sub SearchEditable {
    my ( $class, $searchTerm ) = @_;

    assert($searchTerm);

    my $sql =
        "SELECT * FROM "
      . kTable
      . " WHERE ("
      . $class->SearchSyntax( field => "name", value => $searchTerm ) . ")"
      . " AND region_id > 0"
      . " ORDER BY name";

    return $class->SUPER::GetAll($sql);
}

sub GetAll {
    my ($class) = @_;

    my $sql = "SELECT * FROM region ORDER BY name";
    return $class->SUPER::GetAll($sql);
}

sub GetAllEditable {
    my ($class) = @_;
    my $dbo = Common::RSApp::GetClientDB();

    my $sql = "SELECT * FROM region WHERE region_id > 0 ORDER BY name";
    return $class->SUPER::GetAll($sql);
}

sub SetAsDefaultMechanicalLicenseRegion {
    my ( $class, $regionID ) = @_;

    # First, set all the other regions flag value to '0'.
    # Then set the flag to true for the region we were told to.
    #
    my $dbo = Common::RSApp::GetClientDB();
    $dbo->DoCmd( 'UPDATE ' . kTable . ' SET is_default_mechanical_license_region=0' );

    $dbo->DoCmd( 'UPDATE ' . kTable . " SET is_default_mechanical_license_region=1 WHERE region_id=$regionID" );
}

1;