From: miker Date: Tue, 3 Mar 2009 01:16:06 +0000 (+0000) Subject: perl does not appreciate the use of, um, "use" .. changing to "use_restriction" X-Git-Tag: sprint4-merge-nov22~10656 X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=dda0f7beb1bfade4619bd25d68233e8d1460bae7;p=working%2FEvergreen.git perl does not appreciate the use of, um, "use" .. changing to "use_restriction" git-svn-id: svn://svn.open-ils.org/ILS/trunk@12364 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/Open-ILS/examples/fm_IDL.xml b/Open-ILS/examples/fm_IDL.xml index 8383d8e43d..351188cdaa 100644 --- a/Open-ILS/examples/fm_IDL.xml +++ b/Open-ILS/examples/fm_IDL.xml @@ -1494,7 +1494,7 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA - + diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm index 5a0562ef54..7a1957f304 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm @@ -1129,7 +1129,7 @@ sub _extract_856_uris { # now we can construct the uri object my $uri = $cstore - ->request( 'open-ils.cstore.direct.asset.uri.search' => { label => $label, href => $href, use => $use, active => 't' } ) + ->request( 'open-ils.cstore.direct.asset.uri.search' => { label => $label, href => $href, use_restriction => $use, active => 't' } ) ->gather(1); if (!$uri) { @@ -1137,7 +1137,7 @@ sub _extract_856_uris { $uri->isnew( 1 ); $uri->label($label); $uri->href($href); - $uri->use($use); + $uri->use_restriction($use); } # see if we need to create a call number diff --git a/Open-ILS/src/sql/Pg/040.schema.asset.sql b/Open-ILS/src/sql/Pg/040.schema.asset.sql index cea70c8130..b8749a51f7 100644 --- a/Open-ILS/src/sql/Pg/040.schema.asset.sql +++ b/Open-ILS/src/sql/Pg/040.schema.asset.sql @@ -137,7 +137,7 @@ CREATE TABLE asset.uri ( id SERIAL PRIMARY KEY, href TEXT NOT NULL, label TEXT, - use TEXT, + use_restriction TEXT, active BOOL NOT NULL DEFAULT TRUE );