#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package Support::DB::Item::ModulePage;
use strict;
use warnings;

use lib '/app/tools/rps/lib';

use lib '/app/tools/common/lib';
use Common::Assert;

use base 'Common::DB::Item';

use constant kTable => 'module_page';
use constant kDB    => Common::DB::Item::kCommonDB();

sub GetAll {
    my $class = shift;

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

sub GetPages {
    my $class    = shift;
    my $moduleID = shift;
    my $dbo      = Common::RSApp::GetCommonDB();

    return unless ($moduleID);

    my $sql = "SELECT * FROM " . kTable . " WHERE module_id = " . $dbo->DBQuote($moduleID) . " ORDER BY display_order, name";

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

1;