Clean up issue loop generation code and add some urls.

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 },