[interchange-cvs] interchange - heins modified lib/Vend/Interpolate.pm

interchange-core@interchange.redhat.com interchange-core@interchange.redhat.com
Fri Nov 9 18:38:20 2001


User:      heins
Date:      2001-11-09 23:34:52 GMT
Modified:  lib/Vend Interpolate.pm
Log:
	* Add indication that tree row is toggled
	* Fix bug in adjust time recognition

Revision  Changes    Path
2.28      +4 -3      interchange/lib/Vend/Interpolate.pm


rev 2.28, prev_rev 2.27
Index: Interpolate.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Interpolate.pm,v
retrieving revision 2.27
retrieving revision 2.28
diff -u -r2.27 -r2.28
--- Interpolate.pm	2001/11/09 23:29:58	2.27
+++ Interpolate.pm	2001/11/09 23:34:52	2.28
@@ -1,6 +1,6 @@
 # Vend::Interpolate - Interpret Interchange tags
 # 
-# $Id: Interpolate.pm,v 2.27 2001/11/09 23:29:58 mheins Exp $
+# $Id: Interpolate.pm,v 2.28 2001/11/09 23:34:52 mheins Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -27,7 +27,7 @@
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = substr(q$Revision: 2.27 $, 10);
+$VERSION = substr(q$Revision: 2.28 $, 10);
 
 @EXPORT = qw (
 
@@ -2975,7 +2975,7 @@
 		my $neg = $opt->{adjust} =~ s/^\s*-\s*//;
 		my $diff;
 		$opt->{adjust} =~ s/^\s*\+\s*//;
-		if($opt->{adjust} !~ /[a-z]/) {
+		if($opt->{adjust} !~ /[A-Za-z]/) {
 			$opt->{adjust} =~ s/00$//;
 			$diff = (60 * 60) * $opt->{adjust};
 		}
@@ -5260,6 +5260,7 @@
 			$row->{mv_increment} = $increment++;
 			push(@rows, $row);
 			my $code = $row->{$keyfield};
+			$row->{mv_toggled} = 1 if $memo->{$code};
 #::logDebug("next row sub=$sub=$row->{$sub}");
 			my $next = $row->{$sub}
 				or next ROW;