From 2d7d0eb9480e62f6f6554c7b837112d2aa72e4c3 Mon Sep 17 00:00:00 2001
From: atz <atz@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 11 Jun 2010 17:10:35 +0000
Subject: [PATCH] Add helper handling to specify length of field, like: isbn_10
 or isbn_13

"isbn" will still just get the first available value.

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
index 5dbc541542..0673409392 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
@@ -10,8 +10,8 @@ use OpenILS::Utils::CStoreEditor qw/:funcs/;
 my $U = 'OpenILS::Application::AppUtils';
 
 sub fourty_two { return 42 }
-sub NOOP_True { return 1 }
-sub NOOP_False { return 0 }
+sub NOOP_True  { return  1 }
+sub NOOP_False { return  0 }
 
 
 
@@ -75,13 +75,13 @@ my $_TT_helpers = {
         ]);
         if($copy->call_number->id == -1) {
             return {
-                title => $copy->dummy_title,
+                title  => $copy->dummy_title,
                 author => $copy->dummy_author,
             };
         } else {
             my $mvr = $U->record_to_mvr($copy->call_number->record);
             return {
-                title => $mvr->title,
+                title  => $mvr->title,
                 author => $mvr->author
             };
         }
@@ -93,6 +93,7 @@ my $_TT_helpers = {
         return $U->ou_ancestor_setting_value($org_id, $setting);
     },
 
+    # helpers.get_li_attr('isbn_13', li.attributes)
     # returns matching line item attribute, or undef
     get_li_attr => sub {
         my $name = shift or return;     # the first arg is always the name
@@ -100,8 +101,11 @@ my $_TT_helpers = {
         # if the next is the last, it's the attributes, otherwise type
         # use Data::Dumper; $logger->warn("get_li_attr: " . Dumper($attr));
         ($name and @$attr) or return;
+        my $length;
+        $name =~ s/^(\D+)_(\d+)$/$1/ and $length = $2;
         foreach (@$attr) {
             $_->attr_name eq $name or next;
+            next if $length and $length != length($_->attr_value);
             return $_->attr_value if (! $type) or $type eq $_->attr_type;
         }
         return;
-- 
2.43.2