UnitedKnowledge/webgui_newsletter
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Clean up issue loop generation code and add some urls.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-04-22 17:17:32 +02:00
parent a761768c0a
commit bcaa3f87b3
1 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lib/WebGUI/Newsletter/Admin.pm
View file

@ -33,10 +33,18 @@ sub www_view {
my @newsletterLoop; my @newsletterLoop;
foreach my $letter ( @{ $letters } ) { foreach my $letter ( @{ $letters } ) {
my @issues = my @issues;
map { $_->get } foreach my $issue ( @{ $letter->getIssues } ) {
@{ $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, { push @newsletterLoop, {
%{ $letter->get }, %{ $letter->get },