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