From bcaa3f87b39a7426e3be5a7081146c2369dfc9a4 Mon Sep 17 00:00:00 2001
From: Martin Kamerbeek <martin@martintwee.oqapi.nl>
Date: Thu, 22 Apr 2010 17:17:32 +0200
Subject: [PATCH] Clean up issue loop generation code and add some urls.

---
 lib/WebGUI/Newsletter/Admin.pm | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/Newsletter/Admin.pm b/lib/WebGUI/Newsletter/Admin.pm
index 6640aed..3abae04 100644
--- a/lib/WebGUI/Newsletter/Admin.pm
+++ b/lib/WebGUI/Newsletter/Admin.pm
@@ -33,10 +33,18 @@ sub www_view {
 
     my @newsletterLoop;
     foreach my $letter ( @{ $letters } ) {
-        my @issues = 
-            map     { $_->get }
-                    @{ $letter->getIssues };
-             
+        my @issues;
+        foreach my $issue ( @{ $letter->getIssues } ) {
+            my $issueId   = $issue->getId;
+            push @issues, { 
+                %{ $issue->get },
+                url         => $issue->getUrl,
+                previewUrl  => $letter->getUrl( "func=previewEmail;issueId=$issueId" ),
+                editUrl     => $issue->getUrl( 'func=edit' ),
+                sendUrl     => '',
+                sendTestUrl => '',
+            };
+        } 
 
         push @newsletterLoop, {
             %{ $letter->get },