From f428970c39835d050ca3cd67625c46a0fefc63aa Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 9 Jul 2009 01:23:23 +0000
Subject: [PATCH] Remove use of the deprecated viewProfile url param to get a
 user's profile.

---
 docs/changelog/7.x.x.txt |  1 +
 lib/WebGUI/Asset/Post.pm | 10 ++++++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index f52600873..54c046c75 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -13,6 +13,7 @@
  - fixed #10603: ThingyRecord Thank You/Confirmation Screen Confusing
  - fixed #10615: i18n Asset_StoryArchive - deleteIcon
  - fixed: Exceptions from WebGUI::Exception::Shop
+ - fixed #10616: karma list will break eventually
 
 7.7.13
  - fixed #10574: Creating Calendar Entry
diff --git a/lib/WebGUI/Asset/Post.pm b/lib/WebGUI/Asset/Post.pm
index 8ddbf8359..081ffd21a 100644
--- a/lib/WebGUI/Asset/Post.pm
+++ b/lib/WebGUI/Asset/Post.pm
@@ -708,12 +708,14 @@ Returns a hash reference of template variables for this Post.
 =cut
 
 sub getTemplateVars {
-	my $self = shift;
-	my %var = %{$self->get};
+	my $self    = shift;
+    my $session = $self->session;
+	my %var     = %{$self->get};
+    my $postUser   = WebGUI::User->new($session, $self->get("ownerUserId"));
 	$var{"userId"} = $self->get("ownerUserId");
 	$var{"user.isPoster"} = $self->isPoster;
-	$var{"avatar.url"} = $self->getAvatarUrl;
-	$var{"userProfile.url"} = $self->getUrl("op=viewProfile;uid=".$self->get("ownerUserId"));
+	$var{"avatar.url"}    = $self->getAvatarUrl;
+	$var{"userProfile.url"} = $postUser->getProfileUrl($self->getUrl());
 	$var{"dateSubmitted.human"} =$self->session->datetime->epochToHuman($self->get("creationDate"));
 	$var{"dateUpdated.human"} =$self->session->datetime->epochToHuman($self->get("revisionDate"));
 	$var{'title.short'} = $self->chopTitle;