From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 25 Feb 2009 03:36:08 +0000 (+0000)
Subject: basic TT processor
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=ee9df4e2ee3fcf342614e9a33d197ffcecc683ac;p=evergreen%2Ftadl.git

basic TT processor

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12294 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

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;