diff options
| author | Jeff Bilyk <jbilyk@gmail.com> | 2011-06-18 20:51:59 +0000 |
|---|---|---|
| committer | Jeff Bilyk <jbilyk@gmail.com> | 2011-06-18 20:51:59 +0000 |
| commit | e5742860b760783e0bd992e1ce14df1039c84324 (patch) | |
| tree | fcc15b2d4bb8806ebc3d27db86439243fbfb2390 /main/rt4/rt4-perl-qw-list-deprecation.patch | |
| parent | b6d9107bfeb01852a20114ed3bf51e1f59805bf0 (diff) | |
| download | aports-e5742860b760783e0bd992e1ce14df1039c84324.tar.bz2 aports-e5742860b760783e0bd992e1ce14df1039c84324.tar.xz | |
main/rt4: moved from testing
move rt4 to main
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, 49 insertions, 0 deletions
diff --git a/main/rt4/rt4-perl-qw-list-deprecation.patch b/main/rt4/rt4-perl-qw-list-deprecation.patch new file mode 100644 index 0000000000..6887539995 --- /dev/null +++ b/main/rt4/rt4-perl-qw-list-deprecation.patch @@ -0,0 +1,49 @@ +--- 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"> |