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

first attempt at new alphabetic index tooltip

Browse source
This commit is contained in:
Matthew Wilson 2006-05-08 01:47:53 +00:00
parent 498bf46e4d
commit 8b97f81813
1 changed files with 27 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

32
lib/WebGUI/Paginator.pm
View file

@ -381,14 +381,16 @@ sub getPageLinks {
my @pages; my @pages;
my @pages_loop; my @pages_loop;
for (my $i=0; $i<$self->getNumberOfPages; $i++) { for (my $i=0; $i<$self->getNumberOfPages; $i++) {
my $altTag;
if ($self->{abKey}) {
$altTag = ' title="'.subst($self->{_rowRef}[($i * $self->{_rpp})+1]->{$self->{abKey}},0,1).'-'.subst($self->{_rowRef}[(($i+1) * $self->{_rpp})+1]->{$self->{abKey}},0,1).'"';
}
if ($i+1 == $pn) { if ($i+1 == $pn) {
push(@pages,($i+1)); push(@pages,($i+1));
push(@pages_loop,{ "pagination.url" => '', "pagination.text" => $i+1}); push(@pages_loop,{ "pagination.url" => '', "pagination.text" => $i+1});
} else { } else {
push(@pages,'<a href="'.$self->session->url->append($self->{_url},($self->{_formVar}.'='.($i+1))).'">'.($i+1).'</a>'); push(@pages,'<a href="'.$self->session->url->append($self->{_url},($self->{_formVar}.'='.($i+1))).'"'.$altTag.'>'.($i+1).'</a>');
push(@pages_loop,{ "pagination.url" => $self->session->url->append($self->{_url},($self->{_formVar}.'='.($i+1))), "pagination.text" => $i+1}); push(@pages_loop,{ "pagination.url" => $self->session->url->append($self->{_url},($self->{_formVar}.'='.($i+1))), "pagination.text" => $i+1});
} }
} }
if ($limit) { if ($limit) {
@ -594,5 +596,25 @@ sub setDataByQuery {
return ""; return "";
} }
#-------------------------------------------------------------------
=head2 setAlphabeticalKey ( string )
Provide the paginator with a key of your data so it can display
alphabetic helpers in the "alt" tag of the page links.
=head3 keyName
The name of the key your data is ordered by. This is assuming that
your pageData is an arrayRef of hashRefs.
=cut
sub setAlphabeticalKey {
my $self = shift;
$self->{abKey} = shift;
return 1;
}
1; 1;