diff options
| author | Natanael Copa <ncopa@alpinelinux.org> | 2011-06-23 14:13:30 +0000 |
|---|---|---|
| committer | Natanael Copa <ncopa@alpinelinux.org> | 2011-06-23 14:13:30 +0000 |
| commit | 413e4ce7a860828fa4518a1fe84d7158ffc79a83 (patch) | |
| tree | fdd7351982d0e11231aea04962d9af1734af20b4 /main/rt4/rt4-perl-qw-list-deprecation.patch | |
| parent | 44d48bd092c8ac8882948be5583d84365cf0837e (diff) | |
| parent | 783ae59b86a412ecf42eb4eb179452af57a0c0ef (diff) | |
| download | aports-413e4ce7a860828fa4518a1fe84d7158ffc79a83.tar.bz2 aports-413e4ce7a860828fa4518a1fe84d7158ffc79a83.tar.xz | |
Merge branch 'master' of ssh://git.alpinelinux.org/gitroot/aports
Diffstat (limited to 'main/rt4/rt4-perl-qw-list-deprecation.patch')
| -rw-r--r-- | main/rt4/rt4-perl-qw-list-deprecation.patch | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/main/rt4/rt4-perl-qw-list-deprecation.patch b/main/rt4/rt4-perl-qw-list-deprecation.patch deleted file mode 100644 index 6887539995..0000000000 --- a/main/rt4/rt4-perl-qw-list-deprecation.patch +++ /dev/null @@ -1,49 +0,0 @@ ---- a/share/html/Ticket/Elements/PreviewScrips -+++ b/share/html/Ticket/Elements/PreviewScrips -@@ -69,7 +69,7 @@ - <b><% $scrip->Description || loc('Scrip #[_1]',$scrip->id) %></b><br /> - <&|/l, loc($scrip->ConditionObj->Name), loc($scrip->ActionObj->Name), loc($scrip->TemplateObj->Name)&>[_1] [_2] with template [_3]</&> - <br /> --% for my $type qw(To Cc Bcc) { -+% for my $type (qw(To Cc Bcc)) { - % my @addresses = $scrip->ActionObj->Action->$type(); - % next unless @addresses; - <ul> -@@ -97,7 +97,7 @@ - % next unless $rule->{hints} && $rule->{hints}{class} eq 'SendEmail'; - <b><% $rule->Describe %></b> - % my $data = $rule->{hints}{recipients}; --% for my $type qw(To Cc Bcc) { -+% for my $type (qw(To Cc Bcc)) { - % next unless @{$data->{$type}}; - <ul> - % for my $address (@{$data->{$type}}) { ---- a/share/html/Ticket/Elements/ShowSimplifiedRecipients -+++ b/share/html/Ticket/Elements/ShowSimplifiedRecipients -@@ -58,7 +58,7 @@ - my %headers = (To => {}, Cc => {}, Bcc => {}); - if ($Object->Scrips) { - for my $scrip (grep $_->ActionObj->Action->isa('RT::Action::SendEmail'), @{$Object->Scrips->Prepared}) { -- for my $type qw(To Cc Bcc) { -+ for my $type (qw(To Cc Bcc)) { - $headers{$type}{$_->address} = $_ - for $scrip->ActionObj->Action->$type(); - } -@@ -66,7 +66,7 @@ - } - if ($Object->Rules) { - for my $rule (grep {$_->{hints} and $_->{hints}{class} eq "SendEmail"} @{$Object->Rules}) { -- for my $type qw(To Cc Bcc) { -+ for my $type (qw(To Cc Bcc)) { - $headers{$type}{$_} ||= @{[Email::Address->parse($_)]}[0] # Hate list context - for @{$rule->{hints}{recipients}{$type}}; - } -@@ -77,7 +77,7 @@ - <&|/Widgets/TitleBox, title => loc('Recipients'), id => 'recipients' &> - <table> - <tr> --% for my $type qw(To Cc Bcc) { -+% for my $type (qw(To Cc Bcc)) { - % next unless keys %{$headers{$type}}; - <td valign="top"><% $type %>:</td> - <td valign="top"> |