don't bother loading the static circ scripts if legacy circ support is disabled

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index 44675b2..a61b67a 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -17,19 +17,24 @@ sub initialize {
     my $self = shift;
     my $conf = OpenSRF::Utils::SettingsClient->new;
     my @pfx2 = ( "apps", "open-ils.circ","app_settings" );
-    my @pfx = ( @pfx2, "scripts" );
-
-    my $p       = $conf->config_value(  @pfx, 'circ_permit_patron' );
-    my $c       = $conf->config_value(  @pfx, 'circ_permit_copy' );
-    my $d       = $conf->config_value(  @pfx, 'circ_duration' );
-    my $f       = $conf->config_value(  @pfx, 'circ_recurring_fines' );
-    my $m       = $conf->config_value(  @pfx, 'circ_max_fines' );
-    my $pr  = $conf->config_value(  @pfx, 'circ_permit_renew' );
-    my $lb  = $conf->config_value(  @pfx2, 'script_path' );
 
     $legacy_script_support = $conf->config_value(@pfx2, 'legacy_script_support');
     $legacy_script_support = ($legacy_script_support and $legacy_script_support =~ /true/i);
 
+    my $lb  = $conf->config_value(  @pfx2, 'script_path' );
+    $lb = [ $lb ] unless ref($lb);
+    $script_libs = $lb;
+
+    return unless $legacy_script_support;
+
+    my @pfx = ( @pfx2, "scripts" );
+    my $p   = $conf->config_value(  @pfx, 'circ_permit_patron' );
+    my $c   = $conf->config_value(  @pfx, 'circ_permit_copy' );
+    my $d   = $conf->config_value(  @pfx, 'circ_duration' );
+    my $f   = $conf->config_value(  @pfx, 'circ_recurring_fines' );
+    my $m   = $conf->config_value(  @pfx, 'circ_max_fines' );
+    my $pr  = $conf->config_value(  @pfx, 'circ_permit_renew' );
+
     $logger->error( "Missing circ script(s)" ) 
         unless( $p and $c and $d and $f and $m and $pr );
 
@@ -40,9 +45,6 @@ sub initialize {
     $scripts{circ_max_fines}        = $m;
     $scripts{circ_permit_renew} = $pr;
 
-    $lb = [ $lb ] unless ref($lb);
-    $script_libs = $lb;
-
     $logger->debug(
         "circulator: Loaded rules scripts for circ: " .
         "circ permit patron = $p, ".