oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

adding abInitialOnly option to paginator index tooltip

Browse source
This commit is contained in:
Matthew Wilson 2006-05-08 01:57:41 +00:00
parent 99e3cbf15b
commit aaf60da761
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/Paginator.pm
View file

@ -383,7 +383,11 @@ sub getPageLinks {
for (my $i=0; $i<$self->getNumberOfPages; $i++) { for (my $i=0; $i<$self->getNumberOfPages; $i++) {
my $altTag; my $altTag;
if ($self->{abKey}) { if ($self->{abKey}) {
$altTag = ' title="'.substr($self->{_rowRef}[($i * $self->{_rpp})+1]->{$self->{abKey}},0,1).'-'.substr($self->{_rowRef}[(($i+1) * $self->{_rpp})-1]->{$self->{abKey}},0,1).'"'; if ($self->{abInitialOnly}) {
$altTag = ' title="'.substr($self->{_rowRef}[($i * $self->{_rpp})+1]->{$self->{abKey}},0,1).'-'.substr($self->{_rowRef}[(($i+1) * $self->{_rpp})-1]->{$self->{abKey}},0,1).'"';
} else {
$altTag = ' title="'.$self->{_rowRef}[($i * $self->{_rpp})+1]->{$self->{abKey}}.' - '.$self->{_rowRef}[(($i+1) * $self->{_rpp})-1]->{$self->{abKey}}.'"';
}
} }
if ($i+1 == $pn) { if ($i+1 == $pn) {
push(@pages,($i+1)); push(@pages,($i+1));
@ -598,7 +602,7 @@ sub setDataByQuery {
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 setAlphabeticalKey ( string ) =head2 setAlphabeticalKey ( string, abInitialOnly )
Provide the paginator with a key of your data so it can display Provide the paginator with a key of your data so it can display
alphabetic helpers in the "alt" tag of the page links. alphabetic helpers in the "alt" tag of the page links.
@ -608,11 +612,16 @@ alphabetic helpers in the "alt" tag of the page links.
The name of the key your data is ordered by. This is assuming that The name of the key your data is ordered by. This is assuming that
your pageData is an arrayRef of hashRefs. your pageData is an arrayRef of hashRefs.
=head3 abInitialOnly
A boolean indicating whether to abbreviate the key to the initial letter.
=cut =cut
sub setAlphabeticalKey { sub setAlphabeticalKey {
my $self = shift; my $self = shift;
$self->{abKey} = shift; $self->{abKey} = shift;
$self->{abInitialOnly} = shift;
return 1; return 1;
} }