$NetBSD: patch-share_html_Search_Bulk.html,v 1.1.2.2 2011/11/02 22:52:22 tron Exp $ perl 5.14 qw() in for* fixes --- share/html/Search/Bulk.html.orig 2011-04-14 00:32:21.000000000 +0000 +++ share/html/Search/Bulk.html @@ -60,7 +60,7 @@ <& /Elements/ListActions, actions => \@results &>
-% foreach my $var qw(Query Format OrderBy Order Rows Page SavedChartSearchId) { +% foreach my $var ( qw(Query Format OrderBy Order Rows Page SavedChartSearchId) ) { %} <& /Elements/CollectionList, @@ -358,13 +358,13 @@ unless ( $ARGS{'AddMoreAttach'} ) { my @watchresults = ProcessTicketWatchers( TicketObj => $Ticket, ARGSRef => \%ARGS ); - foreach my $type qw(MergeInto DependsOn MemberOf RefersTo) { + foreach my $type ( qw(MergeInto DependsOn MemberOf RefersTo) ) { $ARGS{ $Ticket->id . "-" . $type } = $ARGS{"Ticket-$type"}; $ARGS{ $type . "-" . $Ticket->id } = $ARGS{"$type-Ticket"}; } @linkresults = ProcessTicketLinks( TicketObj => $Ticket, ARGSRef => \%ARGS ); - foreach my $type qw(MergeInto DependsOn MemberOf RefersTo) { + foreach my $type ( qw(MergeInto DependsOn MemberOf RefersTo) ) { delete $ARGS{ $type . "-" . $Ticket->id }; delete $ARGS{ $Ticket->id . "-" . $type }; }