From d7be44808e863712efc65e7dbbb34c2b15807efa Mon Sep 17 00:00:00 2001 From: miker Date: Mon, 13 Feb 2006 23:20:29 +0000 Subject: [PATCH] adding lit_form to rec_descriptor (fixed fields) git-svn-id: svn://svn.open-ils.org/ILS/trunk@3059 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenILS/Application/Storage/CDBI/metabib.pm | 2 +- Open-ILS/src/perlmods/OpenILS/Application/WoRM.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI/metabib.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI/metabib.pm index 4930a3044c..c8095ae98f 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI/metabib.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI/metabib.pm @@ -79,7 +79,7 @@ use base qw/metabib/; metabib::record_descriptor->table( 'metabib_rec_descriptor' ); metabib::record_descriptor->columns( Primary => qw/id/ ); metabib::record_descriptor->columns( Essential => qw/record item_type item_form bib_level - control_type char_encoding enc_level + control_type char_encoding enc_level lit_form cat_form pub_status item_lang audience/ ); #------------------------------------------------------------------------------- diff --git a/Open-ILS/src/perlmods/OpenILS/Application/WoRM.pm b/Open-ILS/src/perlmods/OpenILS/Application/WoRM.pm index f0a9245e1b..687399c954 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/WoRM.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/WoRM.pm @@ -655,7 +655,7 @@ our %biblio_descriptor_code = ( cat_form => sub { substr($ldr,18,1); }, pub_status => sub { substr($ldr,5,1); }, item_lang => sub { substr($oo8,35,3); }, - #lit_form => sub { (substr($ldr,6,1) =~ /^(?:f|g|i|m|o|p|r)$/) ? substr($oo8,33,1) : "0"; }, + lit_form => sub { (substr($ldr,6,1) =~ /^(?:f|g|i|m|o|p|r)$/) ? substr($oo8,33,1) : '0'; }, audience => sub { substr($oo8,22,1); }, ); -- 2.43.2