From 123843e9d2655d0aaad6ad66ccb1e5fb0caeb073 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 7 Aug 2006 14:02:31 +0000
Subject: [PATCH] fixed some path mangling issues and removed some unused code

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5327 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../src/support-scripts/test-scripts/circ_rules.pl     | 18 +++++-------------
 1 file changed, 5 insertions(+), 13 deletions(-)

diff --git a/Open-ILS/src/support-scripts/test-scripts/circ_rules.pl b/Open-ILS/src/support-scripts/test-scripts/circ_rules.pl
index 194942dec7..1bee02a056 100644
--- a/Open-ILS/src/support-scripts/test-scripts/circ_rules.pl
+++ b/Open-ILS/src/support-scripts/test-scripts/circ_rules.pl
@@ -28,29 +28,20 @@ my $non_cat_type				= 1;
 my $bsconfig = shift;
 my $script = shift;
 
-die "$0: <bootstrap> <script>\n" unless $script;
+die "$0: <bootstrap> <absolute_script_path>\n" unless $script;
 
 my $path;
 
 ($path, $script) = ($script =~ m#(/.*/)(.*)#);
-
 osrf_connect($bsconfig);
 
-
-#use OpenILS::Utils::ScriptRunner;
-#my $r = OpenILS::Utils::ScriptRunner->new;
-#$r->add_path($path);
-#$r->load($script) or die "Script died: $@";
-#$r->run or die "Script died: $@";
-#exit;
-
-
 my $s = time;
 my $runner = OpenILS::Application::Circ::ScriptBuilder->build(
 	{
 		copy_id						=> $copyid,
 		patron_id					=> $patronid,
 		fetch_patron_circ_info	=> 1,
+		flesh_age_protect			=> 1,
 		_direct						=> {
 			isNonCat		=> $is_non_cat,
 			isRenewal	=> $is_renewal,
@@ -71,9 +62,10 @@ $runner->insert(log_debug		=> sub { print "@_\n"; return 1;} );
 $runner->insert(log_internal	=> sub { print "@_\n"; return 1;} );
 
 
-$runner->add_path('/openils/var/web/opac/common/js');
+#$runner->add_path('/openils/var/web/opac/common/js');
 $runner->add_path($path);
-$runner->add_path("$path/../catalog/");
+$runner->add_path("$path/../");
+#$runner->add_path("$path/../catalog/");
 
 
 # ---------------------------------------------------------------------
-- 
2.11.0