Commit 413e4ce7 authored by Natanael Copa's avatar Natanael Copa

Merge branch 'master' of ssh://git.alpinelinux.org/gitroot/aports

parents 44d48bd0 783ae59b
# Contributor: Natanael Copa <ncopa@alpinelinux.org>
# Maintainer: Natanael Copa <ncopa@alpinelinux.org>
pkgname=rt4
pkgver=4.0.0
pkgrel=1
pkgver=4.0.1
pkgrel=0
pkgdesc="Request Tracker - issue and bug tracker"
url="http://www.bestpractical.com/rt"
arch="noarch"
......@@ -70,8 +70,7 @@ depends="perl
makedepends="$depends"
install=""
subpackages=""
source="http://www.bestpractical.com/pub/rt/release/rt-$pkgver.tar.gz
rt4-perl-qw-list-deprecation.patch"
source="http://www.bestpractical.com/pub/rt/release/rt-$pkgver.tar.gz"
_builddir="$srcdir"/rt-$pkgver
prepare() {
......@@ -125,5 +124,4 @@ package() {
make DESTDIR="$pkgdir" install || return 1
}
md5sums="bd6045421a6f2d0e8c18923f80726e4a rt-4.0.0.tar.gz
ff469c9469be2bc094601939068e60ae rt4-perl-qw-list-deprecation.patch"
md5sums="bde89fbdadf7b709fb13f32638848b9d rt-4.0.1.tar.gz"
--- 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">
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment