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

   1 package OpenILS::Application::Storage::CDBI;
   2 use vars qw/@ISA/;
   3 use Class::DBI;
   4 use base qw/Class::DBI/;
   5
   6 our $VERSION = 1;
   7
   8 use OpenILS::Application::Storage::CDBI::actor;
   9 use OpenILS::Application::Storage::CDBI::asset;
  10 use OpenILS::Application::Storage::CDBI::biblio;
  11
  12
  13 #-------------------------------------------------------------------------------
  14 asset::copy->has_a( call_number => 'asset::call_number' );
  15 #-------------------------------------------------------------------------------
  16 asset::call_number->has_a( record => 'biblio::record_entry' );
  17 asset::call_number->has_many( copies => 'asset::copy' );
  18 #-------------------------------------------------------------------------------
  19
  20
  21 #-------------------------------------------------------------------------------
  22 biblio::record_note->has_a( record => 'biblio::record_entry' );
  23 #-------------------------------------------------------------------------------
  24 biblio::record_entry->might_have( note => 'biblio::record_note' );
  25 biblio::record_entry->has_many( nodes => 'biblio::record_node' );
  26 biblio::record_entry->has_many( call_numbers => 'asset::call_number' );
  27 #biblio::record_entry->has_a( metarecord => 'metabib::metarecord' );
  28 #biblio::record_entry->has_many( field_entries => 'metabib::field_entry' );
  29 #-------------------------------------------------------------------------------
  30 biblio::record_node->has_a( owner_doc => 'biblio::record_entry' );
  31 biblio::record_node->has_a( parent_node     => 'biblio::record_node::subnode',
  32                             inflate         => sub { return biblio::record_node::subnode::_load(@_) });
  33 #-------------------------------------------------------------------------------
  34
  35
  36 1;