X-Git-Url: https://git.decadent.org.uk/gitweb/?p=memories.git;a=blobdiff_plain;f=Memories%2FUser.pm;fp=Memories%2FUser.pm;h=b0020a53fd4dd211cbc063ab40c4717836c3c6b4;hp=2fa82ca3cb5179e15a847a47ada02e33d4f8e1c4;hb=5acf53e85633363aa8a207e9e08448f27a4544f9;hpb=293d891079d7545676d0a880b3b8c4f0ebacfd2c

diff --git a/Memories/User.pm b/Memories/User.pm
index 2fa82ca..b0020a5 100644
--- a/Memories/User.pm
+++ b/Memories/User.pm
@@ -30,6 +30,7 @@ sub view :Exported {
     $user->id,{order_by => "uploaded desc"}) ];
     $r->{template_args}{pager} = $pager;
     $r->{template_args}{albums} = [$user->albums(privacy => 0)];
+    $r->last_search;
 }
 
 # Album support!
@@ -64,4 +65,13 @@ sub edit_albums :Exported {
     
 }
 
+sub api_taglist :Exported {
+    my ($self, $r) = @_;
+    my $user = $r->objects->[0];
+    $r->{output} .= $_->{tag}.":".$_->{count}."\n"
+        for Memories::Tagging->search_user_summary($user->id);
+    $r->{output}.= "\n";
+    $r->{content_type} = "text/plain";
+}
+
 1;