From c86bd3d7f71c5e8c3230815d39b700b28e779dee Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 21 Aug 2006 00:11:47 +0000
Subject: [PATCH] adding vr_format to rec_descriptor

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5622 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/examples/fm_IDL.xml                                   | 1 +
 Open-ILS/src/javascript/backend/catalog/biblio_descriptor.js   | 2 ++
 .../src/perlmods/OpenILS/Application/Storage/CDBI/metabib.pm   | 2 +-
 Open-ILS/src/sql/Pg/030.schema.metabib.sql                     | 3 ++-
 4 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/examples/fm_IDL.xml b/Open-ILS/examples/fm_IDL.xml
index 86c177a58d..81a64021d0 100644
--- a/Open-ILS/examples/fm_IDL.xml
+++ b/Open-ILS/examples/fm_IDL.xml
@@ -829,6 +829,7 @@
 			<field name="pub_status" oils_obj:array_position="14" oils_persist:virtual="false" oils_persist:primitive="string" />
 			<field name="record" oils_obj:array_position="15" oils_persist:virtual="false" />
 			<field name="type_mat" oils_obj:array_position="16" oils_persist:virtual="false" oils_persist:primitive="string" />
+			<field name="vr_format" oils_obj:array_position="17" oils_persist:virtual="false" oils_persist:primitive="string" />
 		</fields>
 		<links>
 			<link field="record" reltype="has_a" key="id" map="" class="bre"/>
diff --git a/Open-ILS/src/javascript/backend/catalog/biblio_descriptor.js b/Open-ILS/src/javascript/backend/catalog/biblio_descriptor.js
index 4f1dbd6014..fb2b9aa0d0 100644
--- a/Open-ILS/src/javascript/backend/catalog/biblio_descriptor.js
+++ b/Open-ILS/src/javascript/backend/catalog/biblio_descriptor.js
@@ -22,3 +22,5 @@ environment.result.cat_form( extractFixedField( marcdoc, 'Desc' ) );
 environment.result.pub_status( extractFixedField( marcdoc, 'DtSt' ) );
 environment.result.item_lang( extractFixedField( marcdoc, 'Lang' ) );
 
+environment.result.vr_format( videorecordingFormatCode( marcdoc ) );
+
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 6c20a27a6d..29577a4aba 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 lit_form
+					 control_type char_encoding enc_level lit_form vr_format
 					 cat_form pub_status item_lang audience type_mat/ );
 
 #-------------------------------------------------------------------------------
diff --git a/Open-ILS/src/sql/Pg/030.schema.metabib.sql b/Open-ILS/src/sql/Pg/030.schema.metabib.sql
index c61bcfefa3..63cd871f46 100644
--- a/Open-ILS/src/sql/Pg/030.schema.metabib.sql
+++ b/Open-ILS/src/sql/Pg/030.schema.metabib.sql
@@ -96,7 +96,8 @@ CREATE TABLE metabib.rec_descriptor (
 	type_mat	TEXT,
 	cat_form	TEXT,
 	pub_status	TEXT,
-	item_lang	TEXT
+	item_lang	TEXT,
+	vr_format	TEXT
 );
 CREATE INDEX metabib_rec_descriptor_record_idx ON metabib.rec_descriptor (record);
 /* We may not need these...
-- 
2.43.2