From c97beb8fd078509bcecc833bed9dd97dd8ebfb22 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 13 Jul 2006 22:05:09 +0000
Subject: [PATCH] fixed logic bug, added some debugging, inserted example code
 (for later)

git-svn-id: svn://svn.open-ils.org/ILS/trunk@4996 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../OpenILS/Application/Circ/ScriptBuilder.pm      | 30 ++++++++++++++++------
 1 file changed, 22 insertions(+), 8 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
index 92bd00dc7b..a60d2a567b 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
@@ -46,7 +46,8 @@ sub build {
 	push(@evts, $evt) if $evt;
 	$evt = fetch_user_data($editor, $args);
 	push(@evts, $evt) if $evt;
-	$args->{_event} = \@evts;
+	$logger->debug("script_builder: some events occurred: @evts") if @evts;
+	$args->{_events} = \@evts;
 	return build_runner($editor, $args);
 }
 
@@ -91,9 +92,9 @@ sub fetch_bib_data {
 
 		} elsif( $ctx->{copy_barcode} ) {
 
-			$ctx->{copy} = $e->search_asset_copy(
-				{barcode => $ctx->{copy_barcode}}) or return $e->event;
-			$ctx->{copy} = $ctx->{copy}->[0];
+			my $cps = $e->search_asset_copy({barcode => $ctx->{copy_barcode}});
+			return $e->event unless @$cps;
+			$ctx->{copy} = $$cps[0];
 		}
 	}
 
@@ -135,6 +136,8 @@ sub fetch_bib_data {
 		$ctx->{titleDescriptor} = $ctx->{titleDescriptor}->[0];
 	}
 
+	#insert_copy_method();	
+
 	return undef;
 }
 
@@ -258,12 +261,9 @@ sub insert_org_methods {
 	$runner->insert(__OILS_FUNC_isOrgDescendent  => 
 		sub {
 			my( $write_key, $sname, $id ) = @_;
-			$logger->debug("script_builder: org descendent: $sname - $id");
 			my ($parent)	= grep { $_->shortname eq $sname } @ORG_LIST;
 			my ($child)		= grep { $_->id == $id } @ORG_LIST;
-			$logger->debug("script_builder: org descendent: $parent = $child");
 			my $val = is_org_descendent( $parent, $child );
-			$logger->debug("script_builder: ord desc = $val");
 			$runner->insert($write_key, $val);
 			return $val;
 		}
@@ -280,7 +280,21 @@ sub is_org_descendent {
 	return 0;
 }
 
-1;
 
 
+#	if( $ctx->{copy} ) {
+#		
+#		# allows a script to fetch a hold that is currently targeting the
+#		# copy in question
+#		$runner->insert_method( 'environment.copy', '__OILS_FUNC_fetch_hold', sub {
+#				my $key = shift;
+#				my $hold = $holdcode->fetch_related_holds($ctx->{copy}->id);
+#				$hold = undef unless $hold;
+#				$runner->insert( $key, $hold, 1 );
+#			}
+#		);
+#	}
+
 
+
+1;
-- 
2.11.0