[interchange] Add support for [all-anchor] token in [more-list] template
Jon Jensen
interchange-cvs at icdevgroup.org
Fri Apr 29 03:03:44 UTC 2016
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;
More information about the interchange-cvs
mailing list