adding lit_form to rec_descriptor (fixed fields)
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 13 Feb 2006 23:20:29 +0000 (23:20 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 13 Feb 2006 23:20:29 +0000 (23:20 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@3059 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI/metabib.pm
Open-ILS/src/perlmods/OpenILS/Application/WoRM.pm

index 4930a30..c8095ae 100644 (file)
@@ -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/ );
 
 #-------------------------------------------------------------------------------
index f0a9245..687399c 100644 (file)
@@ -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); },
 );