[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;