Advertisement
Guest User

Untitled

a guest
Apr 18th, 2018
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.68 KB | None | 0 0
  1. #Dbix::struct
  2. sub list
  3. {
  4.   my ($self, $offset) = @_;
  5.  
  6.   my $result = all_rows([
  7.                         "mc_news" =>
  8.                         -join     => "mc_users"],
  9.                         -order_by => "mc_news.id DESC",
  10.                         -limit    => $self->conf->{per_page},
  11.                         -offset   => $offset*$self->conf->{per_page},
  12.   );
  13.  
  14.   return $result;
  15. }
  16.  
  17. #Dbix::Custom
  18. sub list
  19. {
  20.   my ($self, $params) = @_;
  21.   my $result = $self->dbh->select(
  22.     column => ['mc_news.*','mc_users.fullname'],
  23.     table => 'mc_news',
  24.     join => ['inner join mc_users on mc_news.author = mc_users.id'],
  25.     append => 'order by id'
  26.   );
  27.  
  28.   return $result->all;
  29. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement