more install goodness, fixed some bugs, etc
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 26 Jul 2005 23:26:51 +0000 (23:26 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 26 Jul 2005 23:26:51 +0000 (23:26 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@1520 dcc99617-32d9-48b4-a31d-7c20da2025e4

Evergreen/Makefile
Open-ILS/src/Makefile
Open-ILS/src/extras/autogen.sh
Open-ILS/src/extras/org_tree_js.pl
Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Open-ILS/src/perlmods/OpenILS/Application/Cat/Utils.pm
Open-ILS/src/perlmods/OpenILS/Application/Storage/WORM.pm
Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm
Open-ILS/src/perlmods/OpenILS/WWW/Method.pm
Open-ILS/src/perlmods/OpenILS/WWW/Web.pm
OpenSRF/src/gateway/mod_ils_gateway.c

index 2785235..c9f42dc 100644 (file)
@@ -41,6 +41,10 @@ images-install:
        ln -sf $(IMAGE)/open_book.gif $(IMAGE)/text.jpg
        ln -sf $(IMAGE)/book_icon.jpeg $(IMAGE)/"three dimensional object.jpg"
 
+css-install:
+       mkdir -p $(WEBDIR)
+       cp -r css $(WEBDIR)
+
 circ-install:
        mkdir -p $(CIRCRULESDIR)
        cp circ_rules/*.rules $(CIRCRULESDIR)/
index 909417f..7e90a60 100644 (file)
@@ -1,6 +1,9 @@
 all: 
 
-install:       perl-install javascript-install web-templates-install string-templates-install storage-bootstrap xsl-install
+web-install:   web-templates-install javascript-install autojs-install
+
+install:       perl-install web-install string-templates-install storage-bootstrap xsl-install
+
 
 JSDIR=$(WEBDIR)/js
 
@@ -29,6 +32,12 @@ storage-bootstrap:
        cp -r cgi-bin/* $(CGIDIR)
        ./extras/import/build-oils-db.sh $(DBDRVR) $(DBHOST) $(DBNAME) $(DBUSER) $(DBPW)
 
+
+autojs-install:
+       cp extras/fieldmapper.pl $(BINDIR)
+       cp extras/org_tree_js.pl $(BINDIR)
+       cp extras/autogen.sh $(BINDIR)
+
 web-templates-install:
        @echo "Installing web templates to $(TEMPLATEDIR)"
        mkdir -p $(TEMPLATEDIR)
@@ -40,6 +49,9 @@ string-templates-install:
        mkdir -p $(TEMPLATEDIR)
        cp -r templates/strings $(TEMPLATEDIR)
 
+
+
+
 xsl-install:   
        @echo "Installing XSL files to $(XSLDIR)"
        mkdir -p $(XSLDIR)
index 8d5de1c..bdef6ed 100755 (executable)
@@ -1,5 +1,10 @@
 #!/bin/bash
 
+CONFIG="$1";
+
+[ -z "$CONFIG" ] && echo "usage: $0 <bootstrap_config>" && exit;
+
+
 JSDIR="/openils/var/web/js/util";
 
 echo "Updating fieldmapper";
@@ -9,7 +14,7 @@ echo "Updating web_fieldmapper";
 perl fieldmapper.pl 1  > "$JSDIR/web_fieldmapper.js";
 
 echo "Updating OrgTree";
-perl org_tree_js.pl | sed 's/null//g'  > "$JSDIR/OrgTree.js";
+perl org_tree_js.pl "$CONFIG" | sed 's/null//g'        > "$JSDIR/OrgTree.js";
 
 echo "Done";
 
index 7d0be9e..a541b8e 100644 (file)
@@ -4,7 +4,8 @@
 use OpenSRF::AppSession;
 use OpenSRF::System;
 use JSON;
-OpenSRF::System->bootstrap_client(config_file => "/pines/conf/client.conf");
+die "usage: perl org_tree_js.pl <bootstrap_config>" unless $ARGV[0];
+OpenSRF::System->bootstrap_client(config_file => $ARGV[0]);
 
 my $ses = OpenSRF::AppSession->create("open-ils.actor");
 my $req = $ses->request("open-ils.actor.org_tree.retrieve");
index 2b7c6a4..4a819ff 100644 (file)
@@ -14,9 +14,13 @@ use OpenILS::Utils::Fieldmapper;
 use OpenILS::Application::Search::Actor;
 use OpenILS::Utils::ModsParser;
 
+use OpenSRF::Utils::Cache;
+
 my $apputils = "OpenILS::Application::AppUtils";
+
 sub _d { warn "Patron:\n" . Dumper(shift()); }
-my $cache_client = OpenSRF::Utils::Cache->new("global", 0);
+
+my $cache_client;
 
 
 __PACKAGE__->register_method(
@@ -680,6 +684,9 @@ __PACKAGE__->register_method(
 sub get_org_tree {
        my( $self, $client) = @_;
 
+       if(!$cache_client) {
+               $cache_client = OpenSRF::Utils::Cache->new("global", 0);
+       }
        # see if it's in the cache
        warn "Getting ORG Tree\n";
        my $tree = $cache_client->get_cache('orgtree');
index 7ad231e..df3b0cf 100644 (file)
@@ -11,10 +11,10 @@ use OpenILS::Utils::ModsParser;
 my $mods_utils = OpenILS::Utils::ModsParser->new();
 
 
-my $parser             = XML::LibXML->new();
-my $xslt                       = XML::LibXSLT->new();
-my $xslt_doc   = $parser->parse_file( "/pines/cvs/ILS/Open-ILS/xsl/MARC21slim2MODS.xsl" );
-my $mods_sheet = $xslt->parse_stylesheet( $xslt_doc );
+#my $parser            = XML::LibXML->new();
+#my $xslt                      = XML::LibXSLT->new();
+#my $xslt_doc  = $parser->parse_file( "/pines/cvs/ILS/Open-ILS/xsl/MARC21slim2MODS.xsl" );
+#my $mods_sheet = $xslt->parse_stylesheet( $xslt_doc );
 
 sub new {
        my($class) = @_;
index 1cff1a5..fbf3216 100644 (file)
@@ -19,9 +19,7 @@ my $xml_util  = OpenILS::Utils::FlatXML->new();
 
 my $parser             = XML::LibXML->new();
 my $xslt                       = XML::LibXSLT->new();
-my $xslt_doc   =       $parser->parse_file( "/home/miker/cvs/OpenILS/app_server/stylesheets/MARC21slim2MODS.xsl" );
-#my $xslt_doc  = $parser->parse_file( "/pines/cvs/ILS/Open-ILS/xsl/MARC21slim2MODS.xsl" );
-my $mods_sheet = $xslt->parse_stylesheet( $xslt_doc );
+my $mods_sheet;
 
 use open qw/:utf8/;
 
@@ -299,6 +297,12 @@ sub wormize {
                # step -1: grab the doc from storage
                next unless ($entry);
 
+               if(!$mods_sheet) {
+                       my $xslt_doc = $parser->parse_file(
+                               OpenSRF::Utils::SettingsClient->new->config_value(dirs => 'xsl') .  "/MARC21slim2MODS.xsl");
+                       $mods_sheet = $xslt->parse_stylesheet( $xslt_doc );
+               }
+
                my $xml = $entry->marc;
                my $docid = $entry->id;
                my $marcdoc = $parser->parse_string($xml);
index 061ef6a..4a1f5e5 100644 (file)
@@ -11,13 +11,7 @@ use Data::Dumper;
 
 my $parser             = XML::LibXML->new();
 my $xslt                       = XML::LibXSLT->new();
-my $xslt_doc   = $parser->parse_file(
-       OpenSRF::Utils::SettingsClient
-               ->new
-               ->config_value(dirs => 'xsl') .  "/MARC21slim2MODS3.xsl"
-);
-
-my $mods_sheet = $xslt->parse_stylesheet( $xslt_doc );
+my $mods_sheet;
 
 # ----------------------------------------------------------------------------------------
 # XPATH for extracting info from a MODS doc
@@ -265,6 +259,14 @@ sub start_mods_batch {
 
        my( $self, $master_doc ) = @_;
 
+
+       if(!$mods_sheet) {
+                my $xslt_doc = $parser->parse_file(
+                       OpenSRF::Utils::SettingsClient->new->config_value(dirs => 'xsl') .  "/MARC21slim2MODS3.xsl");
+               $mods_sheet = $xslt->parse_stylesheet( $xslt_doc );
+       }
+
+
        my $xmldoc = $parser->parse_string($master_doc);
        my $mods = $mods_sheet->transform($xmldoc);
 
index 5d8678a..5e86d2b 100644 (file)
@@ -2,12 +2,12 @@ package OpenILS::WWW::Method;
 use strict; use warnings;
 
 use Apache2 ();
-use Apache::Log;
-use Apache::Const -compile => qw(OK REDIRECT :log);
+use Apache2::Log;
+use Apache2::Const -compile => qw(OK REDIRECT :log);
 use APR::Const    -compile => qw(:error SUCCESS);
-use Apache::RequestRec ();
-use Apache::RequestIO ();
-use Apache::RequestUtil;
+use Apache2::RequestRec ();
+use Apache2::RequestIO ();
+use Apache2::RequestUtil;
 
 use JSON;
 
@@ -48,7 +48,7 @@ sub handler {
 
        if($err) {
                print  JSON->perl2JSON($err);
-               return Apache::OK;
+               return Apache2::Const::OK;
        }
 
        my @param_array;
@@ -74,7 +74,7 @@ sub handler {
                perform_method($service, $method, %param_hash);
        }
 
-       return Apache::OK;
+       return Apache2::Const::OK;
 }
 
 sub child_init_handler {
index f483465..8cb8b8b 100644 (file)
@@ -2,14 +2,14 @@ package OpenILS::WWW::Web;
 use strict; use warnings;
 
 use Apache2 ();
-use Apache::Log;
-use Apache::Const -compile => qw(OK REDIRECT :log);
+use Apache2::Log;
+use Apache2::Const -compile => qw(OK REDIRECT :log);
 use APR::Const    -compile => qw(:error SUCCESS);
-use Apache::RequestRec ();
-use Apache::RequestIO ();
-use Apache::RequestUtil;
+use Apache2::RequestRec ();
+use Apache2::RequestIO ();
+use Apache2::RequestUtil;
 
-use CGI ();
+#use CGI ();
 use Template qw(:template);
 
 use OpenSRF::EX qw(:try);
@@ -42,7 +42,7 @@ sub handler {
                        template                => $main_ttk,
                        pre_process     => $init_ttk );
 
-       return Apache::OK;
+       return Apache2::Const::OK;
 }
 
 sub child_init_handler {
index f637710..a4ba81b 100644 (file)
@@ -139,8 +139,8 @@ static void add_session( char* service, osrf_app_session* session ) {
 */
 
 static void mod_ils_gateway_child_init(apr_pool_t *p, server_rec *s) {
-       if( ! osrf_system_bootstrap_client( 
-               "/pines/cvs/ILS/OpenSRF/src/gateway/gateway.xml") ) { /* config option */
+       if( ! osrf_system_bootstrap_client( "/openils/conf/gateway.xml") ) { 
+               fatal_handler("Unable to load gateway config file...");
        }
 
        /* we don't want to waste time parsing json that we're not going to look at*/