[interchange] Add support for [all-anchor] token in [more-list] template

[Jon Jensen]

commit 85f8e9e0dcdbd4ba9c2be6979024253d6b81c585
Author: Jon Jensen <jon at endpoint.com>
Date:   Wed Apr 27 22:20:29 2016 -0600

    Add support for [all-anchor] token in [more-list] template
    
    Example usage:
    
    [flex-select
        more-list=|
            More rows:
            [all-anchor]View All[/all-anchor]
            [decade-next][/decade-next]
            [more]
            [decade-prev][/decade-prev]
        |
    ]

 lib/Vend/Interpolate.pm |   12 ++++++++----
 1 files changed, 8 insertions(+), 4 deletions(-)
---
diff --git a/lib/Vend/Interpolate.pm b/lib/Vend/Interpolate.pm
index 7ed57e2..d5d4d31 100644
--- a/lib/Vend/Interpolate.pm
+++ b/lib/Vend/Interpolate.pm
@@ -1,8 +1,6 @@
 # Vend::Interpolate - Interpret Interchange tags
 # 
-# $Id: Interpolate.pm,v 2.313 2009-05-01 13:50:00 pajamian Exp $
-#
-# Copyright (C) 2002-2008 Interchange Development Group
+# Copyright (C) 2002-2016 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
 #
 # This program was originally based on Vend 0.2 and 0.3
@@ -28,7 +26,7 @@ package Vend::Interpolate;
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = substr(q$Revision: 2.313 $, 10);
+$VERSION = '2.314';
 
 @EXPORT = qw (
 
@@ -3486,6 +3484,12 @@ sub tag_more_list {
 		$hash{more_numeric} = join $more_joiner, @more_links;
 	}
 
+	if ($r =~ s:\[all[-_]anchor\]($All)\[/all[-_]anchor\]::i and ($first or $next)) {
+		my $all_anchor = $1;
+		$arg = "$session:0:0:100000";
+		push @more_links, more_link_template($all_anchor, $arg, $form_arg);
+	}
+
 	$hash{more_list} = join $more_joiner, @more_links;
 
 	$first = $first + 1;