| 7540 | | foreach my $args_key ('category', 'categories', 'tag', 'tags', 'author', 'id', 'days', 'recently_commented_on', 'include_subcategories', 'include_blogs', 'exclude_blogs', 'blog_ids') { |
| 7541 | | if (exists($args->{$args_key})) { |
| 7542 | | $entries = undef; |
| 7543 | | last; |
| | 7540 | # For the stock Entries/Pages tags, clear any prepopulated |
| | 7541 | # entries list (placed by archive publishing) if we're invoked |
| | 7542 | # with any of the following attributes. A plugin tag may |
| | 7543 | # prepopulate the entries stash and then invoke this handler |
| | 7544 | # to permit further filtering of the entries. |
| | 7545 | my $tag = lc $ctx->stash('tag'); |
| | 7546 | if ($entries && (($tag eq 'entries') || ($tag eq 'pages'))) { |
| | 7547 | foreach my $args_key ('category', 'categories', 'tag', 'tags', |
| | 7548 | 'author') { |
| | 7549 | if (exists($args->{$args_key})) { |
| | 7550 | $entries = undef; |
| | 7551 | last; |
| | 7552 | } |
| | 7553 | } |
| | 7554 | } |
| | 7555 | if ( $entries ) { |
| | 7556 | foreach my $args_key ('id', 'days', 'recently_commented_on', |
| | 7557 | 'include_subcategories', 'include_blogs', 'exclude_blogs', |
| | 7558 | 'blog_ids') { |
| | 7559 | if (exists($args->{$args_key})) { |
| | 7560 | $entries = undef; |
| | 7561 | last; |
| | 7562 | } |