package MostRecentSideIndex;
use Exporter;
@ISA = qw(Exporter);
use strict;

# REMEMBER TO ADD THE PATH-INFO
# REMEMBER TO INCLUDE THE GROUP

# the side index content is separated from the formatter so that we can choose the 
# appropriate formatting routine for this group.
# all we do here is call the appropriate PageFormatter routine to produce the side index

my @indexAry = (

{
         indexWidth             =>138,
         indexHeight            =>100,
         group                  =>"subjectGroup3",
         pageUrl                =>"group3PreFormattedText.pl",
         indexUrl               =>"anteaterThumb.jpg",
         indexAlt               =>"link to group3PreFormattedText",

            },
            
{
         indexWidth             =>143,
         indexHeight            =>100,
         group                  =>"subjectGroup2",
         pageUrl                =>"group2TitledPicture.pl",
         indexUrl               =>"bearThumb.jpg",
         indexAlt               =>"link to group2TitledPicture",

            },
{
         indexWidth             =>124,
         indexHeight            =>100,
         group                  =>"subjectGroup1",
         pageUrl                =>"group1UnorderedList.pl",
         indexUrl               =>"elephantsThumb.jpg",
         indexAlt               =>"link to group1UnorderedList extra fine",
         bigURL                 =>undef,
            },
            
{
         indexWidth             =>108,
         indexHeight            =>100,
         group                  =>"subjectGroup1",
         pageUrl                =>"group1PlainText.pl",
         indexUrl               =>"raztecsAndLionThumb.jpg",
         indexAlt               =>"link to group1PlainText",

            },

); # end indexAry

my $groupHeading    = "Most Recent Pictures (newest first)";


sub new {
# page calling sequence
# Landscapes::SideIndex->new();
    my $invocant = shift @_;
    my $className = ref($invocant) || $invocant;
    my $self = {};
    bless ($self, $className);
    
    return $self;

} # end new

sub getIndex{
    return \@indexAry;
} # end getIndex

sub getFirstPageUrl{
    my $text = "";
    $text .= $indexAry[0]->{group} . "/". $indexAry[0]->{pageUrl};
    return $text;
} # end getPrevious

sub getGroupHeading{
    return $groupHeading;
} # end getGroupHeading


sub getSpecialIndexIdentifier{
# used by PageFormatter when creating pathInfo part of link to mainIndex.pl
    return "MostRecentSideIndex";
} # end getGroupHeading













1;