[interchange-cvs] interchange - heins modified
code/SystemTag/tree.coretag
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Sat Sep 23 11:23:29 EDT 2006
User: heins
Date: 2006-09-23 15:23:29 GMT
Modified: code/SystemTag tree.coretag
Log:
* Add count increment, mostly for testing which is the first
entry in a line.
Revision Changes Path
1.10 +5 -2 interchange/code/SystemTag/tree.coretag
rev 1.10, prev_rev 1.9
Index: tree.coretag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/tree.coretag,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- tree.coretag 8 Nov 2005 18:14:36 -0000 1.9
+++ tree.coretag 23 Sep 2006 15:23:29 -0000 1.10
@@ -1,12 +1,12 @@
# Copyright 2002-2005 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: tree.coretag,v 1.9 2005/11/08 18:14:36 jon Exp $
+# $Id: tree.coretag,v 1.10 2006/09/23 15:23:29 mheins Exp $
UserTag tree Order table master subordinate start
UserTag tree addAttr
UserTag tree attrAlias sub subordinate
UserTag tree hasEndTag
-UserTag tree Version $Revision: 1.9 $
+UserTag tree Version $Revision: 1.10 $
UserTag tree Routine <<EOR
sub {
my($table, $parent, $sub, $start_item, $opt, $text) = @_;
@@ -203,6 +203,8 @@
$memo = {} if ! $memo;
+ my $count = 0;
+
my $stop_sub;
#::logDebug("tree-list: valid parent=$parent sub=$sub start=$start_item mult=$mult");
@@ -230,6 +232,7 @@
$row->{mv_spacer} = $opt->{spacer} x $row->{mv_spacing}
if $opt->{spacer};
$row->{mv_increment} = $increment++;
+ $row->{mv_ip} = $count++;
push(@rows, $row);
my $code = $row->{$keyfield};
$row->{mv_toggled} = 1 if $memo->{$code};
More information about the interchange-cvs
mailing list