1 package Memories::SystemTag;
3 use base qw(Memories::DBI Maypole::Model::CDBI::Plain);
4 __PACKAGE__->columns(Essential => qw/id name/);
5 __PACKAGE__->table("system_tag");
7 Memories::Photo->set_sql(sorted_by_system_tag => q/
8 SELECT photo.id as id, title, uploader, uploaded, x, y
9 FROM photo, system_tagging
10 WHERE system_tagging.photo = photo.id
11 AND system_tagging.tag = ?
12 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;
24 $tag = $self->search(name => $r->{args}->[0])->first;
26 $tag = $r->objects->[0]; # Should hardly happen
28 $r->{template_args}{tag} = $tag;
29 $r->{template_args}{tags} = [$tag]; # For selector
30 $r->{template_args}{photos} =
31 [$pager->search_sorted_by_system_tag($tag->id)];
35 package Memories::SystemTagging;
36 use base qw(Memories::DBI);
37 use Class::DBI::Pager;