#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
#------------------------------------------------------------
package RPS::Pagination;

use strict;
use warnings;

use lib '/app/tools/rps/lib';
use Common::FormObject;
use base 'Common::FormObject';

use constant kDefaultPageSize	=> 50;
use constant kDefaultRecordNum	=> 1;

sub _init
{
	my ($self, %args) = @_;

	$self->SUPER::_init(%args);

	return $self->_initWithArgs(%args);
}


sub _initWithArgs
{
	my ($self, %args) = @_;

	my $pageSize = $args{pageSize} || kDefaultPageSize;
	my $recordNum = $args{recordNum};
	my $pageNum = $args{pageNum};
	my $total = $args{total};
	my $pageFraction = 0;

    $recordNum = 1 if( $recordNum && $recordNum < 1 );
    $pageNum   = 1 if( $pageNum && $pageNum < 1 );

    Common::Log::Debug( "PAGE: $pageNum" ) if( $pageNum );

    # Indexing by record number
	if( $recordNum ) {
        $pageNum = int($recordNum / $pageSize) + 1;
		$pageFraction = ($recordNum - 1) % $pageSize ? 1 : 0;

    # Indexing by page number
	} elsif( $pageNum ) {
		$recordNum = (($pageNum - 1) * $pageSize) + 1;

	# Using default
	} else {
        $recordNum = kDefaultRecordNum;
        $pageNum = int($recordNum / $pageSize) + 1;
	}


	my $realPageCount = $total / $pageSize;
	my $totalPages = int($realPageCount);
	$totalPages++ if($realPageCount > $totalPages);

	my $next = ($total > $pageNum*$pageSize) ? $pageNum+1 : undef;
	my $prev = ($pageNum > 1) ? $pageNum-1 : undef;

    my $nextRecord = ( $recordNum + $pageSize );
    my $prevRecord = ( $recordNum - $pageSize );

	$nextRecord = undef if( $nextRecord > $total );
	$prevRecord = undef if( $prevRecord < 1 );

    $prevRecord = $recordNum > 1 ? 1 : undef unless( $prevRecord );

	$pageNum += $pageFraction;
	$totalPages += $pageFraction;

    # !!! Why are we using the Scalar class here?  We don't _set_ these values via cgi...
    #
	$self->{Total}	    	= Common::FormObject::Scalar->new(value => $total);
	$self->{TotalPages}    	= Common::FormObject::Scalar->new(value => $totalPages);
	$self->{PageSize}    	= Common::FormObject::Scalar->new(value => $pageSize);
	$self->{Current}    	= Common::FormObject::Scalar->new(value => $pageNum);
	$self->{Next}    		= Common::FormObject::Scalar->new(value => $next);
	$self->{Previous}    	= Common::FormObject::Scalar->new(value => $prev);
	$self->{CurrentRecord}	= Common::FormObject::Scalar->new(value => $recordNum);
	$self->{NextRecord}	    = Common::FormObject::Scalar->new(value => $nextRecord);
	$self->{PreviousRecord}	= Common::FormObject::Scalar->new(value => $prevRecord);

	return $self;
}


sub inRange
{
	my ($self, $count) = @_;

	return ($count >= ($self->Current()-1)*$self->PageSize() && $count < $self->Current()*$self->PageSize());
}

###
1;#
###