Added notice deletion http://laconi.ca/PITS/00045

Removes selected notice and any replies that reference it.
Attempts to de-queue anything pending.

This patch does not archive notices.

darcs-hash:20080716032045-982e4-a0b5d37ecfa84796f1681dda54110094ad1424c6.gz

1 files changed, 10 insertions, 0 deletions

diff --git a/actions/showstream.php b/actions/showstream.php
index c05e30c39..59d4385c6 100644
--- a/actions/showstream.php
+++ b/actions/showstream.php
@@ -363,6 +363,10 @@ class ShowstreamAction extends StreamAction {
 
 	function show_notice($notice) {
 		$profile = $notice->getProfile();
+                if (common_logged_in()) {
+                    $user = common_current_user();
+                    $user_profile = $user->getProfile();
+                }
 		# XXX: RDFa
 		common_element_start('li', array('class' => 'notice_single',
 										 'id' => 'notice-' . $notice->id));
@@ -400,6 +404,12 @@ class ShowstreamAction extends StreamAction {
 		common_raw('→');
 		common_element_end('a');
 		common_element_end('p');
+                if ($notice->profile_id == $user_profile->id) {
+                        $deleteurl = common_local_url('deletenotice', array('notice' => $notice->id));
+                        common_element('a', array('class' => 'deletenotice',
+                                                                            'href' => $deleteurl),
+                                                    _('delete'));
+                }
 		common_element_end('li');
 	}
 }
\ No newline at end of file