Add Class::DBI linking for monograph parts (and some for conjoined items AKA peer...

Signed-off-by: Mike Rylander <mrylander@gmail.com>
Signed-off-by: Jason Etheridge <jason@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI.pm
index 4cec39f..1bf550d 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI.pm
@@ -506,6 +506,15 @@ sub modify_from_fieldmapper {
 
        action::survey_answer->has_a( question => 'action::survey_question' );
 
+       biblio::peer_bib_copy_map->has_a( target_copy => 'asset::copy' );
+       biblio::peer_bib_copy_map->has_a( peer_record => 'biblio::record_entry' );
+       biblio::peer_bib_copy_map->has_a( peer_type => 'biblio::peer_type' );
+
+       asset::copy_part_map->has_a( target_copy => 'asset::copy' );
+       asset::copy_part_map->has_a( part => 'biblio::monograph_part' );
+
+       biblio::peer_type->has_many( records => 'biblio::record_entry' );
+
        asset::copy_note->has_a( owning_copy => 'asset::copy' );
        asset::copy_note->has_a( creator => 'actor::user' );
 
@@ -514,6 +523,9 @@ sub modify_from_fieldmapper {
 
        asset::copy->has_many( stat_cat_entries => [ 'asset::stat_cat_entry_copy_map' => 'stat_cat_entry' ] );
        asset::copy->has_many( stat_cat_entry_copy_maps => 'asset::stat_cat_entry_copy_map' );
+       asset::copy->has_many( peer_bib_copy_maps => 'biblio::peer_bib_copy_map' );
+
+       asset::copy->has_many( part_maps => 'asset::copy_part_map' );
 
        asset::copy->has_a( call_number => 'asset::call_number' );
        asset::copy->has_a( creator => 'actor::user' );

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/biblio.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/biblio.pm
index 7780cbc..44dbd4a 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/biblio.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/biblio.pm
@@ -31,11 +31,11 @@ biblio::peer_type->columns( Essential => qw/id name/ );
 #-------------------------------------------------------------------------------
 
 #-------------------------------------------------------------------------------
-package biblio::peer_record_copy_map;
+package biblio::peer_bib_copy_map;
 use base qw/biblio/;
 
-biblio::peer_record_copy_map->table( 'biblio_peer_record_copy_map' );
-biblio::peer_record_copy_map->columns( Essential => qw/id peer_type peer_record target_copy/ );
+biblio::peer_bib_copy_map->table( 'biblio_peer_bib_copy_map' );
+biblio::peer_bib_copy_map->columns( Essential => qw/id peer_type peer_bib target_copy/ );
 #-------------------------------------------------------------------------------
 
 #-------------------------------------------------------------------------------

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/dbi.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/dbi.pm
index 5c6990f..ae9bfda 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/dbi.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/dbi.pm
@@ -4,6 +4,7 @@
     package asset::copy_part_map;
 
     asset::copy_part_map->table( 'asset.copy_part_map' );
+    asset::copy_part_map->sequence( 'asset.copy_part_map_id_seq' );
 
     #-------------------------------------------------------------------------------
     package biblio::monograph_part;
@@ -12,10 +13,10 @@
     biblio::monograph_part->sequence( 'biblio.monograph_part_id_seq' );
 
        #-------------------------------------------------------------------------------
-       package biblio::peer_record_copy_map;
+       package biblio::peer_bib_copy_map;
 
-       biblio::peer_record_copy_map->table( 'biblio.peer_record_copy_map' );
-       biblio::peer_record_copy_map->sequence( 'biblio.peer_record_copy_map_id_seq' );
+       biblio::peer_bib_copy_map->table( 'biblio.peer_bib_copy_map' );
+       biblio::peer_bib_copy_map->sequence( 'biblio.peer_bib_copy_map_id_seq' );
 
        #-------------------------------------------------------------------------------
        package biblio::peer_type;