[interchange-cvs] interchange - heins modified 2 files

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2008-10-10 15:08:19 GMT
Modified:  lib/Vend Config.pm Dispatch.pm
Log:
* Currently the only order cleanup -- i.e. functions to run after all data in the
  session has been used for order functions -- available is the bottom of the receipt
  page, if you happen to know that is the place to do it.

  This provides an authoritative place to perform such actions, in the same
  vein as AutoLoad and AutoEnd.

  Implmentation possibilites included profiles to be run at the end or a SpecialSub.

Revision  Changes    Path
2.239                interchange/lib/Vend/Config.pm


rev 2.239, prev_rev 2.238
Index: Config.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Config.pm,v
retrieving revision 2.238
retrieving revision 2.239
diff -u -r2.238 -r2.239
--- Config.pm	22 Apr 2008 18:54:24 -0000	2.238
+++ Config.pm	10 Oct 2008 15:08:19 -0000	2.239
@@ -1,6 +1,6 @@
 # Vend::Config - Configure Interchange
 #
-# $Id: Config.pm,v 2.238 2008-04-22 18:54:24 jon Exp $
+# $Id: Config.pm,v 2.239 2008-10-10 15:08:19 mheins Exp $
 #
 # Copyright (C) 2002-2008 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -54,7 +54,7 @@
 use Vend::Data;
 use Vend::Cron;
 
-$VERSION = substr(q$Revision: 2.238 $, 10);
+$VERSION = substr(q$Revision: 2.239 $, 10);
 
 my %CDname;
 my %CPname;
@@ -710,6 +710,7 @@
     ['UserTrack',        'yesno',            'no'],
 	['DebugHost',	     'ip_address_regexp',	''],
 	['BounceReferrals',  'yesno',            'no'],
+	['OrderCleanup',     'routine_array',    ''],
 
 	];
 



1.103                interchange/lib/Vend/Dispatch.pm


rev 1.103, prev_rev 1.102
Index: Dispatch.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Dispatch.pm,v
retrieving revision 1.102
retrieving revision 1.103
diff -u -r1.102 -r1.103
--- Dispatch.pm	5 Aug 2008 09:56:17 -0000	1.102
+++ Dispatch.pm	10 Oct 2008 15:08:19 -0000	1.103
@@ -1,6 +1,6 @@
 # Vend::Dispatch - Handle Interchange page requests
 #
-# $Id: Dispatch.pm,v 1.102 2008-08-05 09:56:17 racke Exp $
+# $Id: Dispatch.pm,v 1.103 2008-10-10 15:08:19 mheins Exp $
 #
 # Copyright (C) 2002-2008 Interchange Development Group
 # Copyright (C) 2002 Mike Heins <mike at perusion.net>
@@ -26,7 +26,7 @@
 package Vend::Dispatch;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 1.102 $, 10);
+$VERSION = substr(q$Revision: 1.103 $, 10);
 
 use POSIX qw(strftime);
 use Vend::Util;
@@ -525,6 +525,9 @@
 						}
 					}
 
+					# Do order cleanup
+					run_macro($Vend::Cfg->{OrderCleanup});
+
 					# Remove the items
 					@$Vend::Items = ();
 #::logDebug("returning order_number=$order_no, not_displayed=$not_displayed");