added some logging
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 24 Aug 2006 14:47:12 +0000 (14:47 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 24 Aug 2006 14:47:12 +0000 (14:47 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5652 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Utils/ScriptRunner.pm

index c8e1d93..c09a0e7 100644 (file)
@@ -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} });