From 99a047e1471e61d497bace0c2adf9c0d23068f7c Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 16 Feb 2009 17:41:10 +0000
Subject: [PATCH] URLs were wrong in the Account::Contributions screen.

---
 docs/changelog/7.x.x.txt            | 2 ++
 lib/WebGUI/Account/Contributions.pm | 1 +
 2 files changed, 3 insertions(+)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 56959404b..7967f8512 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -7,6 +7,8 @@
  - fixed #9737: Upgrade Missed a Config Option
  - fixed #9169: E-mail to Collab System creates invalid asset
  - fixed #9746: Shop: Add a new address unneeded extra click
+ - fixed #9747: Account Contributions: URLs are wrong.
+
 
 7.6.11
  - fixed: Asset Manager can generate URLs that are too long
diff --git a/lib/WebGUI/Account/Contributions.pm b/lib/WebGUI/Account/Contributions.pm
index 6b74d1280..c03440d49 100644
--- a/lib/WebGUI/Account/Contributions.pm
+++ b/lib/WebGUI/Account/Contributions.pm
@@ -198,6 +198,7 @@ sub www_view {
         my $assetId    = $row->{assetId};
         my $asset      = WebGUI::Asset->newByDynamicClass( $session, $assetId );
         my $props      = $asset->get;
+        $props->{url}  = $asset->getUrl;
         if (ref $asset eq "WebGUI::Asset::Post") {
             $asset = $asset->getThread;
             $props = $asset->get;