From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 24 Aug 2006 14:47:12 +0000 (+0000)
Subject: added some logging
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=3409b9d78a39286ee74b69fd02fe74fa3eef1c2f;p=evergreen%2Fpines.git

added some logging


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

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/ScriptRunner.pm b/Open-ILS/src/perlmods/OpenILS/Utils/ScriptRunner.pm
index c8e1d93d26..c09a0e792e 100644
--- a/Open-ILS/src/perlmods/OpenILS/Utils/ScriptRunner.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/ScriptRunner.pm
@@ -13,11 +13,12 @@ use vars qw/%_paths $__json_js/;
 
 sub DESTROY {
 	my $self = shift;
-	$logger->info("script_runner destroying self: $self");
+	$logger->info("script_runner: destroying self: $self");
 }
 
 sub cleanup {
 	my $runner = shift;
+	$logger->info("script_runner: destroying context...");
 	$runner->context->destroy;
 	delete($$runner{$_}) for (keys %$runner);
 }
@@ -227,6 +228,9 @@ sub _find_file {
 sub load_lib { 
 	my( $self, $file ) = @_;
 
+	my @paths = keys %{$self->{_path}};
+	$logger->debug("script_runner: Loading lib file $file : paths=[@paths]");
+
 	push @{ $self->{libs} }, $file
 		if (! grep {$_ eq $file} @{ $self->{libs} });