From d4ab9cead2b8964d7483eb5baa52638ae1114478 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 5 Sep 2006 12:30:28 +0000
Subject: [PATCH] protecting ws_ou fetching to prevent errors and unnecessary
 calls

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5960 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm  | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
index 585d931ec9..9537e0f48e 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
@@ -80,8 +80,10 @@ sub build_runner {
 
 	if( ref $ctx->{requestor} ) {
 		$runner->insert( "$evt.requestor",	$ctx->{requestor}, 1);
-		$runner->insert( "$evt.location",	
-			$editor->retrieve_actor_org_unit($ctx->{requestor}->ws_ou), 1);
+		if($ctx->{requestor}->ws_ou) {
+			$runner->insert( "$evt.location",	
+				$editor->retrieve_actor_org_unit($ctx->{requestor}->ws_ou), 1);
+		}
 	}
 
 	$runner->insert( "$evt.patronItemsOut", $ctx->{patronItemsOut}, 1 );
-- 
2.43.2