Changeset 1025

Timestamp:

04/22/02 18:54:00 (11 years ago)

Author:

bradfitz

Message:

paging (<lj user=avva>, by request of <lj user=dakus>)

Files:

• trunk/htdocs/admin/priv/index.bml (modified) (3 diffs)

trunk/htdocs/admin/priv/index.bml

@@ -186 +186 @@
      my $prec = $priv{$priv};
      my $pcode = $prec->{'privcode'};
+     my $skip = $FORM{'skip'} + 0;
+     my $limit = 100;
 
      $ret .= "<h1><a href=\"./\">&lt;&lt;</a> view priv \"$priv{$priv}->{'privcode'}\"</h1>";
@@ -198 +200 @@
      $ret .= "<form method='post'><input type='hidden' name='mode' value='privchange'>";
      $ret .= "<input type='hidden' name='priv' value='$pcode'>";
-     $sth = $dbh->prepare("SELECT pm.prmid, u.user, u.userid, pm.arg FROM priv_map pm, user u WHERE pm.prlid=$priv AND pm.userid=u.userid ORDER BY u.user LIMIT 100");
+     $sth = $dbh->prepare("SELECT pm.prmid, u.user, u.userid, pm.arg FROM priv_map pm, user u WHERE pm.prlid=$priv AND pm.userid=u.userid ORDER BY u.user LIMIT $skip,$limit");
      $sth->execute;
      $ret .= "<table cellpadding='5' cellspacing='1' border='1'><tr><td><b>Revoke</b></td><td><b>User</b></td><td><b>Arg</b></td></tr>\n";
 
      my $cangrant = ($access{'all'} || $access{$priv{$priv}->{'privcode'}});    
+     my $foundany = 0;
 
      while ($_ = $sth->fetchrow_hashref) 
      {
+         $foundany = 1;
          $ret .= "<tr><td align='center'>";
          if ($cangrant) {       
@@ -216 +220 @@
      }
      $ret .= "</table>";
-     
+     if ($foundany) {
+         $ret .= "<a href='" . LJ::self_link(\%FORM, {'skip'=>($skip +$limit)}) . "'>See more...</a>\n";
+     }
+
      if ($cangrant) {
          $ret .= "<p>Grant <b>$priv{$priv}->{'privcode'}</b> privilege to:<ul>";