[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