From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 27 Jul 2006 21:28:52 +0000 (+0000)
Subject: added some logs, notes
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=a182338afbd7fe50fd0a9d411b170bf9ebc25374;p=Evergreen.git

added some logs, notes


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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
index 76f836c691..892733c443 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
@@ -70,7 +70,7 @@ sub build_runner {
 	my $runner = OpenILS::Utils::ScriptRunner->new;
 
 	my $gt = $GROUP_TREE;
-	weaken($gt); # just to be safe
+	#weaken($gt); # just to be safe
 	$runner->insert( "$evt.groupTree",	$gt, 1);
 
 
@@ -295,7 +295,8 @@ sub insert_org_methods {
 			my ($parent)	= grep { $_->shortname eq $sname } @ORG_LIST;
 			my ($child)		= grep { $_->id == $id } @ORG_LIST;
 			my $val = is_org_descendent( $parent, $child );
-			$r->insert($write_key, $val, 1);
+			$logger->debug("script_builder: is_org_desc returned val $val, writing to $write_key");
+			$r->insert($write_key, $val, 1) if $val; # Needs testing, was dying before
 			return $val;
 		}
 	);
@@ -306,6 +307,7 @@ sub insert_org_methods {
 sub is_org_descendent {
 	my( $parent, $child ) = @_;
 	return 0 unless $parent and $child;
+	$logger->debug("script_builder: is_org_desc checking parent=".$parent->id.", child=".$child->id);
 	do {
 		return 1 if $parent->id == $child->id;
 	} while( ($child) = grep { $_->id == $child->parent_ou } @ORG_LIST );