From ee9df4e2ee3fcf342614e9a33d197ffcecc683ac Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 25 Feb 2009 03:36:08 +0000
Subject: [PATCH] basic TT processor

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12294 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../perlmods/OpenILS/Application/Trigger/Reactor.pm  | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
index d405161657..7e7fff00c7 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
@@ -1,5 +1,25 @@
 package OpenILS::Application::Trigger::Reactor;
+use Template;
+use OpenSRF::Utils::Logger qw(:logger);
+
 sub fourty_two { return 42 }
 sub NOOP_True { return 1 }
 sub NOOP_False { return 0 }
+
+
+# processes templates.  Returns template output on success, undef on error
+sub run_TT {
+    my $self = shift;
+    my $env = shift;
+    return '' unless $env->{template};
+
+    my $output = '';
+    my $tt = Template->new;
+
+    $tt->process($env->{template}, $env, \$output) or 
+        $logger->error("Error processing Trigger template: " . $tt->error);
+
+    return $output;
+}
+
 1;
-- 
2.11.0