htdocs/syn/list.bml

   1 <?page
   2 title=><?_ml .title _ml?>
   3 body<=
   4 <?_code
   5  use strict;
   6  use vars qw(%GET);
   7
   8  my $ret;
   9
  10  my $popsyn = LJ::Syn::get_popular_feeds();
  11
  12  my @data;
  13  foreach (@$popsyn) {
  14      my ($user, $name, $userid, $url, $count) = @$_;
  15      push @data, { 'user' => $user, 'name' => $name, 'numreaders' => $count, 'synurl' => $url };
  16  }
  17
  18  # Query already defaults to "numreaders" sort
  19  if ($GET{'sort'} eq "username") {
  20      @data = sort { $a->{'user'} cmp $b->{'user'} } @data;
  21  }
  22  if ($GET{'sort'} eq "feeddesc") {
  23      @data = sort { $a->{'name'} cmp $b->{'name'} } @data;
  24  }
  25
  26  return "<?p $ML{'.error.nofeeds'} p?>" unless @data;
  27
  28  my %items = BML::paging(\@data, $GET{'page'}, 100);
  29  my $navbar = LJ::paging_bar($items{'page'}, $items{'pages'});
  30  @data = @{$items{'items'}};
  31
  32  $ret .= $navbar . "<table id='synlist'><tr valign='bottom'>";
  33  $ret .= $GET{'sort'} eq "username" ? "<th>" . $ML{'.username'} . "</th>":
  34                                       "<th><a href='" . BML::self_link({ 'sort' => "username"}) . "'>" . $ML{'.username'} . "</a>";
  35  $ret .= $GET{'sort'} eq "feeddesc" ? "<th>" . $ML{'.feeddesc'} . "</th>":
  36                                       "<th><a href='" . BML::self_link({ 'sort' => "feeddesc"}) . "'>" . $ML{'.feeddesc'} . "</a>";
  37  $ret .= $GET{'sort'} eq "numreaders" ? "<th>" . $ML{'.numreaders'} . "</th>":
  38                                         "<th><a href='" . BML::self_link({ 'sort' => "numreaders"}) . "'>" . $ML{'.numreaders'} . "</a>";
  39  $ret .= "</th><th>&nbsp;</th></tr>";
  40  foreach (@data) {
  41      $ret .= "<tr>";
  42      $ret .= "<td>" . LJ::ljuser($_->{'user'}, { 'type' => 'Y' }) . "</td>";
  43      $ret .= "<td>" . LJ::ehtml($_->{'name'}) . "</td>";
  44      $ret .= "<td>" . $_->{'numreaders'} . "</td>";
  45      $ret .= "<td><a href='" . LJ::ehtml($_->{'synurl'}) . "'>".
  46              "<img src='$LJ::IMGPREFIX/xml.gif?v=6803' width='36' height='14' align='middle' border='0' alt='$ML{'.xml_icon.alt'}' /></a></td>";
  47      $ret .= "</tr>";
  48  }
  49  $ret .= "</table>" . $navbar;
  50  return $ret;
  51
  52 _code?>
  53 <=body
  54 head<=
  55 <style type="text/css">
  56 #synlist { width: 100%; }
  57 #synlist th { text-align: left; }
  58 </style>
  59 <=head
  60 page?>