Add useful links after adding an interest.

        Patch by ninetydegrees. 

diffs (34 lines):

diff -r 20a3a3c14a0d -r 2dd136674a6b htdocs/interests.bml
--- a/htdocs/interests.bml      Sat Nov 27 00:07:03 2010 +0800
+++ b/htdocs/interests.bml      Sat Nov 27 00:15:11 2010 +0800
@@ -134,7 +134,12 @@ body<=
             $dbh->do( "DELETE FROM userinterests WHERE userid=?", undef, 
$remote->userid );
         }
 
-        $ret .= "<?h1 $ML{'.add.added.head'} h1?><?p $ML{'.add.added.text'} 
p?>";
+        my $profile_url = $remote->profile_url;
+        $ret .= "<?h1 $ML{'.add.added.head'} h1?><?p $ML{'.add.added.text'} 
p?>" .
+            "<ul><li><a 
href='$LJ::SITEROOT/interests'>$ML{'.add.added.interestspage'}</a></li>" .
+            "<li><a 
href='$LJ::SITEROOT/manage/profile/#interests'>$ML{'.add.added.editinterests'}</a></li>"
 .
+            "<li><a 
href='$profile_url'>$ML{'.add.added.viewprofile'}</a></li>" .
+            "<li><a 
href='$LJ::SITEROOT/manage/profile'>$ML{'.add.added.editprofile'}</a></li></ul>";
         return $ret;
     }
 
diff -r 20a3a3c14a0d -r 2dd136674a6b htdocs/interests.bml.text
--- a/htdocs/interests.bml.text Sat Nov 27 00:07:03 2010 +0800
+++ b/htdocs/interests.bml.text Sat Nov 27 00:15:11 2010 +0800
@@ -1,5 +1,13 @@
 ;; -*- coding: utf-8 -*-
 .add.added.head=Added!
+
+.add.added.editinterests=Edit your interests
+
+.add.added.editprofile=Edit your profile
+
+.add.added.interestspage=Return to the Interests page
+
+.add.added.viewprofile=View your profile
 
 .add.added.text=The interest has been added to your list.
 
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog

Reply via email to