3 use base qw(Memories::DBI Maypole::Model::CDBI::Plain);
4 __PACKAGE__->columns(Essential => qw/id name/);
6 Memories::Photo->set_sql(sorted_by_tag => q/
7 SELECT photo.id as id, title, uploader, uploaded, x, y
9 WHERE tagging.photo = photo.id
11 ORDER BY photo.uploaded DESC
18 my $page = $r->params->{page} || 1;
19 my $pager = Class::DBI::Pager::_pager("Memories::Photo",
20 Memories->config->{photos_per_page}, $page);
21 $r->{template_args}{pager} = $pager;
22 my @tags = map { $self->search(name => $_)->first } @{$r->args};
24 if (@{$r->args} > 1) { # This is actually an n-level search
25 my $sth = $self->multi_search(@tags);
26 $r->{template_args}{photos} = [ $r->{template_args}{pager}->sth_to_objects($sth) ];
28 $r->{template_args}{tags} = \@tags;
30 if (!@{$r->objects||[]}) {
33 $tag = $r->objects->[0];
35 $r->{template_args}{tag} = $tag;
36 $r->{template_args}{tags} = [$tag]; # For selector
37 $r->{template_args}{photos} =
38 [$pager->search_sorted_by_tag($tag->id)];
44 my ($self, @tags) = @_;
45 my $counter = "tagaaa";
49 push @stuff, { tag => $tag, id => $tag->id, counter => $counter++ };
51 my $sql = "select photo.id as id, photo.title as title, uploader, uploaded, x, y
52 from photo, ". (join ",", map{ "tagging ".$_->{counter} } @stuff).
53 " where ". (join " AND ", map { "$_->{counter}.tag=$_->{id} and photo.id
54 = $_->{counter}.photo" } @stuff);
56 $sql .= " order by photo.uploaded desc";
57 my $sth = $self->db_Main->prepare($sql);
62 my $page = $r->params->{page} || 1;
63 my $pager = Memories::Tagging->pager(
64 Memories->config->{photos_per_page}, $page
66 $r->{template_args}{pager} = $pager;
67 $r->objects([map {$_->tag} $pager->search_all]);
70 sub list_js :Exported {
72 $r->objects([ $self->retrieve_all ]);
75 package Memories::Tagging;
76 use base qw(Memories::DBI);
79 __PACKAGE__->set_sql(user_summary => qq/
80 SELECT tagging.id id, tag, count(*) AS count
82 WHERE tagging.photo = photo.id AND photo.uploader = ?