[interchange-cvs] interchange - jon modified 3 files

[interchange-cvs at icdevgroup.org]

User:      jon
Date:      2005-10-15 01:25:23 GMT
Modified:  .        MANIFEST
Modified:  lib/Vend Interpolate.pm
Added:     lib/Vend Subs.pm
Log:
Add new $Sub object that allows access to catalog subs and globalsubs
from within [calc] and [perl] blocks.

May need tweaking for Safe::Hole later, but that would make it more
capable, not less, so I want to get this in for now.

Revision  Changes    Path
2.180     +1 -0      interchange/MANIFEST


rev 2.180, prev_rev 2.179
Index: MANIFEST
===================================================================
RCS file: /var/cvs/interchange/MANIFEST,v
retrieving revision 2.179
retrieving revision 2.180
diff -u -u -r2.179 -r2.180
--- MANIFEST	14 Oct 2005 14:18:35 -0000	2.179
+++ MANIFEST	15 Oct 2005 01:25:23 -0000	2.180
@@ -1110,6 +1110,7 @@
 lib/Vend/SOAP.pm
 lib/Vend/SOAP/Transport.pm
 lib/Vend/SQL_Parser.pm
+lib/Vend/Subs.pm
 lib/Vend/Swish.pm
 lib/Vend/Table/Common.pm
 lib/Vend/Table/DB_File.pm



2.255     +6 -2      interchange/lib/Vend/Interpolate.pm


rev 2.255, prev_rev 2.254
Index: Interpolate.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Interpolate.pm,v
retrieving revision 2.254
retrieving revision 2.255
diff -u -u -r2.254 -r2.255
--- Interpolate.pm	13 Oct 2005 16:31:33 -0000	2.254
+++ Interpolate.pm	15 Oct 2005 01:25:23 -0000	2.255
@@ -1,6 +1,6 @@
 # Vend::Interpolate - Interpret Interchange tags
 # 
-# $Id: Interpolate.pm,v 2.254 2005/10/13 16:31:33 mheins Exp $
+# $Id: Interpolate.pm,v 2.255 2005/10/15 01:25:23 jon Exp $
 #
 # Copyright (C) 2002-2005 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -28,7 +28,7 @@
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = substr(q$Revision: 2.254 $, 10);
+$VERSION = substr(q$Revision: 2.255 $, 10);
 
 @EXPORT = qw (
 
@@ -41,6 +41,7 @@
 $Session
 $Values
 $Discounts
+$Sub
 );
 
 =head1 NAME
@@ -103,6 +104,7 @@
 use Vend::Server;
 use Vend::Scan;
 use Vend::Tags;
+use Vend::Subs;
 use Vend::Document;
 use Vend::Parse;
 use POSIX qw(ceil strftime LC_CTYPE);
@@ -142,6 +144,7 @@
 							$TextSearch
 							$Values
 							$Variable
+							$Sub
 						/;
 	@Share_routines = qw/
 							&tag_data
@@ -189,6 +192,7 @@
 		$DbSearch   = new Vend::DbSearch;
 		$TextSearch = new Vend::TextSearch;
 		$Tag        = new Vend::Tags;
+		$Sub        = new Vend::Subs;
 	}
 	$Tmp        = {};
 	undef $s;



2.1                  interchange/lib/Vend/Subs.pm


rev 2.1, prev_rev 2.0