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

use strict;
use warnings;

use lib '/app/tools/common/lib';
use Common::Util qw(escape_mysql_regexp escape_mysql_like);
use Common::DB::ItemCollection;

use lib '/app/tools/rps/lib';
use base 'Common::DB::Item';

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

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

    my $order;
    if ( $args{order} ) {
        $order = $args{order};
    } else {
        $order = "song.title, composer.name";
    }

    my $sql = "SELECT song.* FROM song LEFT JOIN composer ON composer.composer_id=song.song_id ORDER BY $order";
    return $class->SUPER::GetAll($sql);
}

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

    return undef if ( $searchTerm eq '' );

    my $dbo = Common::RSApp::GetClientDB();
    my $where;

    $where =
        $class->SearchSyntax( field => "song.title",    value => $searchTerm ) . " OR "
      . $class->SearchSyntax( field => "song.iswc",     value => $searchTerm ) . " OR "
      . $class->SearchSyntax( field => "composer.name", value => $searchTerm );

    my $sql = "SELECT song.* FROM song LEFT JOIN composer ON composer.composer_id=song.composer_id WHERE $where ORDER BY song.title";
    return $class->SUPER::GetAll($sql);

}

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

    return undef if ( $searchTerm eq '' );

    my $dbo = Common::RSApp::GetClientDB();
    my $where;

    $where = "WHERE song.title = " . $dbo->DBQuote($searchTerm);
    $where .= " OR song.iswc = " . $dbo->DBQuote($searchTerm);
    $where .= " OR composer.name = " . $dbo->DBQuote($searchTerm);

    my $sql = "SELECT song.* FROM song LEFT JOIN composer ON composer.composer_id=song.composer_id $where ORDER BY title";
    return $class->SUPER::GetAll($sql);
}

1;