package subjectGroup1::SideIndex;
use Exporter;
@ISA = qw(Exporter);
use strict;


# 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                  =>"subjectGroup1",
         pageUrl                =>"group1TitledPictureAndPayPal.pl",
         indexUrl               =>"bellaDreamingMountBought.jpg",
         indexAlt               =>"link to group1 Titled Picture And PayPal button extra fine",
         comment                =>"Heading: encode a picture and a PayPal button",
         
            },
            
{
         indexWidth             =>108,
         indexHeight            =>100,
         group                  =>"subjectGroup1",
         pageUrl                =>"group1PlainText.pl",
         indexUrl               =>"raztecsAndLionThumb.jpg",
         indexAlt               =>"link to group1PlainText",
         linkText               =>"Link: encode plain text",

            },
            
); # end indexAry


my $groupHeading    = "Group 1 ";


sub new {
# page calling sequence
# subjectGroup1::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 getGroupHeading{
    return $groupHeading;
} # end getGroupHeading



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












1;