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

Fix pagination issues in the List LDAPLinks screen.

Browse source
This commit is contained in:
Colin Kuskie 2009-11-12 22:21:34 -08:00
parent 97ce509059
commit 7c94f6f8ba
1 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/Operation/LDAPLink.pm
View file

@ -361,16 +361,16 @@ links. Each LDAP link is tested and the status of that test is returned.
sub www_listLDAPLinks {
my $session = shift;
return $session->privilege->adminOnly() unless canView($session);
my ($output, $p, $sth, $data, @row, $i);
my $i18n = WebGUI::International->new($session,"AuthLDAP");
my $returnUrl = "";
if ($session->form->process("returnUrl")) {
$returnUrl = ";returnUrl=".$session->url->escape($session->form->process("returnUrl"));
}
$sth = $session->db->read("select * from ldapLink order by ldapLinkName");
$row[$i] = '<tr><td valign="top" class="tableData">&nbsp;</td><td valign="top" class="tableData">'.$i18n->get("LDAPLink_1076").'</td><td>'.$i18n->get("LDAPLink_1077").'</td></tr>';
my $sth = $session->db->read("select * from ldapLink order by ldapLinkName");
my $i = 0;
my @row = ();
$i++;
while ($data = $sth->hashRef) {
while (my $data = $sth->hashRef) {
$row[$i] = '<tr><td valign="top" class="tableData">'
.$session->icon->delete('op=deleteLDAPLink;llid='.$data->{ldapLinkId},$session->url->page(),$i18n->get("LDAPLink_988"))
.$session->icon->edit('op=editLDAPLink;llid='.$data->{ldapLinkId}.$returnUrl)
@ -391,9 +391,14 @@ sub www_listLDAPLinks {
$i++;
}
$sth->finish;
$p = WebGUI::Paginator->new($session,$session->url->page('op=listLDAPLinks'));
my $p = WebGUI::Paginator->new($session,$session->url->page('op=listLDAPLinks'));
$p->setDataByArrayRef(\@row);
$output .= '<table border="1" cellpadding="3" cellspacing="0" align="center">';
my $output = qq{<table border="1" cellpadding="3" cellspacing="0" align="center">\n};
$output .= q{<tr><td valign="top" class="tableData">&nbsp;</td><td valign="top" class="tableData">}
. $i18n->get("LDAPLink_1076")
. q{</td><td>}
. $i18n->get("LDAPLink_1077")
. qq{</td></tr>\n};
$output .= $p->getPage;
$output .= '</table>';
$output .= $p->getBarTraditional;